7 lines
230 B
APL
7 lines
230 B
APL
anagrams←{
|
|
tie←⍵ ⎕NTIE 0
|
|
dict←⎕NREAD tie 80(⎕NSIZE tie)0
|
|
boxes←((⎕UCS 10)≠dict)⊆dict
|
|
ana←(({⍵[⍋⍵]}¨boxes)({⍵}⌸)boxes)
|
|
({~' '∊¨(⊃/¯1↑[2]⍵)}ana)⌿ana ⋄ ⎕NUNTIE
|
|
}
|