Спасибо за перевод!
с рекурсией - клево, правда не понял как в варианте
my $fact;$fact=sub{
my ($x)=@_;#
return $x if $x==1;
return $x*$fact->($x-1);
}
передавать значение, во всяком случае на
strawmberry 5.16.1
$fact->(5); - не сработало
14.09.2012, 02:50, "Yury Pats" <[email protected]>:
> Спасибо за перевод. Но епрст, что за шрифт, где 1, l и | -- это один и
> тот же символ? Или это судьба маководов?
>
> 2012/9/7 Анатолий Шарифулин <[email protected]>:
>
>> Привет!
>>
>> Рекомендую всем для прочтения и изучения, не будьте старпёрами используйте
>> 5.16 и новые фичи! :)
>>
>> http://sharifulin.posterous.com/perl-510-516-rjbs
>>
>> use Perl or die;
>>
>> --
>> С уважением,
>> Анатолий Шарифулин.
>>
>> --
>> Moscow.pm mailing list
>> [email protected] | http://moscow.pm.org
>
> --
> WBR, Yury Pats
> skype: yuripats
> cellular: +375 (29) 5870723
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
--
Nikolay Mishin
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
