Perl: the Markov chain saw | |
PerlMonks |
Re: use constant { Perl, 'Programming', all, time };by SamCG (Hermit) |
on Jul 07, 2006 at 20:12 UTC ( [id://559861]=note: print w/replies, xml ) | Need Help?? |
"Its a little bit radical against PHP"
a little??!??!??! :) and they say there are no holy language wars... Seriously, very nice work. ----------------- s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;
In Section
Perl Poetry
|
|