Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

The Perl Diamond

by BronzeWing (Monk)
on Aug 02, 2002 at 16:16 UTC ( [id://187138]=obfuscated: print w/replies, xml ) Need Help??

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
   ((-($.)
    ..($.
     )))
      ;

[download]

-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
    If you want a cool visual effect, run this script in an xterm or dos window and pass a large number (I ran it with 1000) to the script. Otherwise, very well done!
[reply]
      Very nice. Another fun visual effect is to use a number two times the character width of your terminal, and then scroll up.
[reply]
Re: The Perl Diamond
by mtve (Deacon) on Aug 06, 2002 at 19:22 UTC
    cutting off odd faces of crystal: 
         print
    $"x+abs
   ,$-x2x($.
  -abs),0,$/,
   for-+($.=
    pop||6)
     ..$.;

    [download]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://187138]
Approved by rob_au
Front-paged by jeffa
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2024-04-25 15:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found