Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Mandelbrot set

by benizi (Hermit)
on Dec 02, 2007 at 05:47 UTC ( #654385=note: print w/replies, xml ) Need Help??


in reply to Mandelbrot set

Changing a single character (the '/' three lines up from PERL) to '"' (double-quote) makes it look much better on light-background terminals. Changing two characters makes it look the same regardless of the terminal's background:

9c9 < ?6>0;1-# :2#-%j$6-#l/#:gns)%h<% --- > ?6>0;1-# :5#-%j$6-#l!#:gns)%h<%

Yielding:

#!/usr/bin/perl $_=' lx)L %j-%h-%k-% s-%y-%x(:gns%x)X ,04//05(zgns%y)1//6 8(zqshou#]dZ#-%j\'04 ?6>0;1-# :5#-%j$6-#l!#:gns)%h<% j<%s<1:%k<%s+%s,%h+%h,3*%y.34-%h <3+%s+%h*%x.01-%k+REKCAHX%k*%h+%h= 00\'JUST\'ANOTHER%jPERL**=000:%s <%k(zqs houHACKER##:|||qshou# ]dZ1l#:';s/\s{1,}//gm; s/[\x41-\x58]//gm; s/(.)/chr(ord($1) ^0x1)/ge; eval ;qaa

Or, if your terminal's using UTF-8, Happy Mandelbrot:

#!/usr/bin/perl $_=' dw`m !#cholned!]y z42|]yz45|]yz55|]yz 5g|]yz44|]yz45|-&;tug9& #:lx)L%j-%h-%k-%s-%y-%x(:g ns%x)X, 04//05(zgns%y)1//68(zqshou# ]dZ#-%j\'04?6 >0;1-#:2#- %j$6-#l]yz372`|#: gns)%h<%j<%s<1:%k<%s+%s,%h+%h,3*%y.34-%h<3+%s+%h* %x.01-%k+REKCAHX%k*%hJUST+%h=00\'ANOTHER\' %jPERL* *=000:%s<%k(zqshouHACKER##: |||qshou#]dZ1l#:';s<\s+> <>gme;y/\101-\130//d; s/(.)/chr(ord($1 )^0x1)/ge; eval ;qaa

Replies are listed 'Best First'.
Re: Mandelbrot set
by benizi (Hermit) on Dec 03, 2007 at 00:50 UTC

    Happy Mandel didn't look sufficiently Mandelbrot-esque. (Looked better in my terminal than in whatever font Firefox is using.) Here's another attempt:

    #!/usr/bin/perl $_=' dw`m!# cholned! ]yz42|]yz45|]yz 55 |]yz5g|]yz44|]yz45|- &;tug9&#:lx)L%j-%h-%k- %s-%y-%x(:gns%x)X,04//05(zgns%y) 1//68(zqshou#]dZ#-%j\'04?6 >0;1 -#:2#- %j$6-#l]yz372`|#:gns)%h<%j< %s<1:%k<%s+%s,%h+%h,3*%y.34-%h<3+%s+%h* %x.01-%k+REKCAHX%kJUST*%ANOTHERh+% h=00\'\'%jPERL**=0HACKER00:%s<% k(zqshou##:|||qshou#]dZ1l#';s/\s +//gmx;y/\101-\130//d; s/(.)/chr(ord($1)^1) /ge;eval;q:c>'0 m+ `i*ra8zp 89|3&x ge*:

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://654385]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (2)
As of 2022-08-17 19:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?