sub f(x,y,s$)if(!x)print s$ if(y<x)f(x-1,y,s$+"0") if(y)f(x-1,y-1,s$+"1") end sub input""a,b f(a,b)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page