code-golf - Code Golf : find all anagrams

Question

一个字就是一个anagram如果该单词中的字母可以重新排列以形成不同的单词。
任务:

通过字符数找到给定单词列表的所有字谜集的最短源代码。

空格和新行应该算作字符

使用代码标尺
---------10--------20--------30--------40--------50---- ----60--------70--------80--------90--------100-------110- ------120

输入:
list of words来自标准输入，每个单词以新行分隔。
例如

A
A's
AOL
AOL's
Aachen
Aachen's
Aaliyah
Aaliyah's
Aaron
Aaron's
Abbas
Abbasid
Abbasid's

输出:
所有字谜集，每集由单独的行分隔。
示例运行:

./anagram < words
marcos caroms macros
lump's plum's
dewar's wader's
postman tampons
dent tend
macho mocha
stoker's stroke's
hops posh shop
chasity scythia
...

我有一个 149 个字符的 perl 解决方案，我会在更多人发布后立即发布:)
玩得开心!
编辑:澄清

假设字谜不区分大小写(即大小写字母等效)

只应打印超过 1 个项目的集合

每组字谜只能打印一次

字谜集合中的每个单词应该只出现一次

EDIT2:更多说明

如果两个单词仅大小写不同，则应将它们折叠为同一个单词，由您决定折叠单词使用哪种大写方案

只要每个单词以某种方式分隔，例如，单词集就必须以新行结尾。逗号分隔或空格分隔有效。我知道有些语言内置了快速数组打印方法，因此如果它不输出空格分隔的数组，这应该允许您利用它。

Answer 1

Perl，59 个字符

chop,$_{join'',sort split//,lc}.="$_ "for<>;/ ./&&say for%_

请注意，这需要 Perl 5.10(对于 say 函数)。