minimal PostScript interpreter by 51b

-module m.
-export[m/0].
m()->f(-1).
f(N)->case io:fread('',"~s")of{_,["="]}->io:write(N),io:nl(),f(N-1);{ok,_}->f(N+1);_->0end.

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

download

return to the top page