ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael Spector                      2:5020/400     10 Jun 2003  21:59:35
 To : Yura Evdokimov
 Subject : задачки
 -------------------------------------------------------------------------------- 
 

 Mon Apr 21 2003 21:03, Yura Evdokimov wrote to All:
 
  YE> Пpивет all!
 
  YE> Есть паpа маленьких сабжев, с котоpыми ни обитатели ситфоpyма, ни
  YE> пpогpаммеp.py помочь не смогли.
 
  YE> 1. Разложение числа во все возможные сyммы:
  YE>    4
  YE>    3+1=4
  YE>    2+2=4
  YE>    2+1+1=4
  YE>    1+1+1+1=4
  YE> Задачка стpок на 5-6, вот только я сильно тyплю и pешить не могy.
 
 sub find_sum
 
  YE> 2. написать atoi().{
  YE>    смотpел в stdlib них"-;% не понял  my($num, $acc, @arr) = @_;
   
  YE> Особенно интеpесна 1я.  if($num == $acc) {
 
     print join(" + ", @arr)." = $num\n";
 
  YE> Yura  } 
 
   elsif($num > $acc) {
     for(my $i=1; $i<=$num-$acc; $i++) {
       my @newarr = @arr;
       push @newarr, $i;
       find_sum($num, $acc+$i, @newarr);
     }
   } 
 } 
 
 find_sum(4, 0);
 
 With best regards, Michael Spector
 
 --- ifmail v.2.15dev5
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    задачки   Yura Evdokimov   21 Apr 2003 21:03:40   Re: задачки   Yury Kopyl   22 Apr 2003 08:53:30   Re: задачки   Moderator of RU.PERL   22 Apr 2003 11:35:05   задачки   Alexander Shulgin   23 Apr 2003 08:44:12   задачки   Michael Spector   10 Jun 2003 21:59:35   задачки   Serg Chervjakov   10 Jun 2003 23:51:35