Скачать: CL | DM;

Помогите пожалуйста решить такую короткую задачу по 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 (тут через одно)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c