On Wed, Nov 9, 2011 at 3:02 PM, Sandro CAZZANIGA <cazzaniga.san...@gmail.com
> wrote:

> Hi,
>
> I'm new to this list and I'll send some JAPH's and little code, and I will
> happy to read yours. :)
>
> Cheers.
>

Huh, I didn't even know I was on this mailing list.
Cool.

This inspired me to write my first JAPH ever. Nothing spectacular, but
requires perl 5.14, because of shenanigans. And I cheat for the 'k'.

perl -wE 'BEGIN {$SIG{__WARN__}=sub{$_.=substr(shift,0,1)}} J::J(1); map
{},*_=
undef,seekdir(_,0),telldir(_),accept(_,0),$SIG{Derpy}=1,{_=>},tell(_),eval"s///sand
/1/; if (1) {} elseif (1) {};", readdir(_), printf(_), eval { next },
readdir(_), listen(_,0), eval"keys(_)", accept(_,0); $x = closedir(_); warn
"k"; {sub { next }->()} $x = readline(_); sub J::J (\%) {}; say map "\u\L$_
", m!(?x)\U@{[map "(\\x{$_})",4,7,4,6]}!g'

Reply via email to