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

Home > General > Word Problems
Downward Pair Reading (Posted on 2015-04-24) Difficulty: 3 of 5
Precisely two letters must be inserted in each set of brackets so that they finish the word on the left and start the word on the right. The accurate missing letters should spell out an 8-letter word when read downwards in order (left to right in each row) in pairs.
TA(_ _)CK
MA(_ _)SK
NE(_ _)AR
ME(_ _)AS

No Solution Yet Submitted by K Sengupta    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution computer solution | Comment 2 of 4 |
tabu  buck
taco  cock
take  keck
tala  lack
tali  lick
tapa  pack
tape  peck *
tare  reck
taro  rock

made  desk *
mama  mask

nema  maar
nene  near
nest  star *
nets  tsar

meal  alas *
mean  anas
meet  etas
memo  moas
mete  teas

The overlapping letters from the pairs I've marked with a star form PEDESTAL.


Private Sub Form_Load()
 Text1.Text = ""
 crlf$ = Chr(13) + Chr(10)
 Form1.Visible = True
 
 Open "\words\words4.txt" For Binary As #1
 w$ = Space$(4)
 
 Do
   Get #1, , w$
   If EOF(1) Then Exit Do
   If Left(w, 2) = "ta" Then
     wdct(1) = wdct(1) + 1
     wd(1, wdct(1)) = w
   End If
   If Right(w, 2) = "ck" Then
     wdct(2) = wdct(2) + 1
     wd(2, wdct(2)) = w
   End If
   If Left(w, 2) = "ma" Then
     wdct(3) = wdct(3) + 1
     wd(3, wdct(3)) = w
   End If
   If Right(w, 2) = "sk" Then
     wdct(4) = wdct(4) + 1
     wd(4, wdct(4)) = w
   End If
   If Left(w, 2) = "ne" Then
     wdct(5) = wdct(5) + 1
     wd(5, wdct(5)) = w
   End If
   If Right(w, 2) = "ar" Then
     wdct(6) = wdct(6) + 1
     wd(6, wdct(6)) = w
   End If
   If Left(w, 2) = "me" Then
     wdct(7) = wdct(7) + 1
     wd(7, wdct(7)) = w
   End If
   If Right(w, 2) = "as" Then
     wdct(8) = wdct(8) + 1
     wd(8, wdct(8)) = w
   End If
 Loop
 
 For pair = 1 To 7 Step 2
   rhs = pair + 1
   For i = 1 To wdct(pair)
     For j = 1 To wdct(rhs)
       If Right(wd(pair, i), 2) = Left(wd(rhs, j), 2) Then
         Text1.Text = Text1.Text & wd(pair, i) & "  " & wd(rhs, j) & crlf
         DoEvents
       End If
     Next j
   Next i
   Text1.Text = Text1.Text & crlf
 Next pair
 
  
  Text1.Text = Text1.Text & "done"
  DoEvents

End Sub


  Posted by Charlie on 2015-04-24 11:04:56
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