Faster japh
ambrus
created: 2006-10-17 15:48:38
use warnings; use strict; @,=unpack"C*","mG\e:*\cZM\b?~O\xf".
"*qGH_t2#OS/HU\ckE\34.OM\b";for$,(0..4){1<<$,&$_,or$,[uc]+=$,
[2**$,+abs]-=64*($,[lc]*=2),for+0..31}print+chr($_%127)for@,,

This is a nicer variant of [id://577876] using a simple idea from [id://309529].

perlmonks.org content © perlmonks.org and ambrus

prlmnks.org © 2006 edmund von der burg (eccles & toad)

v 0.03