Anonymous user
Word wheel: Difference between revisions
→{{header|FreeBASIC}}
Not a robot (talk | contribs) m (→{{header|freebasic}}: fix capitalization) |
|||
Line 1,264:
End Function
Sub show(g As String,file As String,byref matches as long,minsize as long,mustdo as string)
Redim As String s()
Var L=loadfile(file)
Line 1,274:
If Instr(g,Chr(s(n)[k]))=0 Then Goto lbl
Next k
If Instr(s(n),
For j As Long=0 To Len(s(n))-1
If tally(s(n),Chr(s(n)[j]))>tally(g,Chr(s(n)[j])) Then Goto lbl
Line 1,289:
dim as long matches
dim as double t=timer
show("ndeokgelw","unixdict.txt",matches,3,"k")
print
print "Overall time taken ";timer-t;" seconds"
| |||