Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 30 lines (29 sloc) 1.42 KB
#!/usr/bin/perl
$_=$,=q{#!/usr/b
in/perlN$_=$,=q{J};$x=q{K};
eval$xN };$x=q{y/
//d;s% N%"\n".
" "x26 %ex;s]N]
"\n"]e ;s.K .$x .ex*8;s
`J`$, `e;$L= /^a/&&' for($y=
-1.2;$y <1.2;$y+= .04){for($ x=-2;$x
<1;$x+= .02 ){$a=$ b=$ i=0;($ a,$b)=
($a*$a -$ b*$b+ $x ,2*$b* $a+$y),
+$i++ while$i <99&&$ a*$a+$
b*$b< 4;print $i>98? ":":"#"
}print "\n"}' ||(/^ n/x?q{
$_=q| #(Y@<& "&<Z; &,/"-`
/Z]`:Z `),;$/ `(@Y, /<@`;<
]`'%?< \;(`'$ /$:$? `%?0.(;
'`Z;,Y !01`=$ Y`;$; <`;<@:
<`-,:: (+`'Z$ ,?&`? ,&+,(`
,;.^`( [,/:;. ^`|}: /^lo/?
q{$_=q |I"/<[ ("^<Z "L<Z,@
(`|}:/^ mu/x?' $_=q|SY(=+(
;"D</$; `|':$P ++).';y'
."~!-/". mu
x$S.":-" .'@Y'
.'-`\x20' .'\xa
~_\x20Na'. '-z\xa~d
,s/j/08-09:/ if!$P;print'for
shift;eval$L};eval$x