binary increment by NearO

t=reverse
f('1':x)='0':f x
f(_:x)='1':x
f x=x
m@main=getLine>>=putStrLn.t.f.t>>m

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

download

return to the top page