Помогите пожалуйста решить такую короткую задачу по Perl

← →
Supreme (2003-01-05 17:20) [0]

1) Имеется 30 чисел. Сделать, чтобы первые числа до 12 чередовались
через 2, затем с числа 13 начинался новый отсчёт, от 13 до 20 шли по
порядку, от 20 до 26 чередовались через 1, далее - завершение.

2) Имеется 30 чисел. Сделать, чтобы чередование через одно началось
с числа 8, затем подряд до 14, потом новый отсчёт, чередование
через 1 до 26 и - завершение.

Нужно, чтобы использовалось решение такого вида (например):

M1:

while ($i<30)
{
$i++;
next M1 if $i <5; #или "last" или "redo"
$i++; #или ещё одно "$i++"
}
continue
{
print "$i ";
}

← →
Supreme (2003-01-05 20:44) [1]

Neuzheli nikto ne znaet?

← →
Supreme (2003-01-06 20:56) [2]

Ну пожалуйста!

← →
[NIKEL] (2003-01-07 11:47) [3]

что значит чередовались? менялись местами? или как?

← →
Supreme (2003-01-08 16:17) [4]

Чередовались - это вроде такого:
1 3 5 7 (тут через одно)

Помогите пожалуйста решить такую короткую задачу по Perl Найти похожие ветки