Anonymous user
Word wheel: Difference between revisions
→{{header|freebasic}}
No edit summary |
|||
Line 1,264:
End Function
Sub show(g As String,file As String,byref matches as long,minsize as long)
Redim As String s()
Var L=loadfile(file)
string_split(L,Chr(10),s())
For m As Long=
For n As Long=Lbound(s) To Ubound(s)
If Len(s(n))=m Then
Line 1,289:
dim as long matches
dim as double t=timer
show("ndeokgelw","unixdict.txt",matches,3)
print
print "Overall time taken ";timer-t;" seconds"
Line 1,318:
17 matches
</pre>
=={{header|Go}}==
| |||