minha tacada:<br><br>perl -E&#39;$n=$_=6;$_*=$n while--$n;say&#39;<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">&lt;<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>&gt;</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]*$_-&gt;($_[0]-1)):1})-&gt;(6))<br>
<br>
(Não sei pq isso não está mais lá, ontem estava)<br>
<br>
Fazer fatorial usando Perl 5.10.* &lt;<br>
<br>
Eu fiz minha tacada:<br>
perl -E &#39;sub f{$_[0]&lt;=0?1:f($_[0]-1)*$_[0]}say f(6)&#39;<br>
<br>
Que comece o golf :)<br>
<font color="#888888"><br>
--<br>
&quot;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.&quot;<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>