find anagrams by uru

#define F;readln(s);for i:=1to length(s)do a:=a+[s[i]]
var a,b:set of char;s:string;i:word;begin
F;b:=a;repeat
a:=[]F;if(a=b)then writeln(s)until 1=0end.

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

download

return top