どさにっき2009年12月28日(月) ■ まんでるぶろ _ 仕事納めの日には仕事なんかしないであそぶ。なんとなく、フラクタルなお絵描き。マンデルブロ集合。あえて golf 的にコード圧縮。 _ awk 版(mawk or gawk)。140バイト。 > cat mandelbrot.awk BEGIN{print"P2",w=j=512,w,256;for(;j;--j)for(i=0;i++<w;){for(p=q=n=0;n++<256&&p^2+q^2<4;p=k){k=p^2-q^2+x+i*l/w;q=2*p*q+y+j*l/w}print 257-n}} > awk -v x=-2 -v y=-1.5 -v l=3 -f mandelbrot.awk lua 版。167バイト。 > cat mandelbrot.lua w=512 print("P2",w,w,256)for j=w,
