Letters to the Editor Japh
This one won't be obvious until you find the hidden clue and follow its instructions.
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
vim-free: GET 'http://perlmonks.org/?node_id=567147;displaytype=displaycode' | less -p '[JaPh]'
--chargrill
Running the program reveals the clue.
sub sub {$"='
jJPPJPJJjppHjpHAjpHAjpHAjpHAjPhAjpHAjpHAjpHAjpHAjpHAjpHAjpHAjpHAjpHAjp
HAjphajphajPhAjPhajPhaJPhAjphaJPHAJPHAJPHAJPhAJPhaJPHaJphajPhaJphaJPhA
jpHAJPHAJPHaJphajpHAjPhAjpHaJpHaJphaJphajPhAJPHAJPHAjPhAJPHaJpHAJPHAJP
HAjphajpPhjJPpjPJJAHHJaAAjAPhhJPJjahaPaPpaapaaAHahjpjJahaJAPPJapaaJPJJ
aPpjaPpAaPAJapAjAPaAAPhpjpjJapHaapaaAhJhAhJHaPjAaPAHAPaAJPHJJpjjahjhap
jaahapApAaJPjjaJPPApjaaHjjAPPjjPJjahAHaPpAahajApPJjpjJapJajPJJJpJPjphP
AHjjApHjjpjpjpjjAHHjjjppjpjjAHHjApAAAHpjAHAjApAAApHpAHjHAppAApHHApHpjp
JJApjaapHpApAjjpjjApAAApAjAppAahAjjpjjAppAApHpjpjjApAHAHApAppAApHAjpHj
JPjjAhapaPPaaPHaJpjjAPhHAHjpjpJJApAAAPhaApJaApjhaHJhJPhPjPJjjPJjAaJJap
aaAHjPapApaPHHAhJPAphaJpJJahhjJJppjpJJAhhjaPjAjPJjAHJhApAaaPjaaHJPApjH
APPjJPjjjpPJAHjPaPaaaPaHApAAAHPJjpjjahjhapAaapJaAHjpaPjHAPPJJPJjaPpaaP
HpJPJjApAAaPHAAPJAaPjhaHjHjppAJPjjApaPAPhHAHJPJpjjAHaJAppJapaaJpJJApJh
AppJApjAahJPJPHPJpJJAhJHApAAAHaJJPJjAhhJjjppjPjjAHhJaaPhAJPpAPJAAaJJap
pjAAHAjpHpjpjjjpjjAjpAApHpjpjjAHApAppAApHAjpHjjpjjAHAjAHjpAHpAjpjjApHH
ahaaahAjjpjjApAjAppAApApApApaPAAahjpApAAApHpAHAjjpjjApjHApHHApHjApHHah
JPjpjJaHJhaPJHaPPJapAaapHAApaaAHJhjphPJPjjjpJJahHJJjpPJpJJJPphJPhajpha
JPHAjPhAJPHAjphajphajPhAjpHAJPhaJPHAjpHaJpHaJpHAjPhAJPHAJPHAjPhAjPhAJP
haJPhajphaJPhAJPhaJPHaJpHAjphajphajphaJPhAjPhAjpHaJPhAjphaJPHaJPhaJpha
JPHAjpHAJPHAjphajPhAjPhAjpHAJPHAJPHaJpHaJpHaJpHAjPhAJPHAJPpHjJPpahHpAH
hPppApAjJJJaJjJhAAJapaJJaaHAaaApaappPhPPPPjjaahJAJhAHJJpPPPJAPapHPJAPh
';$_=$"&&s+\n++g;{$"!~s((.))() or$O=$O<<2|index lc"jApH",lc$1;unless (
++$*%4){'~'ne($O=chr$O)?print$O:exit}redo}}$==& sub(liverpole.8/13/06)
Update: modified clue to take advantage of [Ray Smith]'s [id://567237|observations].
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
Re: Letters to the Editor Japh
created: 2006-08-14 09:15:01
How truly COOL!!! ++
I believe that this proves, for once and for all, the inherent superiority of VI and it's children over EMACS.
'scuse me while I duck and run! ;)
Jack
Re: Letters to the Editor Japh
created: 2006-08-14 10:40:44
Note as we saw, it works with emacs, regular expression search also - very nice.
Re: Letters to the Editor Japh
created: 2006-08-14 10:54:18
Oh the humanity! I feel so dirty! lol
Awesome job as always ++!
Awesome job as always ++!
s&&VALKYRIE &&& print $_^q|!4 =+;' *|
Re: Letters to the Editor Japh
created: 2006-08-14 13:32:20
Wow! That is totally awesome. By the time I finished I had 4 or 5 people trying to see what it said.
My sig Sucks!
Re: Letters to the Editor Japh
created: 2006-08-14 17:20:31
Re: Letters to the Editor Japh
created: 2006-08-14 22:03:39
You know, I always suspected there was something sick and twisted or at least seriously amiss in greater Boston. For a while, I thought it was my in-laws (who live on the north shore of Boston) - but this tears it - it's GOTTA be you.
Very well done! [liverpole]++
(Can I only give one ++? Drat!)
--chargrill
$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse split//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^$$C[$%++]}