Tinypig Computing

News

12-13-2016   New Blog entry: "Heap's Algorithm and Generating Perl Code From Pseudocode"
9-26-2016   New Blog entry: "Tattletale Variables"
9-12-2016   New Blog entry: "Build Your Memory Palace"

JAPH

sub q{ord($_[0])}sub qq{chr($_[0])}(@q=(j,q,q,,q,s,,u,o,[$;=\@q,$"=sub{for(@q){
s/(.)/&qq(&q($1)-1)/e}},$_=q,*534`!./4(%2`0%2{`(!#+%2,,tr;{;,;,s/(.)/&q($1)>95?
&qq(&q($1)-64):&qq(&q($ 1)+64)/eg,% q=(q,qq,,sub{eval$ _[0]},q,q,,1)])),&{$ "},
$q{qq}->(qq.$;->[$q=$q{q}]${$;}[++$q]$;->[$[]${$;}[-1+$)-$ )+$#q]$;->[$#q-$q].)

(JAPH Solution)