Recursive Expansion by mitchs

f=->i,j,m{m<2?j:[f[i%n=m/2,j-=n,n],~f[j%n,i,n]][j/m]}
s' '+?_*~-(4*n=1<<gt.he),n.mp{|i|?|+(n*2).mp{|j|'__ '[r=f[i,j,n]]+'_||'[r]}.j}

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

download

return to the top page