45 lines
728 B
Plaintext
45 lines
728 B
Plaintext
load "stdlib.ring"
|
|
|
|
|
|
cStr = read("unixdict.txt")
|
|
wordList = str2list(cStr)
|
|
sum = 0
|
|
sortList = []
|
|
|
|
see "working..." + nl + nl
|
|
|
|
for n = 1 to len(wordList)
|
|
num = 0
|
|
len = len(wordList[n])-1
|
|
for m = 1 to len
|
|
asc1 = ascii(wordList[n][m])
|
|
asc2 = ascii(wordList[n][m+1])
|
|
if asc1 <= asc2
|
|
num = num + 1
|
|
ok
|
|
next
|
|
if num = len
|
|
sum = sum + 1
|
|
add(sortList,[wordList[n],len])
|
|
ok
|
|
next
|
|
|
|
sortList = sort(sortList,2)
|
|
sortList = reverse(sortList)
|
|
endList = []
|
|
|
|
len = sortList[1][2]
|
|
|
|
for n = 1 to len(sortList)
|
|
if sortList[n][2] = len
|
|
add(endList,sortList[n][1])
|
|
else
|
|
exit
|
|
ok
|
|
next
|
|
|
|
endList = sort(endList)
|
|
see endList
|
|
|
|
see nl + "done..." + nl
|