find anagrams

anarchy golf - find anagrams
今朝方投稿した90byteのコード

(loop(set'w #1=(read-line))(format(apply'= 1(map'list(lambda(c)(count c w))#.#1#))"~A
"w))

sortは破壊的だし、と思って避けてたらヘンテコなコードになっていた。
投稿したときは「これで勝つる!」とか割と本気で思ってたけど全然そんな事はなかった。