binary increment by feuermonster

r=reverse
m@main=getLine>>=putStrLn.r.b.r>>m
b[]=[]
b(q:x)|q<'1'='1':x|1>0='0':b x

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

download

return to the top page