Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
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?
[karlgoethebier]: ...because of sausage and luncheon meats...
[karlgoethebier]: ... the ultimate coding experience for everyday people...
[karlgoethebier]: ...like me
[marto]: what a mess
[karlgoethebier]: perhaps i need a zerial?
[Corion]: marto: Heh - I think that's a nice contractual trap, "you will not use other gods/engines besides ours" ;)
[Corion]: But if the base intention was to have CIG as "co-developers" who (have to) contribute changes back to the mainline, it makes sense to have them use no other engine
[marto]: yes, I hear that development house has been on its last legs for a couple of years now
[Corion]: Is anybody aware of what makes Android Oreo better than Android Nougat? I'm not sure if the architectural changes (etc) are there already that make upgrading an Oreo-kernel phone to a newer Android userland (Lineage OS) version feasible

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (7)
As of 2017-12-14 10:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (389 votes). Check out past polls.

    Notices?