I decided to send myself to
hell and write a little obfuscated code for the lunch break.. That turned into "Lets learn more about
map" which reminded me that I had the urge to write a half-finished (because that's the way everything is done in the corporate world, no?)
BrainF*ck interpreter too. So, the JAPH below, albeit easy, was simply fun to create.
#!/usr/bin/perl -w
use strict;sub bf {shift;my $i=0;my @v;
map{$v[$i]+=m/\+/?1:m/-/?-1:0;print chr
$v[$i] if(m/\./);}split(//);}my $eval='
sub japh{return $$?":":":"}';my $i = 'm
y $i=0;';my @c = qw($_=" [0-9] ";$_=&ja
ph;$$=&japh;s/:/+++++++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++
++++++++++++.---------.+++++++++++++++.
--------./g;&bf($_););map{$$.=$_}@c;$_=
$$;s z[$c[1]|]z;zg;eval$eval;eval;
One4k4 -
perlmonks@poorheart.com (
www.poorheart.com)