Anagrams: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) No edit summary |
MaiconSoft (talk | contribs) |
||
Line 1,975: | Line 1,975: | ||
end; |
end; |
||
if Count > 0 then |
if Count > 0 then |
||
Dict[i] := format('%.4d', [Count]) + ',' + words |
Dict[i] := format('%.4d', [Count+1]) + ',' + words |
||
else |
else |
||
Dict[i] := ''; |
Dict[i] := ''; |
||
Line 2,016: | Line 2,016: | ||
Time pass(s): 90,92 sec |
Time pass(s): 90,92 sec |
||
The anagrams that contain the most words has |
The anagrams that contain the most words has 5 chars: |
||
Words: |
Words: |
||
Line 2,027: | Line 2,027: | ||
abel,able,bale,bela,elba |
abel,able,bale,bela,elba |
||
</pre> |
</pre> |
||
=={{header|E}}== |
=={{header|E}}== |