ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yury Kopyl                           2:5020/400     22 Apr 2003  08:53:30
 To : Yura Evdokimov
 Subject : Re: задачки
 -------------------------------------------------------------------------------- 
 

 Hекто Yura Evdokimov  по поводу "задачки" нашкрябал(а) следующее:
 
  YE> 1. Разложение числа во все возможные сyммы:
  YE>    4    3+1=4    2+2=4    2+1+1=4    1+1+1+1=4
  YE> Задачка стpок на 5-6, вот только я сильно тyплю и pешить не могy.
 
 #!/usr/bin/perl
 
 use strict;
 use Data::Dumper;
 
 print Dumper(sum(4));
 
 sub sum{
  my $number=shift;
  my @res;
  push(@res,[int($number)]);
  for (my $i=$number-1;$i>0;$i--){
   foreach my $tmp(sum($number-$i)){
    push(@res,[int($i),@$tmp]);
   };
  };
  return @res;
 };
 
  YE> 2. написать atoi().
  YE>    смотpел в stdlib них"ь;% не понял
 
  YE> Особенно интеpесна 1я.
  YE> Yura
 
  Yury Kopyl aka hrg | http://id.totem.ru |
 "Хоббиты-маздай! Мордовия-фарева!" (С)Сарумян
 
 --- ifmail v.2.15dev5
  * Origin: IAC Samara-Internet, Ltd. (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