Re: Re: Re: Re: (Golf) Mandelbrot Fractal

Knock off a couple more. 26 iterations is plenty, so a..iv can be a..z. Also ($m=$r*$r)>4 is a sufficient test, so

($m=$r*$r)+($n=$z*$z)>4 

#becomes:

$n=$z*$z,($m=$r*$r)>4
[download]

YuckFoo

Update: Thanks belg4mit, changed semi-colon to comma to work in demerphq's code which becomes:

map{$i=$_/20-1;map{$r=$j=$_/20-2.3;$z=$i;$b=$";$n=$z*$z,($m=$r*$r)>4
?$b="+":($z=2*$r*$z+$i,$r=$m-$n+$j)for a..z;print$b}0..59;print$/}0..3
+9
[download]

Comment on Re: Re: Re: Re: (Golf) Mandelbrot Fractal Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: (Golf) Mandelbrot Fractal by belg4mit (Prior) on May 08, 2002 at 20:10 UTC
Your change in the test doesn't work with demerphq's code. It does work in my 146 though (for a total of 143). map{$i=$_/20-1;map{$r=$j=$_/20-2.3;$z=$i;$b=$";$n=$z$z;($m=$r$r)>4? $b="+":($z=2$r$z+$i,$r=$m-$n+$j)for a..z;print$b}0..59;print$/}0..39 __END__ ++++++++++++++++++++++++++ +++++++ +++++++++++++++++ ++++++++ ++++++++++++ + +++++++++ ++++++++++ ++++++++++ ++++++++ +++++++++++ ++++++ ++++++++++++ +++ +++++++++++++ ++++++++++++++ + ++++++++++++ ++ ++++++++++ +++ ++++++++++ ++++ ++++++++ + +++++ +++++++++ ++++++ ++++++++ ++++++ ++++++++ +++++++ +++++++ +++++++ +++++++ ++++++++ ++++++ ++++++++ ++++++ ++++++++ ++++++ ++++++++ ++++++ ++++++++ ++++++ ++++++++ +++++++ ++++++++ +++++++ +++++++ ++++++++ +++++++ ++++++++ ++++++ +++++++++ ++++++ ++++++++ + +++++ ++++++++++ ++++ ++++++++++ +++ ++++++++++++ ++ ++++++++++++++ + +++++++++++++ ++++++++++++ +++ +++++++++++ ++++++ ++++++++++ ++++++++ +++++++++ ++++++++++ ++++++++ ++++++++++++ + +++++++ +++++++++++++++++ [download] `-- perl -pew "s/\b;([mnst])/'$1/g"`	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Re: Re: (Golf) Mandelbrot Fractal
by belg4mit (Prior) on May 08, 2002 at 20:10 UTC

demerphq

map{$i=$_/20-1;map{$r=$j=$_/20-2.3;$z=$i;$b=$";$n=$z*$z;($m=$r*$r)>4?
$b="+":($z=2*$r*$z+$i,$r=$m-$n+$j)for a..z;print$b}0..59;print$/}0..39
__END__
++++++++++++++++++++++++++
+++++++ +++++++++++++++++
++++++++ ++++++++++++ +
+++++++++ ++++++++++
++++++++++ ++++++++
+++++++++++ ++++++
++++++++++++ +++
+++++++++++++
++++++++++++++                                             +
++++++++++++                                              ++
++++++++++                                               +++
++++++++++                                              ++++
++++++++ +                                             +++++
+++++++++                                             ++++++
++++++++                                              ++++++
++++++++                                             +++++++
+++++++                                              +++++++
+++++++                                             ++++++++
++++++                                              ++++++++
++++++                                              ++++++++
++++++                                              ++++++++
++++++                                              ++++++++
++++++                                              ++++++++
+++++++                                             ++++++++
+++++++                                              +++++++
++++++++                                             +++++++
++++++++                                              ++++++
+++++++++                                             ++++++
++++++++ +                                             +++++
++++++++++                                              ++++
++++++++++                                               +++
++++++++++++                                              ++
++++++++++++++                                             +
+++++++++++++
++++++++++++ +++
+++++++++++ ++++++
++++++++++ ++++++++
+++++++++ ++++++++++
++++++++ ++++++++++++ +
+++++++ +++++++++++++++++
[download]

-- perl -pew "s/\b;([mnst])/'$1/g"

[reply]
[d/l]