"Yanick" <[EMAIL PROTECTED]> schrieb im Newsbeitrag
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
| And I can see from here the document that will try to
| explain Perl Golf history and lore:
Three Hacks for the Australians down under,
Seven for the Americans in their tormented brains,
Nine for Europeans doomed to pop,
One for the Dark Aliens on their dark thrones,
In the Netherlands where the Aliens lie.
One Hack to rule them all, One Hack to find them,
One Hack to bring them all and in the darkness munge them
In the Netherlands where the eyes pop.
Okay, it's cheesy!
--
@n=(544290696690,305106661574,116357),$b=16,@c=' ,JPacehklnorstu'=~
/./g;for$n(@n){map{$h=int$n/$b**$_;$n-=$b**$_*$h;$c[@c]=$h}c(0..9);
push@p,map{$c[$_]}@c[c($b..$#c)];$#c=$b-1}print@p;sub'c{reverse @_}
