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

 3 by 3 by 5 (Posted on 2017-09-22)
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.)
 computer finds few words, apparently not all compatible | Comment 3 of 6 |
loquacity
aquarelle
unequaled
unequaled

duplicates coming from duplication of QUA.

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

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

 Search: Search body:
Forums (0)