ERROR is not the only 5-letter word using a certain consonant thrice and two not necessarily distinct vowels.
Find additional examples.
Remarks:
a. All goes.
b. The letter y is a consonant.
added
allyl *
asses
bobby *
bubby *
cocci
daddy *
duddy *
duded
error
esses
feoff
lolly *
mamma
mammy *
momma
mommy *
mummy *
nanny *
ninny *
ninon
pappi
pappy *
peppy *
poppa
poppy *
puppy *
rarer
sassy *
sises
sissy *
tatty *
titty *
tutti
tutty *
Starred items have a y used as a vowel.
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
Open "\words\words.txt" For Input As #1
Do
Line Input #1, l$
ReDim lct(5)
If Len(l) = 5 Then
letUsed$ = Left(l, 1)
lct(1) = 1
good = 0
For i = 2 To 5
ix = InStr(letUsed, Mid(l, i, 1))
If ix > 0 Then
lct(ix) = lct(ix) + 1
If lct(ix) = 3 Then good = 1
If lct(ix) > 3 Then good = 0
Else
letUsed = letUsed + Mid(l, i, 1)
lct(Len(letUsed)) = 1
End If
Next
For i = 1 To Len(letUsed)
If lct(i) = 3 Then
If InStr("aeiou", Mid(letUsed, i, 1)) > 0 Then good = 0
If Mid(letUsed, i, 1) = "y" Then y3 = 1 Else y3 = 0
Else
If InStr("aeiouy", Mid(letUsed, i, 1)) = 0 Then good = 0
If Mid(letUsed, i, 1) = "y" Then yn1 = 1 Else yn1 = 0
End If
Next
If good Then
Text1.Text = Text1.Text & l
If yn1 = 1 Or y3 = 1 Then Text1.Text = Text1.Text & " *"
Text1.Text = Text1.Text & crlf
End If
End If
Loop Until EOF(1)
Close 1
Text1.Text = Text1.Text & crlf & " done"
End Sub
|
|
Posted by Charlie
on 2015-11-12 13:23:55 |
computer solution
