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

 Triple Letter Occurrence, Twice! (Posted on 2015-12-10)
"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.)

 See The Solution Submitted by Brian Smith No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
 computer solution 6-, 7- and 8-letter words | Comment 2 of 3 |
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 defended
8 deferrer
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\$

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

 Search: Search body:
Forums (0)