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

Home > General > Word Problems
4 couples make a new word (Posted on 2017-07-04) Difficulty: 3 of 5
Given 4 common English words:
RESTORATION
SUMMERTIME
UMBILICAL

and
CATERING.

Chose 2 successive letters from the 1st word, then 2 successive letters from the 2nd word, then 3rd and the 4th to create a valid English non-esoteric
word of 8 letters.

"St er li ng" is a good example.

Find additional word(s) complying with the above process.

See The Solution Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution No Subject | Comment 1 of 3
Additional words are REMEMBER, RETILING and TIMELIER.

Output list:

remember
retiling
remember
sterling
timelier
timelier

Duplicated words stem from "me" occurring twice in "summertime".

from:

DefDbl A-Z
Dim crlf$


Private Sub Form_Load()
 Form1.Visible = True
 
 
 Text1.Text = ""
 crlf = Chr$(13) + Chr$(10)
 
 a$ = "restoration"
 b$ = "summertime"
 c$ = "umbilical"
 d$ = "catering"
 
 For apos = 1 To Len(a) - 1
 For bpos = 1 To Len(b) - 1
 For cpos = 1 To Len(c) - 1
 For dpos = 1 To Len(d) - 1
   w$ = Mid(a, apos, 2) + Mid(b, bpos, 2) + Mid(c, cpos, 2) + Mid(d, dpos, 2)
   If isWord(w) Then
     Text1.Text = Text1.Text & w & crlf
   End If
   DoEvents
 Next
 Next
 Next
 Next
 
 
 Text1.Text = Text1.Text & crlf & " done"
  
End Sub

Function isWord(w$)
 n = Len(w$)
 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 2017-07-04 13:37:01
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 (7)
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