minha tacada:<br><br>perl -E'$n=$_=6;$_*=$n while--$n;say'<br><br clear="all">Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br><br>
<br><br><div class="gmail_quote">Em 1 de fevereiro de 2010 11:17, Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Olá pessoal, ontem eu li no Twitter esse link:<br>
<a href="http://gist.github.com/290978" target="_blank">http://gist.github.com/290978</a><br>
<br>
Entre as coisas que estavam escritas nesse link, tinha algo do tipo<br>
#code golf programmer<br>
print(($_=sub{$_[0]?($_[0]*$_->($_[0]-1)):1})->(6))<br>
<br>
(Não sei pq isso não está mais lá, ontem estava)<br>
<br>
Fazer fatorial usando Perl 5.10.* <<br>
<br>
Eu fiz minha tacada:<br>
perl -E 'sub f{$_[0]<=0?1:f($_[0]-1)*$_[0]}say f(6)'<br>
<br>
Que comece o golf :)<br>
<font color="#888888"><br>
--<br>
"If you’ve never written anything thoughtful, then you’ve never had<br>
any difficult, important, or interesting thoughts. That’s the secret:<br>
people who don’t write, are people who don’t think."<br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</font></blockquote></div><br>