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)