Word wheel: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: changed wording in the REXX section header. |
m →{{header|REXX}}: tried for a maximum count for the UNIXDICT with a word wheel of: eatRELion |
||
| Line 360: | Line 360: | ||
if mLen==''|mLen=="," then mLen= 3 /* " " " " " " */ |
if mLen==''|mLen=="," then mLen= 3 /* " " " " " " */ |
||
if iFID==''|iFID=="," then iFID= 'UNIXDICT.TXT' /* " " " " " " */ |
if iFID==''|iFID=="," then iFID= 'UNIXDICT.TXT' /* " " " " " " */ |
||
omLen= mLen; mLen= abs(mLen) /*if negative, then don't show a list. */ |
|||
gridU= grid; upper gridU; guAir= inflate(gridU) /*get an uppercase version of the grid.*/ |
gridU= grid; upper gridU; guAir= inflate(gridU) /*get an uppercase version of the grid.*/ |
||
Lg= length(grid); Hg= Lg%2 |
Lg= length(grid); Hg= Lg%2 |
||
| Line 394: | Line 395: | ||
say ' number of acceptable words in the dictionary: ' right( commas(wrds), 9) |
say ' number of acceptable words in the dictionary: ' right( commas(wrds), 9) |
||
say ' number center─letter words in the dictionary: ' right( commas(good), 9) |
say ' number center─letter words in the dictionary: ' right( commas(good), 9) |
||
say ' |
say ' the minimum length of words that can be used: ' right( commas(mLen), 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+1) |
||
say; #= words($); $= strip($) |
say; #= words($); $= strip($) |
||
say ' number of word wheel words in the dictionary: ' right( commas(# ), 9) |
say ' number of word wheel words in the dictionary: ' right( commas(# ), 9) |
||
if #==0 then exit # |
if #==0 | omLen<0 then exit # |
||
say |
say |
||
say ' The list of word wheel words found:'; say copies('─', length($)); say lower($) |
say ' The list of word wheel words found:'; say copies('─', length($)); say lower($) |
||
| Line 421: | Line 423: | ||
number of acceptable words in the dictionary: 24,819 |
number of acceptable words in the dictionary: 24,819 |
||
number center─letter words in the dictionary: 1,834 |
number center─letter words in the dictionary: 1,834 |
||
the minimum length of words that can be used: 3 |
|||
the word wheel (grid) being used: ndeokgelw |
the word wheel (grid) being used: ndeokgelw |
||
center of the word wheel (grid) being used: ↑ |
center of the word wheel (grid) being used: ↑ |
||
| Line 429: | Line 432: | ||
───────────────────────────────────────────────────────────────────────────────────── |
───────────────────────────────────────────────────────────────────────────────────── |
||
eke elk keel keen keg ken keno knee kneel knew know knowledge kong leek week wok woke |
eke elk keel keen keg ken keno knee kneel knew know knowledge kong leek week wok woke |
||
</pre> |
|||
{{out|output|text= when using the inputs: <tt> satRELion -3 </tt>}} |
|||
(Trying for a maximum word wheel count for the UNIXDICT dictionary.) |
|||
<pre> |
|||
Reading the file: UNIXDICT.TXT |
|||
number of records (lines) in the dictionary: 25,105 |
|||
number of ill─formed words in the dictionary: 126 |
|||
number of duplicate words in the dictionary: 0 |
|||
number of too─small words in the dictionary: 159 |
|||
number of acceptable words in the dictionary: 24,819 |
|||
number center─letter words in the dictionary: 14,755 |
|||
the minimum length of words that can be used: 3 |
|||
the word wheel (grid) being used: satRELion |
|||
center of the word wheel (grid) being used: ↑ |
|||
number of word wheel words in the dictionary: 212 |
|||
</pre> |
</pre> |
||