http://qs1969.pair.com?node_id=654385


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*: