Tinypig Computing

News

9-12-2016   New Blog entry: "Build Your Memory Palace"
8-26-2015   New Blog entry: "Using Dispatch Tables To Improve Application Security"
8-7-2015   New Blog entry: "Accepting Input from Multiple Sources"

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)