After working on it a bit, I think this is a better JAPH than my first attempt. A lot of kudos go to Tye for his JAPH earlier this week. He gave me a lot of good ideas. I just hope I used them well!

*,={}or*}=sub{y readPerlMonks?For}or*;=(bus); {*<=[0%1+25]<=(tr ainingandIdeas)=>[2+%0]=>*} =sub{print@_}}*>=*,+0%1+25-2+%0and*#=split$#,qq; lanPutschJoker;;{&}()};*#=*&;&}($_[hex])for (split$,,B687134C7AEF15EF21A39DEF0=>0%1+25)

Replies are listed 'Best First'.
Re: A second JAPH
by c-era (Curate) on Apr 05, 2001 at 23:28 UTC
    This is a great improvement on your first JAPH. I like the extra lines to throw people off, it makes it much harder to figure out. I also like your use of or, and, and typeglobs.