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

Home > General > Word Problems
Triple Letter Occurrence, Twice! (Posted on 2015-12-10) Difficulty: 2 of 5
"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.)
Solution 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 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
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 (3)
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