20 lines
423 B
Text
20 lines
423 B
Text
OPTION COLLAPSE TRUE
|
|
|
|
DECLARE idx$ ASSOC STRING
|
|
|
|
FOR w$ IN LOAD$("unixdict.txt") STEP NL$
|
|
|
|
set$ = SORT$(EXPLODE$(w$, 1))
|
|
|
|
idx$(set$) = APPEND$(idx$(set$), 0, w$)
|
|
total = AMOUNT(idx$(set$))
|
|
|
|
IF MaxCount < total THEN MaxCount = total
|
|
NEXT
|
|
|
|
PRINT "Analyzing took ", TIMER, " msecs.", NL$
|
|
|
|
LOOKUP idx$ TO n$ SIZE x
|
|
FOR y = 0 TO x-1
|
|
IF MaxCount = AMOUNT(idx$(n$[y])) THEN PRINT n$[y], ": ", idx$(n$[y])
|
|
NEXT
|