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 Sierpinskiのgasket load 'viewmat' quo =. 4 : 0

wikipedia:J (プログラミング言語) http://jsoftware.com/stable.htm ここから、PocketPC版をダウンロードして、\に展開、\j602\j602.lnkで起動できる。容量も4MBくらいと軽い。インタプリタ。コマンドプロンプトとか導入する必要がない。超手軽。J言語はソ…