Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

For this Valentine's day...

by sandeepsasi (Initiate)
on Feb 04, 2012 at 02:52 UTC ( #951752=obfuscated: print w/ replies, xml ) Need Help??

perl -le 'map{$y=$_/12;print map{("@"," ")[-38>$_||$_>-36&&($_**2/800+ +$y**2-1)**3>$_**2*$y**3/1600&&0.2*($_-48)**2-15>15*$y||15*$y>($_-48)* +*2-12]}-40..60}reverse-15..15'

Comment on For this Valentine's day...
Download Code
Re: For this Valentine's day...
by trizen (Friar) on Feb 04, 2012 at 21:58 UTC
    Nice one!
    Here is a modified version with a better heart :)
    perl -E 'map{$y=$_/12;say map{("@",$")[-38>$_||$_>-36&&($_**2/1024+$y**2-.8)**3>$_**2*$y**3/1024&&.2*($_-48)**2-15>15*$y||13*$y>($_-48)**2-8]}-60..60}reverse-13..15'
      Thanks :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://951752]
Approved by ww
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (8)
As of 2014-11-25 23:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (160 votes), past polls