Re: Re: (Golf) Mandelbrot Fractal

Replies are listed 'Best First'.
Re: Re: Re: (Golf) Mandelbrot Fractal by belg4mit (Prior) on May 08, 2002 at 20:45 UTC
Application of YuckFoo's and my strategies gets us 134. There is an ever so slight change in the output due to the fudge factor introduced by YuckFoo's test change, switch back to the ()+() for 136 and no change in output. perl -l `map{$i=$_/20-1;print map{$r=$j=$_/20-2.3;$z=$i;$b=$";map{$b='+'if $m=$r$r,($n=$z$z)>4;$z=2$r$z+$i;$r=$m-$n+$j}a..z;$b}0..59}0..39` [download] `-- perl -pew "s/\b;([mnst])/'$1/g"`	[reply] [d/l]
Re: Re: Re: (Golf) Mandelbrot Fractal by pdcawley (Hermit) on May 09, 2002 at 08:51 UTC
And, sticking with the principle that we must iterate as many times as the original and that the output must look the same I've stolen a few ideas from other code and come up with `-l map{$i=$_/20-1;print map{$r=$;=$_/20;$z=$i;$b=$";($m=$r$r)+($n=$z +$z)>4?$b='+':($z=2$r$z+$i,$r=$m-$n+$;)for a..iv;$b}-46..13}0..39` [download] Which wc tells me is 136 chars long (counting 3 for "-l\n" in the same fashion as the perl.golf crowd). Having tried all the shorter solutions I've seen so far in this thread, I've not found one that actually works, but this one does.	[reply] [d/l]
Re: Re: Re: Re: (Golf) Mandelbrot Fractal by belg4mit (Prior) on May 09, 2002 at 12:26 UTC
> I've not found one that actually works, but this one does It is afterall a fractal, and therefore only approximated at the horrendous resolution afforded by the dimensions selected. Whilte {NULE} gave a sepecific output to match, "gives a decent presentation of the Mandelbrot fractal" was also said which I believe warrants some artistic license. UPDATE: I did a little comparison between 165213 and the original output; after alignment, cropping and overlaying. The results are below. There are definitely differences; 88+33 out of 2440 to be exact overlay foo bar #X's are the golfed algorythm showing through. ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++X+++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++ X++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++ X++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++X++ X+++++++++++ +++++++++++++++++++++++++++++++++++ X+++++++ ++++++++++++++++++++++++++++++++++++ X+++++++ +++++++++++++++++++++++++++++++++++ ++++++++ ++++++++++++++++++++++++++++++++++ X+++++++ +++++++++++++++++++++++++++++++++ X+++++ +++++++++++++++++++++++++++++++++ X++++++ +++++++++++++++++++++++X+ +++++ X++++++ +++++++++++++++++++++++ X++ ++++++ ++++++++++++++++++++++ X+ ++++++ ++++++++++++++++++++++ + X++++++ ++++++++++++++++++++ + + X+++++++ ++++++ X++++++++ ++++++++++++++++++++ + + X+++++++ ++++++++++++++++++++++ + X++++++ ++++++++++++++++++++++ X+ ++++++ +++++++++++++++++++++++ X++ ++++++ +++++++++++++++++++++++X+ +++++ X++++++ +++++++++++++++++++++++++++++++++ X++++++ +++++++++++++++++++++++++++++++++ X+++++ ++++++++++++++++++++++++++++++++++ X+++++++ +++++++++++++++++++++++++++++++++++ ++++++++ ++++++++++++++++++++++++++++++++++++ X+++++++ +++++++++++++++++++++++++++++++++++ X+++++++ ++++++++++++++++++++++++++++++++++++X++ X+++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++ X++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++ X++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++X+++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ [download] overlay bar foo #+'s are the original showing through. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+XXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+XX+XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+XX+X++++++X+X+XXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX++X++ XXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX++ XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+X+ XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX++ XXXXXX XXXXXXXXXXXXXXXXXXXXXXXXX+XXXXXX+ XXXXXXX XXXXXXXXXXXXXXXXXXXXXX+X+ +XXX+ XXXXXXX XXXXXXXXXXXXXXXXXXXXXX+ XX+ XXXXXX XXXXXXXXXXXXXXXXXXXXX+ X+ XXXXXX XXXXXXXXXXXXXXXXXXXXX+ + XXXXXXX XXXXXXXXXXXXXXXXXX++ + + XXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXXXXXXXXXXX++ + + XXXXXXXX XXXXXXXXXXXXXXXXXXXXX+ + XXXXXXX XXXXXXXXXXXXXXXXXXXXX+ X+ XXXXXX XXXXXXXXXXXXXXXXXXXXXX+ XX+ XXXXXX XXXXXXXXXXXXXXXXXXXXXX+X+ +XXX+ XXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXX+XXXXXX+ XXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX++ XXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+X+ XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX++ XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX++X++ XXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+XX+X++++++X+X+XXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+ XXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+XX+XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+XXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX [download] `-- perl -pew "s/\b;([mnst])/'$1/g"`	[reply] [d/l] [select]


Pathologically Eclectic Rubbish Lister
	PerlMonks