|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Roman Tuchin 2:5020/811.13 22 Oct 2003 01:02:38 To : All Subject : требуется перевести программу с perl на c++ -------------------------------------------------------------------------------- Сабж! очень надо! помогите плз. $n=5; my @x = ($n); print $x; print $n, "\n"; while ( $x[0] > 1 ) { my $s = $#x; while ( $s > 0 ) { last if $x[$s] > 1; $s--; } $x[$s]--; my $sum = 1; $sum += pop @x foreach $s+1..$#x; for (my $d = $x[$s]; $sum > 0; $d-- ) { push (@x, $d) foreach 1 .. int ($sum / $d); $sum -= $d * int ($sum / $d); } print join ('+', @x), "\n"; } Roman [tre1@mail.msiu.ru] xmms: Skaльпель - Про пиво Linux 2.4.22 i686 ... [МГИУ] [PlagiatЪ] [ПМиТФ-5102] [Ska-Punk] [SlowlyNet] [LinuxNet] --- GoldED+/LNX 1.1.5-030809 * Origin: Возьму поинтов и нод в SlowlyNet, писать в нетмыло (2:5020/811.13) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор Архивное /ru.perl/38663f959f4a.html, оценка из 5, голосов 10
|