"Sass" has the letter S occur three times. Find a word that has two different letters occurring three times. (I found one such word that is only eight letters long.)
6 deeded
7 Carrara
7 feoffee
7 lessees
7 ratatat
7 reverer
7 seeress
8 assagais
8 astasias
8 bandanna
8 careerer
8 cassabas
8 cassatas
8 cassavas
8 deadened
8 defended
8 deferrer
8 deleaded
8 depended
8 derriere
8 deterrer
8 ecesises
8 egresses
8 embedded
8 essences
8 estheses
8 excesses
8 feoffees
8 ferreter
8 gossoons
8 Jewesses
8 levelled
8 leveller
8 libellee
8 nineteen
8 peppered
8 pepperer
8 ratatats
8 recesses
8 reddened
8 referred
8 referrer
8 renderer
8 reserver
8 reverers
8 reverser
8 reverter
8 rewedded
8 samsaras
8 seedless
8 septette
8 sextette
8 sneeshes
8 statists
8 susurrus
8 teletext
8 Valhalla
8 verderer
8 Walhalla
The above is the sorted output of
DefDbl A-Z
Dim crlf$, c$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
Open "c:\words\words.txt" For Input As #1
Do
DoEvents
Line Input #1, l$
ctr = 0
For i = 1 To Len(l)
c$ = Mid(l, i, 1)
If InStr(l, c) = i Then
ct = 0
For j = 1 To Len(l)
If Mid(l, j, 1) = c Then ct = ct + 1
Next
If ct > 2 Then ctr = ctr + 1
End If
Next
If ctr > 1 And Len(l) < 9 Then
Text1.Text = Text1.Text & mform(Len(l), "#0") & " " & l & crlf
End If
Loop Until EOF(1)
Text1.Text = Text1.Text & crlf & " done"
End Sub
Function mform$(x, t$)
a$ = Format$(x, t$)
If Len(a$) < Len(t$) Then a$ = Space$(Len(t$) - Len(a$)) & a$
mform$ = a$
End Function
|
|
Posted by Charlie
on 2015-12-10 09:13:26 |
computer solution 6-, 7- and 8-letter words
