#!/usr/bin/perl -l $_ = q[ for ( @_ ) { push @_, sort grep /\w+/, @_ } print unpack 'A*', pack 'B*', join '', reverse map { length ( $_ ) >> 1 } split /\S+/ ] and eval
This gets goofed when pasting from NS6, so use 'd/l code' link as appropriate.
No modules, semicolons, mirrors or smoke.
(ok, maybe a little smoke)
Spoiler tomorrow. There's a word for the type of encoding used, and I hope someone can remind me what it is :)
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: japh's japh II
by japh (Friar) on Jan 22, 2002 at 01:47 UTC |