Anagrams: Difference between revisions
m
Replace deprecated function
imported>Arakov |
m (Replace deprecated function) |
||
(2 intermediate revisions by one other user not shown) | |||
Line 3,227:
auto dictionary := new Map<string,object>();
File.assign("unixdict.txt").forEachLine::(word)
{
var key := word.normalized();
Line 3,237:
};
item.append
};
dictionary.Values
.quickSort::(former,later => former.Item2.Length > later.Item2.Length )
.top
.forEach::(pair){ console.printLine(pair.Item2) };
var end := now;
Line 3,255:
{{out}}
<pre>
alger,glare,lager,large,regal▼
angel,angle,galen,glean,lange▼
abel,able,bale,bela,elba
▲alger,glare,lager,large,regal
caret,carte,cater,crate,trace▼
evil,levi,live,veil,vile
elan,lane,lean,lena,neal
▲caret,carte,cater,crate,trace
▲angel,angle,galen,glean,lange
are,ear,era,rae▼
dare,dear,erda,read
diet,edit,tide,tied▼
cereus,recuse,rescue,secure▼
ames,mesa,same,seam
emit,item,mite,time
amen,mane,mean,name
enol,leon,lone,noel
esprit,priest,sprite,stripe
beard,bread,debar,debra▼
hare,hear,hera,rhea
apt,pat,pta,tap
aires,aries,arise,raise
keats,skate,stake,steak
▲are,ear,era,rae
▲beard,bread,debar,debra
▲cereus,recuse,rescue,secure
▲diet,edit,tide,tied
</pre>
Line 8,169:
var integer: maxLength is 0;
begin
dictFile :=
while hasNext(dictFile) do
readln(dictFile, word);
|