-module a. -export[m/0]. m()->case io:fread('',"~d~d")of{_,[A,B]}->io:format("~p ",[round((A+B*B/A)/4)]),m();_->0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page