[Rio-pm] [Golf] Fatorial

[Daniel de Oliveira Mantovani]

$=      The current page length (printable lines) of the currently
selected output channel.  Default is 60.  Used with formats.
(Mnemonic: = has horizontal lines.)

Defina o valor que você quer com o tamanho da sua página corrente:
perl -E'$_=60;$_*=$=while--$=;say'

(Não sei se isso vale)


On 1 February 2010 11:31, Stefano Rodighiero
<stefano.rodighiero em gmail.com> wrote:
> 2010/2/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>
>> perl -E'$n=$_=6;$_*=$n while--$n;say'
>
> nice, you can gain a character (and evil points) using another
> variable:
>
> perl -E'$!=$_=6;$_*=$!while--$!;say'
>
> s.
>
> --
> www.stefanorodighiero.net
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
"If you’ve never written anything thoughtful, then you’ve never had
any difficult, important, or interesting thoughts. That’s the secret:
people who don’t write, are people who don’t think."