<html><head><meta http-equiv="Content-Type" content="text/html charset=koi8-r"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Да ладно, со всеми бывает :)<div><br><div>
<div>С уважением,</div><div>Денис Федосеев</div>
</div>
<br><div><div>On 14 Sep 2012, at 4:19 PM, Анатолий Шарифулин <<a href="mailto:sharifulin@gmail.com">sharifulin@gmail.com</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">мда<br><br><div class="gmail_quote">2012/9/14 Nikolay Mishin <span dir="ltr"><<a href="mailto:mi@ya.ru" target="_blank">mi@ya.ru</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
да, Денис!!..спасибо<br>
как все просто оказалось<br>
<br>
14.09.2012, 15:48, "alpha6" <<a href="mailto:denis.fedoseev@gmail.com">denis.fedoseev@gmail.com</a>>:<br>
<div class="HOEnZb"><div class="h5">> ; после } кто ставить будет?<br>
><br>
> С уважением,<br>
> Денис Федосеев<br>
><br>
> On 14 Sep 2012, at 3:46 PM, Nikolay Mishin <<a href="mailto:mi@ya.ru">mi@ya.ru</a>> wrote:<br>
><br>
>> type <a href="http://01_fact.pl/" target="_blank">01_fact.pl</a><br>
>> use 5.16.0;<br>
>> # use feature 'say';<br>
>> my $fact;<br>
>> $fact=sub{<br>
>> my ($x)=@_;#<br>
>> return $x if $x==1;<br>
>> return $x*$fact->($x-1);<br>
>> }<br>
>> say $fact->(5);<br>
>><br>
>> perl -c <a href="http://01_fact.pl/" target="_blank">01_fact.pl</a><br>
>> syntax error at <a href="http://01_fact.pl/" target="_blank">01_fact.pl</a> line 9, near "say"<br>
>> <a href="http://01_fact.pl/" target="_blank">01_fact.pl</a> had compilation errors.<br>
>><br>
>> perl -v<br>
>><br>
>> This is perl 5, version 16, subversion 0 (v5.16.0) built for MSWin32-x64-multi-thread<br>
>><br>
>> что я делаю не так?<br>
>> 14.09.2012, 15:22, "Анатолий Шарифулин" <<a href="mailto:sharifulin@gmail.com">sharifulin@gmail.com</a>>:<br>
>>> Пример рабочий, какая ошибка или say забыл написать? :-)<br>
>>><br>
>>> 2012/9/14 Nikolay Mishin <<a href="mailto:mi@ya.ru">mi@ya.ru</a>><br>
>>>> my $fact;$fact=sub{<br>
>>>> my ($x)=@_;#<br>
>>>> return $x if $x==1;<br>
>>>> return $x*$fact->($x-1);<br>
>>>> }<br>
>>> --<br>
>>> С уважением,<br>
>>> Анатолий Шарифулин.<br>
>>> ,<br>
>>> --<br>
>>> Moscow.pm mailing list<br>
>>> <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/" target="_blank">http://moscow.pm.org</a><br>
>> --<br>
>> Nikolay Mishin<br>
>> --<br>
>> Moscow.pm mailing list<br>
>> <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/" target="_blank">http://moscow.pm.org</a><br>
><br>
> --<br>
> Moscow.pm mailing list<br>
> <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/" target="_blank">http://moscow.pm.org</a><br>
<br>
--<br>
Nikolay Mishin<br>
--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>С уважением,<br> Анатолий Шарифулин.<br>
-- <br>Moscow.pm mailing list<br><a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org">http://moscow.pm.org</a><br></blockquote></div><br></div></body></html>