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

Home > General > Word Problems
3 by 3 by 5 (Posted on 2017-09-22) Difficulty: 4 of 5
The 15 triplets listed below were created by dividing each
of 5 not-so-common 9-letter words - each into 3 parts:

QUA, SUN, UAC, LLE, QUA,
ALL, SQU, LOQ, ITY, ARE,
AQU, UNE, LED, VIA, DRI.

You are requested to
- reconstruct the original words
- provide a short comment on each
- discover one common feature, present in all five.

Have fun!

See The Solution Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Some Thoughts computer finds few words, apparently not all compatible | Comment 3 of 6 |
quadrille
quadrivia
quadrille
quadrivia
loquacity
aquarelle
unequaled
unequaled

duplicates coming from duplication of QUA.

DefDbl A-Z
Dim crlf$, wordPart$(15)


Private Sub Form_Load()
 Form1.Visible = True
 
 
 Text1.Text = ""
 crlf = Chr$(13) + Chr$(10)
 
 For i = 1 To 15
   wordPart(i) = Mid("quasunuacllequaallsquloqityareaquuneledviadri", 3 * i - 2, 3)
 Next i
 
 For a = 1 To 15
 For b = 1 To 15
   If b <> a Then
 For c = 1 To 15
   If c <> a And c <> b Then
     w$ = wordPart(a) + wordPart(b) + wordPart(c)
     If isWord(w) Then
       Text1.Text = Text1.Text & w & crlf
     End If
   End If
 Next c
   End If
 Next b
 Next a
 
 Text1.Text = Text1.Text & crlf & " done"
  
End Sub

Function isWord(w$)
 n = Len(w$)
 w1$ = Space$(n)
 Open "\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-09-22 12:17: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 (9)
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