Word search: Difference between revisions

m
Line 1,313:
end
 
function wordmatrix(filename, usepropernames = true)
words = [lowercase(line) for line in readlines(filename)
if match(r"^[a-zA-Z]+$", line) != nothing && (usepropernames ||
match(r"^[a-z]", line) != nothing) && length(line) >= minwordsize && length(line) <= ncols]
n = 1001000
for i in 1:n
grid = LetterGrid()
Line 1,336:
end
end
throw("Failed to place words after $n attempts")
end
 
Line 1,410:
end
 
printresult(wordmatrix("words.txt", false))
</lang>{{output}}<pre>
Attempts: 13
Number of words: 25
 
1 e s0 1 o2 d3 u4 m5 a6 h7 d8 R9
 
2 z n o u g h t y O g
31 ip bs a ps ol sa cn St o rR
42 r up fa md ed Ea sO er g ew
53 ye ti Tl ai ye rS re rn ro in
64 h Tl ur rE dv oz ki os oi gb
75 pt As uT tm pf lh ha yl sb eo
86 re CT bi a s eg lu er a O sn
97 oA ot i ae lg es ga mv rC Dd
108 pt bn ol be en td si EO el ba
9 bisporet [10, 2]f to [4,d 8] i m v r dumah [1,D 4] toa [1, 8]g
porphyrize [10, 1] to [1, 1]s n o o g E h melda [9,u 8] tog [5, 4]e
bobetaslant [101, 23] to [101, 68] greigesfleshing [29, 102] to [82, 109]
hoymanbondage [74, 710] to [210, 210] noughty razed [26, 28] to [2, 84]
sorgoinsulin [79, 94] to [3, 910] tutees goons [510, 25] to [10, 71]
perkyether [36, 41] to [72, 81] oscsagged [34, 58] to [39, 73]
tboviva [79, 46] to [96, 29] tubslips [5, 2] to [31, 2]
gelavia [94, 75] to [92, 43] arbfaint [85, 85] to [109, 101]
orsmitt [65, 94] to [48, 71] hllhuge [710, 7] to [910, 510]
dokobrad [65, 59] to [68, 86] udos one [13, 59] to [13, 27]
trarid [74, 43] to [52, 45] utplag [78, 39] to [710, 59]
bfamid [39, 25] to [59, 43] cydlie [3, 73] to [13, 95]
emesea [4, 8] to [2, 76] sow [4, 8] to [102, 910]
zero [4, 6] to [1, 9] air [7, 7] to [9, 7]
asp [1, 3] to [1, 1]
</pre>
 
4,108

edits