-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