Anagrams: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) |
(Added Wren) |
||
Line 8,207: | Line 8,207: | ||
[EILV] evil, levi, live, veil, vile |
[EILV] evil, levi, live, veil, vile |
||
</PRE> |
</PRE> |
||
=={{header|Wren}}== |
|||
{{libheader|Wren-sort}} |
|||
<lang ecmascript>import "io" for File |
|||
import "/sort" for Sort |
|||
var words = File.read("unixdict.txt").split("\n").map { |w| w.trim() } |
|||
var wordMap = {} |
|||
for (word in words) { |
|||
var letters = word.toList |
|||
Sort.insertion(letters) |
|||
var sortedWord = letters.join() |
|||
if (wordMap.containsKey(sortedWord)) { |
|||
wordMap[sortedWord].add(word) |
|||
} else { |
|||
wordMap[sortedWord] = [word] |
|||
} |
|||
} |
|||
var most = wordMap.keys.reduce(0) { |max, key| (wordMap[key].count > max) ? wordMap[key].count : max } |
|||
for (key in wordMap.keys) { |
|||
if (wordMap[key].count == most) System.print(wordMap[key]) |
|||
}</lang> |
|||
{{out}} |
|||
<pre> |
|||
[abel, able, bale, bela, elba] |
|||
[alger, glare, lager, large, regal] |
|||
[evil, levi, live, veil, vile] |
|||
[angel, angle, galen, glean, lange] |
|||
[elan, lane, lean, lena, neal] |
|||
[caret, carte, cater, crate, trace] |
|||
</pre> |
|||
=={{header|Yabasic}}== |
=={{header|Yabasic}}== |