Re^2: Fractal Golf anyone?

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,$e**2-$d**2+$b);
      $c=$d**2+$e**2>4?$":0
    }1..99;
    print$c
  }0..59;
  print$/
}0..20;
[download]

Tom Melly, tom@tomandlu.co.uk

Comment on Re^2: Fractal Golf anyone? Download Code

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

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,$e**2
-$d**2+$b);$c=$d**2+$e**2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20
[download]

Tom Melly, pm@tomandlu.co.uk

[reply]
[d/l]