@a=qw(a h a c k i n g 7323 14188 9872 5552 17985 12496 5422 7576); for(0..7){for$i(0..$a[8+$_]){$a[$_]++;}} $_=join($*,@a[0..7],$/);s|z| |g; print;

Coworked with liz
Upd: 3dan made a nice and obfu-er japh which I quite like!

Replies are listed 'Best First'.
Re: Just been busy ahacking...
by edan (Curate) on Aug 31, 2003 at 15:34 UTC
      Indeed, inspired by that magic. Just a couple of days ago I asked liz the same question about the absence of decrement magic for strings.