Recursive Expansion by foo

x,y,X,Y,r;
main(c,w){
\x09w=1<<atoi(gets(w));
\x09for(;Y<w;Y++){
\x09\x09printf("\n|");
\x09\x09write(1," ____"+(Y>0),4);
\x09\x09for(X=0;X<w*2;X++){
\x09\x09\x09c=1;
\x09\x09\x09r=w;y=Y;x=X;
\x09\x09\x09for(;r;){
\x09\x09\x09\x09c=530675400>>x/r*4+y/r*2+c*8&3;
\x09\x09\x09\x09x%=r;
\x09\x09\x09\x09y%=r;
\x09\x09\x09\x09r/=2;
\x09\x09\x09}
\x09\x09\x09printf("%.2s","_| |___|"+c*2);
\x09\x09}
\x09}
}

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

download

return to the top page