I've initiated (
for you to improve and to complete) a list of 26 pairs of English words
(the shortest and the longest for each letter - both beginning and ending with said letter):
a. a, abracadabra ..........1 ...11
b. bib, breadcrumb..........3.... 10
c. chic, cinematographic.. 4 ... 15
d. ...........................
...........................
...........................
...........................
...........................
y. yay, youthfully ............ 3
...10
z. zizz,zizz...................... 4 .....4
In the above example the sum of numbers in the 1st column is 15
and in the 2nd 50.
My quotient is therefore 50/15=3.333
Evaluate the quotient of your list.
Team work will definitely create optimal result.
From my wordlist. Of course one could combine the best of Steven's list with the best of mine (longer long words and shorter short words) to do even better.
a agammaglobulinemia 1 18
bib breadcrumb 3 10
chic chromolithographic 4 18
dad deinstitutionalized 3 19
eke electroluminescence 3 19
fief flameproof 4 10
gag governmentalizing 3 17
hah hairsbreadth 3 12
I improvisatori 1 13
xxxxxxxxxxxxxxxxxxxxxxx
keck kinnikinnick 4 12
lall lepidopterological 4 18
mm mesembryanthemum 2 16
n neurotransmission 1 17
oho obbligato 3 9
pap postmastership 3 14
xxxxxxxxxxxxxxxxxxxxxxx
rear remanufacturer 4 14
sis straightforwardnesses 3 21
tat transformationalist 3 19
ulu unau 3 4
vav vav 3 3
waw wheelbarrow 3 11
x xerox 1 5
yay yearningly 3 10
xxxxxxxxxxxxxxxxxxxxxxx
306/62 = 4.93548387096774
DefDbl A-Z
Dim crlf$
Dim sh$(26), lo$(26)
Private Sub Form_Load()
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
alpha$ = "abcdefghijklmnopqrstuvwxyz"
currLett$ = "a"
shortest$ = "xxxxxxxxxxxxxxxxxxxxxxx"
longest$ = ""
Open "\words\words.txt" For Input As #1
Do
Line Input #1, l$
lt$ = Left$(l, 1)
If lt$ <> currLett$ Then
i = InStr(alpha, currLett)
sh(i) = shortest
lo(i) = longest
currLett = lt
shortest$ = "xxxxxxxxxxxxxxxxxxxxxxx"
longest$ = ""
End If
If Right$(l, 1) = lt Then
If Len(l) < Len(shortest) Then shortest = l
If Len(l) > Len(longest) Then longest = l
End If
DoEvents
Loop Until EOF(1)
Close 1
sh(9) = "i"
For i = 1 To 26
Text1.Text = Text1.Text & sh(i) & " " & lo(i) & " "
Text1.Text = Text1.Text & Len(sh(i)) & " " & Len(lo(i)) & crlf
If Len(lo(i)) > Len(sh(i)) Then
sumlong = sumlong + Len(lo(i))
sumshort = sumshort + Len(sh(i))
End If
Next
Text1.Text = Text1.Text & sumlong & "/" & sumshort & " = " & sumlong / sumshort & " done"
DoEvents
End Sub
|
|
Posted by Charlie
on 2020-06-24 21:03:13 |
No Subject
