|
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
