How many English words contain Q not followed by U ?
These are in the word list I use:
buqsha
buqshas
faqir
faqirs
qaid
qaids
qanat
qanats
qat
qats
qindar
qindarka
qindarkas
qindars
qintar
qintars
qiviut
qiviuts
qoph
qophs
qwerty
qwertys
sheqalim
sheqel
suq
suqs
tranq
tranqs
umiaq
umiaqs
Aqaba
Iqbal
Iraq
Iraqi
Iraqis
I don't know if I'd call them all English words, but they are purported to be. But the famously used in Words With Friends word QI is not on the list.
Open "c:\words\words.txt" For Input As #1
Do
Line Input #1, l$
ix = 0: found = 0
Do
ix = InStr(ix + 1, l, "q")
If ix = 0 Then Exit Do
If q = Len(l) Then found = 1: Exit Do
If Mid(l, ix + 1, 1) <> "u" Then found = 1: Exit Do
Loop Until ix = 0
If found Then
Text1.Text = Text1.Text & l & crlf
End If
Loop Until EOF(1)
Close
|
|
Posted by Charlie
on 2015-03-17 15:21:53 |
list
