Slow JAPH!

This needs perl 5. Can run with or without strict and warnings, but it might be a bit slow...

@;
=qw;
0x0F861
0x2817F
0x02422
0x02B74
0x7819B
0x04402
0x1B9C7
;;$==$]
=~m;^\d;
;$==$&;
print
join
q, ,,
map{y;
jy;:Jq
;;q;;
.reverse
}map{$;
=$_;$;
++for(1..
eval$;[$=
--])
;reverse
$;}qw;
stat
regroup
last
rejoin;
[download]

s^^unp(;75N=&9I<V@`ack(u,^;s|$.+\`|"$`$'\"$&\"$"|ee;/m.+h/&&print$&

Comment on Slow JAPH! Select or Download Code

Replies are listed 'Best First'.
Re: Slow JAPH! by jdalbec (Deacon) on Sep 15, 2004 at 03:05 UTC
Nice demo of scalar vs. list context. `++for(reverse)` [download]	[reply] [d/l]