Anonymous user
Anagrams: Difference between revisions
no edit summary
No edit summary |
|||
Line 5,577:
{"levi","live","vile","evil","veil"}
]</lang>
=={{header|Red}}==
<lang Red>Red []
m: make map! [] 25000
maxx: 0
foreach word read/lines http://www.puzzlers.org/pub/wordlists/unixdict.txt [
sword: sort copy word ;; sorted characters of word
either find m sword [
append m/:sword word
maxx: max maxx length? m/:sword
] [
put m sword append copy [] word
]
]
foreach v values-of m [ if maxx = length? v [print v] ]
</lang>
{{out}}
<pre>abel able bale bela elba
alger glare lager large regal
angel angle galen glean lange
caret carte cater crate trace
elan lane lean lena neal
evil levi live veil vile
>>
</pre>
=={{header|REXX}}==
| |||