|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ruslan Bondarev 2:463/327.37 10 Mar 2002 10:54:39
To : Maxim Sarenko
Subject : разборка чисел
--------------------------------------------------------------------------------
*** 10 Mar 02 in a msg to All, Maxim Sarenko wrote:
MS> Еcть чиcлo 1234, мoжнo ли eгo paзбить нa цифpы? т.e. 1,2,3,4
MS> п.c. Чиcлo мoжeт быть любым, т.e. нaпpимep oт 0 дo 10^99999999999.
Ты забыл указать -- числа-то хоть целые?
Два варианта для целых:
1) Академический.
Число делим на 10. Остаток заносим в стек. Целую часть от деления
используем в следующей итерации. Так до тех пор, пока целая часть не будет
равна 0. После этого вынимает из стека цифры.
2) Hа перле. @digits = split('', $number);
perldoc -f split
perldoc perlre
--- GoldED+/W32 1.1.4.7
* Origin: (2:463/327.37)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
