s/Perl hacker,/plagiarized node\n/;

Since this is a hot topic, I decided to make a slightly different JAPH^HN ;^).

$~=@$b/2;for($;=$|++;(($:,$a)=($$b[$;],$$b[$;+$~]))&&$a=~/^\d+$/||($\=
+$/,print
("@$b[$~*2...3+$~*2]"),-0);$;++){BEGIN{@$b[1,3,4,6,2,5,$|]=(("aaaa")x4
+,("aaa")
x2,"Aaaa");@$b[9,8,12,11,7,13,10]=sort{$a<=>$b}(4853,271082,9171,17007
+,238034,
141058,172191)}$:++for 1..$a;push@$b,$:;$;<2&&next;40%$;or$$b[$#$b-1].
+=pop@$b}
[download]

--
David Serrano

Comment on s/Perl hacker,/plagiarized node\n/; Download Code

Replies are listed 'Best First'.
Re: s/Perl hacker,/plagiarized node\n/; by chargrill (Parson) on Oct 08, 2006 at 23:52 UTC
Wait, haven't I seen this before somewhere..... ;-) --chargrill `s*lil; $=join'',sort split q; s;.;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$,$/)` [download]	[reply] [d/l]