2004/08/04

c.l.lで最近話題になった、テキスト端末用Mandelbrot集合。Gauche向けに ちょっと変えてsignatureにも押し込めるように詰めてみた。

(do((y -1(+ y .1)))((> y 1))(do((x -2(+ x .04)))((> x 1))(let1
a(+ x(* y +i))(let l((z a)(c 126))(let1 q(+ a(* z z))(or(and(<
(abs q)2)(> c 32)(l q(- c 1)))(write-byte c))))))(newline))

でも出力を見ると、NetHackのspecial levelのように見えて仕方がない。

Tags: Programming, Gauche