Anagrams: Difference between revisions

== {{header|Factor}} ==

"resource:unixdict.txt" utf8 file-lines

[ [ natural-sort >string ] keep ] { } map>assoc sort-keys

[ [ first ] compare +eq+ = ] monotonic-split

dup 0 [ length max ] reduce '[ length _ = ] filter [ values ] map .

<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>