The B Programming Language by yuki

f("else":s)=f s
f("then":s)=f s
f("if":s)=(last$c:[b|a>"g"],z)where(a,x)=f s;(b,y)=f x;(c,z)=f y
f(x:s)=(x,s)
m@main=getLine>>=putStrLn.fst.f.words>>m

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page