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";

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!
      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 (Deacon) 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 having an uproarious good time at the Monastery: (5)
As of 2016-07-23 11:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?


















    Results (220 votes). Check out past polls.