Pairs of words that fit the shown pattern:
consumptive nonmusic
hematoxylin cenotaph
meritocracy helotism
meritocracy nepotism
salinometer baronies
semitonally demotics
subnormally mucrones
subordinate gumdrops
tenaciously vesicant
Of these pairs, the pair that meet the definition are meritocracy (promotion based on merit) and nepotism (getting ahead by being related to another).
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
w11$ = Space$(11)
w8$ = Space$(8)
Open "\words\words11.txt" For Binary As #1
Do
Get #1, , w11$
If EOF(1) Then Exit Do
chk$ = Left(w11, 2) + Mid(w11, 4, 3) + Mid(w11, 3, 1) + Mid(w11, 7)
good = 1
For i = 1 To 5
If InStr(Mid(chk, i + 1), Mid(chk, i, 1)) > 0 Then good = 0: Exit For
Next
If good Then
Open "\words\words8.txt" For Binary As #2
Do
Get #2, , w8
If EOF(2) Then Exit Do
chk2$ = Right(w8, 1) + Mid(w8, 2, 1) + Mid(w8, 6, 1) + Mid(w8, 5, 1) + Mid(w8, 4, 1) + Mid(w8, 1, 1) + Mid(w8, 3, 1) + Mid(w8, 7, 1)
If Left(chk2, 5) = Left(chk, 5) Then
For i = 1 To 5
If InStr(Mid(chk2, i + 1), Mid(chk2, i, 1)) > 0 Then good = 0: Exit For
Next
If good Then
Text1.Text = Text1.Text & w11 & " " & w8 & crlf
End If
End If
DoEvents
Loop Until EOF(2)
Close 2
End If
DoEvents
Loop Until EOF(1)
Close 1
Text1.Text = Text1.Text & " done"
DoEvents
End Sub
|
|
Posted by Charlie
on 2019-10-30 15:43:12 |
computer-aided solution
