Ordered words: Difference between revisions

int Dict(26000); \pointers to words (enough for unixdict.txt)

int DictSize; \actual number of pointers in Dict

int DI, I, Ch, Ch0, MaxLen, Pass;

char Word;

[FSet(FOpen("unixdict.txt", 0), ^I); \load dictionary into Dict

OpenI(3); \assume alphabetical order and all lowercase

DI:= 0; \ignore non-alpha characters: 0..9, ' and &

repeat Dict(DI):= Reserve(0); \get pointer to memory used to store Word

Word:= Dict(DI);

I:= 0;

loop [repeat Ch:= ChIn(3) until Ch # CR; \remove possible CR

if Ch=LF or Ch=EOF then quit;

Word(I):= Ch;

I:= I+1;

];

Word(I):= 0; \terminate Word string

I:= Reserve(I+1); \reserve memory used for Word

DI:= DI+1; \next dictionary entry

until Ch = EOF;

DictSize:= DI;

[DI:= 0;

repeat Word:= Dict(DI);

I:= 0; Ch0:= 0;

loop [Ch:= Word(I);

if Ch = 0 then

[if I > MaxLen then MaxLen:= I;

if I=MaxLen & Pass=2 then

[Text(0, Word); CrLf(0)];

quit;

];

if Ch < Ch0 then quit;

DI:= DI+1;

until DI >= DictSize;