Data update

Task/Mandelbrot-set/Inform-7/mandelbrot-set-2.inf

@@ -0,0 +1,16 @@
+(function mandelbrot width height depth
+  (.. str
+    (for yy (range height)
+         xx (range width)
+      (let c_re (/ (* (- xx (/ width 2)) 4) width)
+           c_im (/ (* (- yy (/ height 2)) 4) width)
+           x 0 y 0 i 0)
+      (while (and (<= (+ (** x) (** y)) 4)
+                  (< i depth))
+        (let x2 (+ c_re (- (** x) (** y)))
+             y  (+ c_im (* 2 x y))
+             x  x2
+             i  (inc i)))
+      (strn ((zero? xx) "\n") (i "ABCDEFGHIJ ")))))
+
+(mandelbrot 48 24 10)