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

Home > General > Word Problems
5-2=1 (Posted on 2015-12-21) Difficulty: 2 of 5
List five-letters words such that after erasing two letters only one is left.

No Solution Yet Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution computer solution | Comment 1 of 5
Word  removed 
      letters
agone  ag
alone  al
atone  at
axone  ax
boned  bd
boner  br
bones  bs
boney  by
bonne  bn
bonze  bz
borne  br
clone  cl
coned  cd
cones  cs
coney  cy
conge  cg
conte  ct
crone  cr
donee  de
donne  dn
drone  dr
gonef  gf
goner  gr
honed  hd
honer  hr
hones  hs
honey  hy
irone  ir
jones  js
koine  ki
krone  kr
leone  le
loner  lr
longe  lg
monde  md
money  my
monie  mi
monte  mt
nonce  nc
nones  ns
nonet  nt
onces  cs
onery  ry
onset  st
opine  pi
ounce  uc
ovine  vi
owned  wd
owner  wr
ozone  zo
phone  ph
ponce  pc
pones  ps
prone  pr
scone  sc
shone  sh
sonde  sd
sones  ss
stone  st
toned  td
toner  tr
tones  ts
toney  ty
tonne  tn
trone  tr
zoned  zd
zoner  zr
zones  zs

DefDbl A-Z
Dim crlf$, used(5)


Private Sub Form_Load()
 Form1.Visible = True
 
 Text1.Text = ""
 crlf = Chr$(13) + Chr$(10)
 
 w$ = Space$(5)
 Open "\words\words5.txt" For Binary As #1
 Do
   DoEvents
   Get #1, , w
   If EOF(1) Then Exit Do
   ix1 = InStr(w, "o")
   If ix1 Then
     ix2 = InStr(ix1 + 1, w, "n")
     If ix2 Then
       ix3 = InStr(ix2 + 1, w, "e")
       If ix3 Then
         Text1.Text = Text1.Text & w & "  "
         For i = 1 To 5
           If i <> ix1 And i <> ix2 And i <> ix3 Then
             Text1.Text = Text1.Text & Mid(w, i, 1)
           End If
         Next
         Text1.Text = Text1.Text & crlf
       End If
     End If
   End If
 Loop
 Close 1
 
 Text1.Text = Text1.Text & crlf & " done"
  
End Sub


  Posted by Charlie on 2015-12-21 10:29:33
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 (8)
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