Ordered words: Difference between revisions

fn = "C:\Ring\unixdict.txt"

fp = fopen(fn,"r")

str = fread(fp, getFileSize(fp))

str = substr(str, windowsnl(), nl)

clist = str2list(str)

fclose(fp)

dlist = []

for m = 1 to len(clist)

flag = 1

for n = 1 to len(clist[m])-1

if ascii(clist[m][n+1]) < ascii(clist[m][n])

flag=0 exit ok

if flag = 1

add(dlist, clist[m]) ok

next

nr = 0

for m = 1 to len(dlist)

if len(dlist[m]) > nr

nr = len(dlist[m]) ok

for n = 1 to len(dlist)

if len(dlist[n]) = nr

see dlist[n] + nl ok

next

func getFileSize fp

c_filestart = 0

c_fileend = 2

fseek(fp,0,c_fileend)

nfilesize = ftell(fp)

fseek(fp,0,c_filestart)

return nfilesize

abbott

accent

accept

access

accost

almost

bellow

billow

biopsy

chilly

choosy

choppy

effort

floppy

glossy

knotty