All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars    
perplexus dot info

Home > General > Word Problems
3c+2v (Posted on 2015-11-12) Difficulty: 3 of 5
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.

No Solution Yet Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution computer solution | Comment 2 of 3 |
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
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (0)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (8)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2017 by Animus Pactum Consulting. All rights reserved. Privacy Information