"Unbalanced" because of the unmatched parentheses, braces, and brackets. "Introspective" because ... well, you'll have to figure that out for yourself.
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
This works with Perl version 5.8.6 (in Linux), and 5.8.7 (in Windows), and possibly with other versions of Perl (though I can't be sure).
My apologies if this has been done before (and please let me know if so). I came up with the idea just this evening, but one can never be sure whether or not similar prior art exists.
( $ ||= open$ ) ,$ ^X) ;; X :; { $ ;+= print if ($_ = lc getc $)) eq# } ( split$ ,,q#- just another perl hacker# ) [ $ ;]; eof$ ( ?die$ /: redo } 060630# ]
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Unbalanced, Introspective Japh
by Hue-Bond (Priest) on Jul 01, 2006 at 06:24 UTC | |
by liverpole (Monsignor) on Jul 01, 2006 at 12:40 UTC | |
by Hue-Bond (Priest) on Jul 01, 2006 at 12:51 UTC | |
by jdalbec (Deacon) on Jul 02, 2006 at 04:14 UTC | |
Re: Unbalanced, Introspective Japh
by jdalbec (Deacon) on Jul 01, 2006 at 20:55 UTC | |
Re: Unbalanced, Introspective Japh
by wulvrine (Friar) on Jul 05, 2006 at 11:15 UTC | |
Re: Unbalanced, Introspective Japh
by starbolin (Hermit) on Jul 16, 2006 at 18:40 UTC |
Back to
Obfuscated Code