Re: Fractal Golf anyone?

138 (Melly: 165, liverpole: 156)

map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;$c=X;map{($d,$e)=(2*$d*$e+$a,$
e**2-$d**2+$b);$c=$"if$d**2+$e**2>4}1..50;print$c}0..59;print$/}0..20
[download]

'X' → X
' ' → $"
"\n" → $/
{...;} → {...}
$a=1;while($a>=-1){...;$a-=0.1} →
for(0..20){$a=1-$_/10;...} →
map{$a=1-$_/10;...}0..20
$b=-2;while($b<1){...;$b+=0.05} →
for(1..50){$b=$_/20-2;...} →
map{$b=$_/20-2;...}1..50
$g=$d;$d=$d**2-$e**2+$b;$e=2*$g*$e+$a; →
$d=($g=$d)**2-$e**2+$b;$e=2*$g*$e+$a; →
($d,$e)=($d**2-$e**2+$b,2*$d*$e+$a);

Notes:

My loops counters are even more accurate than yours, since they don't accumulate floating point errors. This causes a slight visual difference which can be eliminated by removing the top and bottom rows (map{$a=.9-$_/10;...}0..18).
I renamed $e and $d to $d and $e to create a parallel with $a and $b.

Spaced out:

map {
   $a = 1-$_/10;
   map{
      $d = $a;
      $e = $b = $_/20-2;
      $c = X;
      map {
         ($d, $e) = (2*$d*$e+$a, $e**2-$d**2+$b);
         $c = $" if $d**2+$e**2 > 4
      } 1..50;
      print $c
   } 0..59;
   print $/
} 0..20
[download]

Comment on Re: Fractal Golf anyone? Select or Download Code

Replies are listed 'Best First'.
Re^2: Fractal Golf anyone? by Melly (Chaplain) on Nov 29, 2006 at 10:40 UTC
Mmm, nice - I thought at first the list assignment for $d and $e was a false economy, but on closer inspection, it somehow avoids the need for a temporary value for $d - care to explain to an idiot? (I assume that the new value for $d is not used in the evaluation of $e) `($d, $e) = (2$d$e+$a, $e2-$d2+$b);` [download] Tom Melly, tom@tomandlu.co.uk	[reply] [d/l]
Re^3: Fractal Golf anyone? by ikegami (Patriarch) on Nov 29, 2006 at 15:52 UTC
The RHS of the assignment is evaluated before either either $d or $e is changed. The intermediate value are saved on Perl's stack.	[reply]
Re^4: Fractal Golf anyone? by Melly (Chaplain) on Nov 29, 2006 at 16:03 UTC
Thanks for the heads-up. That's pretty much what I assumed, but it's nice to have it confirmed. I must admit I find precedence a nightmare, and tend to avoid coding that depends on it. `map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2$d$e+$a,$e 2-$d2+$b);$c=$d2+$e2>4?_:0}1..99;print$c}0..59;print$/}0..20;` [download] Tom Melly, pm@tomandlu.co.uk	[reply] [d/l]
Re^2: Fractal Golf anyone? by Melly (Chaplain) on Nov 29, 2006 at 12:21 UTC
Woo-hoo! - 135! (and 134 if I would settle for '_' instead of $") Basically, lose the initial assignment to $c, and handle $c via a conditional operator `map{ $a=1-$_/10; map{ $d=$a; $e=$b=$_/20-2; map{ ($d,$e)=(2$d$e+$a,$e2-$d2+$b); $c=$d2+$e2>4?$":0 }1..99; print$c }0..59; print$/ }0..20;` [download] Tom Melly, tom@tomandlu.co.uk	[reply] [d/l]
Re^3: Fractal Golf anyone? by Melly (Chaplain) on Dec 01, 2006 at 10:51 UTC
Well, my last version failed to work properly on linux due to v large FP numbers (due to lack of last when the >4 condition is met). Here's a slightly longer version (136) that is linux-safe (and still avoids a last). `map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2$d$e+$a,$e2 -$d2+$b);$c=$d2+$e2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20` [download] Tom Melly, pm@tomandlu.co.uk	[reply] [d/l]