It runs with warnings and strict on, and even takes a command-line parameter. For your viewing pleasure, the Perl Diamond!
; $.= $ARGV [$-*$-] ||6;print $"x(abs($_) ),$-x(($.-abs ($_))*(2)+1 ),($/)for ((-($.) ..($. ))) ;
-BronzeWing
The Secret to Fortune Cookies in One Line
print join("... in bed", `fortune fortunes` =~ m/^(.*)(\.|\?|\!)$/), "\n";
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: The Perl Diamond
by cecil36 (Pilgrim) on Aug 03, 2002 at 01:57 UTC | |
by HiFoo (Scribe) on Aug 05, 2002 at 18:55 UTC | |
Re: The Perl Diamond
by mtve (Deacon) on Aug 06, 2002 at 19:22 UTC |
Back to
Obfuscated Code