map{$i=$_*.05-1;map{$r=$j=$_*.05-2.3;$z=$i;$b=$";for(a..iv){$m=$r*$r;$ +n=$z*$z; $m+$n>4?$b="+":($z=2*$r*$z+$i,$r=$m-$n+$j)}print$b}0..59;print$/}0..39
148 for a tie
map{$i=$_*.05-1;map{$r=$j=$_*.05-2.3;$z=$i;$b=$";for(a..iv){($m=$r*$r) ++ ($n=$z*$z)>4?$b="+":($z=2*$r*$z+$i,$r=$m-$n+$j)}print$b}0..59;print$/} +0..39
Meanwhile, in the chatterbox...
demerphq $i=$_*.05-1; could be written as $i=$_/2-1; couldnt it?
belg4mit no, it's not .5
belg4mit although /20 works ;-)
146! @ Wed May 8 14:42:11 EDT 2002
map{$i=$_/20-1;map{$r=$j=$_/20-2.3;$z=$i;$b=$";for(a..iv){($m=$r*$r)+ ($n=$z*$z)>4?$b="+":($z=2*$r*$z+$i,$r=$m-$n+$j)}print$b}0..59;print$/} +0..39
--
perl -pew "s/\b;([mnst])/'$1/g"
In reply to Re: Re: (Golf) Mandelbrot Fractal
by belg4mit
in thread (Golf) Mandelbrot Fractal
by {NULE}
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |