find anagrams by 51b

-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