|Perl: the Markov chain saw|
Rusty?by acid06 (Friar)
|on Oct 03, 2004 at 05:51 UTC||Need Help??|
Note1: If you're on *nix I guess you need to change 'cls' to the right clear screen command.
Note2: If you leave it running for a while it'll eventually die.
Note3: It'll complain if warnings are turned on
PS: Don't know if the 'use subs' ruined some fun, but I guess that the main thing is figuring out how it works, not trying to find hidden code.
Update: As jdalbec noted, setting on autoflush gives betters results, so I added that BEGIN "hack" in order to maintain the "metric" of the code.
perl -e "print pack('h*', 16369646), scalar reverse $="