Is wise a consonant - Miscellaneous

Hi Dixie:
Much of the satisfaction in solving scrabble or other word puzzle games comes from doing it yourself.
Having someone tell you the answer is a lot like having someone else date your girlfriend and then tell you how they enjoyed themselves.
Here's a few hints:
- The letters ER and RE often appear together at the beginning or end or the word.
- The letters ing often appear together at the end of the word.
- the letters GR often appear together,
- If you have few vowels and lots of consonants, the word must contain combined consonants.
Cheers

Hi Floyd:
Much of the satisfaction in solving scrabble or other word puzzle games comes from doing it yourself.
Having someone tell you the answer is a lot like having someone else date your girlfriend and then tell you how they enjoyed themselves.
Here's a few hints:
- The letters ER and RE often appear together at the beginning or end or the word.
- the letters WR often appear together,
- If you have few vowels and lots of consonants, the word must contain combined consonants.
Enjoy!

the commencement of two or more stressed syllables of a word groupeither with the same consonant sound or sound group (consonantalalliteration) as in from stem to stern, or with a vowel sound that maydiffer from syllable to syllable (vocalic alliteration) as in each to all. Compare consonance (def 4a).
2. the commencement of two or more words of a word group with thesame letter, as in apt alliteration's artful aid.

as in: GETADICTIONARY

Have your program split the word into groups of vowels and consonants ie 'exh', 'ib', 'it', 'ion'. For example if the word starts with a vowel, in this case 'e', continue to group it until it reaches the first vowel (i in the 2nd group) after the group of consonants (x and h in the first group), and repeat.

Each player has a hand of 7 letter cards - initially 5 consonants and 2 vowels, but as the game progresses players can refill their hands freely from the separate vowel and consonant decks to vary the mix.
On each turn, the top Dash card is turned face up, revealing the goal for that turn. Players then race to play a word from their hands to fulfil the Dash card, or skip the turn to discard cards and draw new ones.
The Dash cards include criteria such as number of letters (ranging from 2 to 4), specific parts of speech (verb/proper noun), or specifying that the word has to start, end with, or contain a particular letter, drawn at random from either the vowel or consonant deck (players do not need to play their own copy of this letter from their hand).
The first player to lay down a valid word claims the Dash card, and the first player to collect 5 Dash cards wins the game.

In the English language there are 21 consonants out of 26 total letters.
(21/26)^4 = .4256
42.56%

#
# Since no language was specifiec, here's a solution in the
# gawk dialect of awk.
#
# Familiarity with awk is assumed, so only minimal comments
# are present. I have a version with more comments...
#


BEGIN {
IGNORECASE = 1
}

{ r0 = $0 } # Copy the input record into the variable r0, for efficiency

wc += gsub(/[[:blank:]]+/, "", r0) {} # Destructively count all the white spaces in r0

vc += gsub(/[AEIOU]/, "", r0) {} # Destructively count all the vowels in r0

cc += gsub(/[BCDFGHJKLMNPQRSTVWXYZ]/, "", r0) {} # Destructively count all the consonants in r0

END {
printf("%d vowel%s\n", vc, (vc != 1) ? "s" : "")
printf("%d consonant%s\n", cc, (cc != 1) ? "s" : "")
printf("%d white space%s\n", wc, (wc != 1) ? "s" : "")
}

I wrote this as a vbscript. It's Visual Basic code in windows script. If you have XP, just copy the text into notepad and save it as "vowel.vbs". Now double click the newly created script file.

' vowel.vbs
'
' This VBScript is used to count the vowels and consonants in a string.
' Designed and Tested on Windows XP Pro SP2
'
' Version 1.0.0 - 02.20.2008
'
' This code may be freely distributed or modified.
' -----------------------------------------------------------------'

Option Explicit
Dim str
Dim vowels
Dim consonants
Dim i

vowels = 0
consonants = 0
str = "hello"

for i = 1 to len(str)
select case mid(str,i,1)
case "a"
vowels = vowels + 1
case "e"
vowels = vowels + 1
case "i"
vowels = vowels + 1
case "o"
vowels = vowels + 1
case "u"
vowels = vowels + 1
case else
consonants = consonants + 1
end select
next

msgbox "Vowels = " & vowels
msgbox "Consonants = " & consonants
'End of script.

I wrote this as a vbscript. It's Visual Basic code in windows script. If you have XP, just copy the text into notepad and save it as "vowel.vbs". Now double click the newly created script file.

' vowel.vbs
'
' This VBScript is used to count the vowels and consonants in a string.
' Designed and Tested on Windows XP Pro SP2
'
' Version 1.0.0 - 02.20.2008
'
' This code may be freely distributed or modified.
' -----------------------------------------------------------------'

Option Explicit
Dim str
Dim vowels
Dim consonants
Dim i

vowels = 0
consonants = 0
str = "hello"

for i = 1 to len(str)
select case mid(str,i,1)
case "a"
vowels = vowels + 1
case "e"
vowels = vowels + 1
case "i"
vowels = vowels + 1
case "o"
vowels = vowels + 1
case "u"
vowels = vowels + 1
case else
consonants = consonants + 1
end select
next

msgbox "Vowels = " & vowels
msgbox "Consonants = " & consonants
'End of script.

'Text1 is a textbox or a string you can use

Private Sub Command1_Click()
Dim a
Dim vow, con As Integer
vow = 0
con = 0
For i = 1 To Len(Text1)
a = Mid(Text1, i, 1)
If (a = "a" Or a = "e" Or a = "i" Or a = "o" Or a = "u") Then
vow = vow + 1
Else
con = con + 1
End If
Next
MsgBox "Vowels: " & vow & vbNewLine & "Consonants : " & con

End Sub