-module(a). -export([m/0]). m()->f(io:get_line('')). f(S)->L={lists,sort},T=io:get_line(''),T<z orelse(L(S)/=L(T)orelse io:fwrite(T)<0)<f(S).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page