Word wheel: Difference between revisions

Line 765:

if iFID==''|iFID=="," then iFID= 'UNIXDICT.TXT' /* " " " " " " */

oMinL= minL; minL= abs(minL) /*if negative, then don't show a list. */

gridU= grid; upper gridU; ~~gAir=~~ ~~inflate(gridU)~~ /*get an uppercase version of the grid.*/

gridU= grid; upper gridU /*get an uppercase version of the grid.*/

Lg= length(grid); Hg= Lg%2

Lg= length(grid); Hg= Lg % 2 + 1 /*get length of grid & the middle char.*/

c= substr(grid, Hg+1,1 ); upper c /*get uppercase center letter in grid. */

ctr= substr(grid, Hg, 1); upper ctr /*get uppercase center letter in grid. */

wrds= 0 /*# words that are in the dictionary. */

wees= 0 /*" " " " too short. */

bigs= 0 /*" " " " too long. */

dups= 0 /*" " " " duplicates. */

ills= 0 /*" " " contain not letters.*/

ills= 0 /*" " " contain "not" letters.*/

good= 0 /*" " " contain center letter. */

say ' Reading the file: ' iFID

@.= . /*uppercase non─duplicated dict. words.*/

$= /*the list of dictionary words in grid.*/

do recs=1 while lines(iFID)\==0 /*process all words in the dictionary. */

do recs=0 while lines(iFID)\==0 /*process all words in the dictionary. */

_= linein(iFID) /*read a word (line of text) from dict.*/

u= space(_, 0); upper u; L= length(u) /*elide superfluous blanks from a word.*/

Line 787:

@.u= /*signify that U is a dictionary word*/

wrds= wrds + 1 /*bump the number of "good" dist. words*/

if pos(c, u)==0 then iterate /*word doesn't have center grid letter.*/

if pos(ctr, u)==0 then iterate /*word doesn't have center grid letter.*/

good= good + 1 /*bump # center─letter words in dict. */

if verify(u, gridU)\==0 then iterate /*word contains a letter not in grid. */

if ~~\deflate(inflate~~(u), ~~gAir~~) then iterate /*have all the letters been found ? */

if pruned(u, gridU) then iterate /*have all the letters not been found? */

$= $ u /*add this word to the "found" list. */

end /*recs*/

Line 803:

say ' the minimum length of words that can be used: ' right( commas(minL), 9)

say ' the word wheel (grid) being used: ' grid

say ' center of the word wheel (grid) being used: ' right('↑', Hg+1)

say ' center of the word wheel (grid) being used: ' right('↑', Hg)

say; #= words($); $= strip($)

say ' number of word wheel words in the dictionary: ' right( commas(# ), 9)

Line 813:

lower: arg aa; @='abcdefghijklmnopqrstuvwxyz'; @u=@; upper @u; return translate(aa,@,@U)

commas: parse arg _; do jc=length(_)-3 to 1 by -3; _=insert(',', _, jc); end; return _

inflate: procedure; arg z 1 a 2; do m=2 to length(z); a= a substr(z,m,1); end; return a

/*──────────────────────────────────────────────────────────────────────────────────────*/

~~deflate~~: procedure; arg aa,~~guA;~~ ~~Laa=~~ ~~length(aa)~~

pruned: procedure; parse arg aa,gg /*obtain word to be tested, & the grid.*/

do n=1 to ~~Laa~~ ~~by 2;~~ p= ~~wordpos~~( substr(aa,n,1), ~~guA~~); if p==0 then return 0

do n=1 for length(aa); p= pos( substr(aa,n,1), gg); if p==0 then return 1

~~guA~~= ~~delword~~(~~guA~~, p, 1)

gg= overlay(., gg, p) /*"rub out" the found character in grid*/

end /*n*/; ~~return 1~~</lang>

end /*n*/; return 0 /*signify that the AA passed the test*/</lang>

<pre>