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

Home > General > Word Problems
Two methods (Posted on 2019-10-30) Difficulty: 3 of 5
The words w1 and w2 represent two distinct doctrines for "climbing up the social ladder".
5 distinct letters contained in each of those words are replaced by digits 1 to 5, other letters are replaced by an asterisk ("*").

w1: 12*345*****
w2: *2*543*1


Recover both words and comment on their meaning.

No Solution Yet Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution computer-aided solution | Comment 1 of 2
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
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (4)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (0)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2019 by Animus Pactum Consulting. All rights reserved. Privacy Information