20 lines
430 B
Text
20 lines
430 B
Text
'Ordered words - improved version
|
|
OPTION COLLAPSE TRUE
|
|
|
|
list$ = LOAD$("unixdict.txt")
|
|
|
|
FOR word$ IN list$ STEP NL$
|
|
|
|
term$ = EXTRACT$(SORT$(EXPLODE$(word$, 1)), " ")
|
|
|
|
IF word$ = term$ THEN
|
|
IF LEN(term$) > MaxLen THEN
|
|
MaxLen = LEN(term$)
|
|
result$ = word$
|
|
ELIF LEN(term$) = MaxLen THEN
|
|
result$ = APPEND$(result$, 0, word$, NL$)
|
|
END IF
|
|
END IF
|
|
NEXT
|
|
|
|
PRINT result$
|