Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

The Perl Diamond

by BronzeWing (Monk)
on Aug 02, 2002 at 16:16 UTC ( #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 ((-($.) ..($. ))) ;

-BronzeWing


The Secret to Fortune Cookies in One Line
print join("... in bed", `fortune fortunes` =~ m/^(.*)(\.|\?|\!)$/), "\n";

Comment on The Perl Diamond
Select or Download Code
Re: The Perl Diamond
by cecil36 (Monk) 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!
      Very nice. Another fun visual effect is to use a number two times the character width of your terminal, and then scroll up.
Re: The Perl Diamond
by mtve (Chaplain) on Aug 06, 2002 at 19:22 UTC
    cutting off odd faces of crystal:
    print $"x+abs ,$-x2x($. -abs),0,$/, for-+($.= pop||6) ..$.;

Log In?
Username:
Password:

What's my password?
Create A New User
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? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (13)
As of 2014-12-22 17:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (126 votes), past polls