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

Home > General > Word Problems
Three consecutive letters (Posted on 2015-05-20) Difficulty: 2 of 5
Add three consecutive letters of the alphabet into the group of letters below, without splitting the consecutive letters, to form another word.

CAY

No Solution Yet Submitted by K Sengupta    
Rating: 4.0000 (1 votes)

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution re: Other examples Comment 4 of 4 |
(In reply to Other examples by Jyqm)

aSTUte

siGHIng
DEFray
HIJinks
airbuRSTs (only one found)

from the likes of:

DefDbl A-Z
Dim crlf$


Private Sub Form_Load()
 crlf = Chr(13) + Chr(10)
 Form1.Visible = True
 Text1.Text = ""
 alpha$ = "abcdefghijklmnopqrstuvwxyz"
 
 For i = 1 To 24
   intron$ = Mid(alpha, i, 3)
   For p = 0 To 6
     w$ = Mid("airbus", 1, p) + intron + Mid("airbus", p + 1)
     If isWord(w) Then Text1.Text = Text1.Text & w & crlf
   Next
 Next


 Text1.Text = Text1.Text & crlf & " done"
  
End Sub

Function isWord(w$)
 n = Len(w$)
 If n = 0 Then isWord = 0: Exit Function
 w1$ = Space$(n)
 Open "c:\words\words" + LTrim$(Str$(n)) + ".txt" For Binary As #2
 l = LOF(2) / n
 low = 1: high = l
 Do
  middle = Int((low + high) / 2)
  Get #2, (middle - 1) * n + 1, w1$
  If w1$ = w$ Then isWord = 1: Close 2: Exit Function
  If w1$ < w$ Then low = middle + 1 Else high = middle - 1
 Loop Until low > high
 isWord = 0
 Close 2
End Function



  Posted by Charlie on 2015-05-21 10:49:16
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