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