APL/Jでフラクタルを描く
Sierpinskiのtriangle
load 'viewmat' xor=.(+.(*.-.)*.) f =. 3 : 0 if.y=0 do.1 else.t=.f[y-1 (t,0)xor(0,t) end. ) viewmat f"0 i.256
load 'viewmat' xor=.(+.(*.-.)*.) f =. 3 : 0 if.y=0 do.1 else.t=.f[y-1 (t,0)xor(0,t) end. ) viewmat f"0 i.256