ON bit fixed by pooq(twobit)

sub f(x,y,s$)if!x?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