Anagrams: Difference between revisions

m
(Add CLU)
Line 7,986:
Works with Transd v0.43.
 
<lang scheme>#lang transd
#lang transd
 
MainModule: {
Line 7,993 ⟶ 7,992:
(with fs FileStream() words String()
(open fs "/mnt/proj/tmp/unixdict.txt")
(textin words fs words)
(textout -|
(sndsplit words) (max-element
(regroupgroup-by (λ s String() -> String() (sort (cp s))))
(groupregroup-by (λ v Vector<String>() -> Int() (size v)))
(split wordsmax-element)
(λ s String() -> String() (sort s))snd)
(λ v Vector<String>() -> Int() (size v)))))))textout)
)
))
}</lang>{{out}}
<pre>
111

edits