Koch Island by nn

n=$1{for(o="/\\\n\\/\n";n--;o=s)for(s=j=_;v=substr(o,++j,1);k=0)for($0="9 2 3 10 4 11 8 5";k++<4;)a[k]=v>RS?a[k]substr("    /   \\/\\ \\/",v>FS?$(2*k-(v>"/")):1,4):X[s=s a[k]v]}$0=o

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page