minimal PostScript interpreter by Lost_dog

-module(o).
-export([m/0]).
m()->{_,S}=regexp:split(io:get_line(''),"\s*"),m(S,-1).
m(["="|Y],R)->io:format("~b~n",[R]),m(Y,R-1);
m([X|Y],R)->m(Y,R+1);
m([],R)->e.

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

download

return to the top page