|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Eugeniy Muran' 2:4623/13 01 Oct 2000 10:02:28
To : Vladimir Ashcheulov
Subject : Разделить число
--------------------------------------------------------------------------------
і Позволю себе напомнить, что в Воскресенье 01 Октября 2000 год, в 00:25
і Vladimir Ashcheulov писал к All о "Разделить число"
АДДДДДДДД<<<
VA> Возник простой вопрос - как разделить число, т.е. было например
VA> 9999 , стало 9:9:9:9. Как это просто сделать ?
Hу вот тебе как ваpиант (IMHO не самый коpоткий):
>=== Здесь родился digsplit.pl! :) ===
#perl -w
$str="9999";
$sym=":";
$rez=substr($str,0,1);
for($i=1; $i<length($str); $i++)
{
$rez=$rez.$sym.substr($str,$i,1);
}
print "$rez\n";
>=== Здесь скончался digsplit.pl! :( ===
ЖНННННННННННННННННННННННННННННННННННННННННННННН[ Всех благ желает Eugeniy ]ННµ
ФННН[Team ASM] [Team C++ Builder] НН [Team КИHО] [Team Hаутилус Помпилиус]НННѕ
. Человеку свойственно ошибаться и как часто он пользуется этим свойством!
---
* Origin: JackSoft [ ICQ: 44436588, e-mail: jacksoft@chat.ru ] (2:4623/13)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Разделить число 
