A little quickie. Its novelty is that it doesn't simply unscramble itself to generate its output. I can't guarantee it will run on every system, but I think it should, if you have a complete installation of Perl. It certainly works with ActivePerl.
Caution: Contents may have been coded under pressure.
Bonus points if you guess what the F in the title is for. (No, it's not vulgar.)
Update: ambrus notes that changes in 5.10.0 cause it to print twice.s;;^(?:.*) -+ [\$^]|;,y/?$)](:.[*^+/racheldjopq/for$ARGV[0];print/"(.* +)"/for<>
Caution: Contents may have been coded under pressure.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: JAPF
by ambrus (Abbot) on Oct 21, 2005 at 21:33 UTC | |
by Roy Johnson (Monsignor) on Oct 21, 2005 at 21:42 UTC | |
by ambrus (Abbot) on Oct 21, 2005 at 21:45 UTC | |
Re: JAPF
by Not_a_Number (Prior) on Oct 21, 2005 at 17:58 UTC | |
by Roy Johnson (Monsignor) on Oct 21, 2005 at 18:07 UTC |
Back to
Obfuscated Code