|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 22 Oct 2003 13:09:01
To : Roman Tuchin
Subject : Re: требуется перевести программу с perl на c++
--------------------------------------------------------------------------------
Хмутро.
RT> Сабж! очень надо! помогите плз.
Лениво... Сколько денег дашь? Бесплатно могу посоветовать почитать про шаблон
vector в STL - переписывается один в один.
RT> $n=5;
RT> my @x = ($n);
RT> print $x;
RT> print $n, "\n";
RT> while ( $x[0] > 1 ) {
RT> my $s = $#x;
RT> while ( $s > 0 ) {
RT> last if $x[$s] > 1;
RT> $s--;
RT> }
RT> $x[$s]--;
RT> my $sum = 1;
RT> $sum += pop @x foreach $s+1..$#x;
RT> for (my $d = $x[$s]; $sum > 0; $d-- ) {
RT> push (@x, $d) foreach 1 .. int ($sum / $d);
RT> $sum -= $d * int ($sum / $d);
RT> }
RT> print join ('+', @x), "\n";
RT> }
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: требуется перевести программу с perl на c++ 
