Re^2: JAPH Introspection


"be consistent"
	PerlMonks

Re^2: JAPH Introspection

by ktross (Deacon)

on May 16, 2005 at 14:53 UTC ( [id://457485]=note: print w/replies, xml )

Need Help??

in reply to Re: JAPH Introspection
in thread JAPH Introspection

Perhaps you'd prefer this version

#!/usr/bin/perl 
seek DATA,0,0;while(<DATA>){@_=split'',$_;push @JAPH,[@_]}for(split/;/
,'1,48;1,43;1,44;1,35;1,4;4,20;4,24;4,14;1,35;1,45;1,1;4,15;1,4;1,50;1
,1;4,15;1,17;1,4;1,45;4,20;4,17;1,3;1,1;4,15;1,9'){@_=split /,/,$_;@_,
push @n,[@_]}for$c(@a..@n-1){print $JAPH[$n[$c][0]][$n[$c][1]]}__END__
[download]

Spem Successus Alit