http://www.perlmonks.org?node_id=187138

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