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'