Anagrams: Difference between revisions

=={{header|Transd}}==

Works with Transd v0.43.

<lang scheme>

#lang transd

MainModule: {

_start: (λ

(with fs FileStream() words String()

(open fs "/mnt/proj/tmp/unixdict.txt")

(textin words fs)

(textout

(snd (max-element

(regroup-by

(group-by

(split words)

(λ s String() -> String() (sort s)))

(λ v Vector<String>() -> Int() (size v))))))))

}

}</lang>{{out}}

<pre>

[[abel, able, bale, bela, elba],

[caret, carte, cater, crate, trace],

[angel, angle, galen, glean, lange],

[alger, glare, lager, large, regal],

[elan, lane, lean, lena, neal],

[evil, levi, live, veil, vile]]

</pre>