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

Home > General > Word Problems
Dial W for WORD (Posted on 2019-01-15) Difficulty: 3 of 5
I've found a word that can be created by picking a letter from a standard telephone dialing keyboard, moving from one lettered button to its neighbor (vertical, horizontal or diagonal), covering distinct buttons, no repetitions.

This word consists of 8 letters, since neither 0 nor 1 are used for letters; # and * are also ignored.

2 represents ABC, 3 DEF, 4 GHI, 5 JKL, 6 MNO, 7 PQRS, 8 TUV and 9 WXYZ .

a. Please find my word or others (if any), that comply.
b. Allowing repetition what is the longest English word found by you?

No Solution Yet Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution No Subject Comment 1 of 1
unfairly

part 2

10 adjustment
10 altruistic
10 amendments
10 amylolytic
10 anecdotist
10 antistrike
10 biblicists
10 centricity
10 churlishly
10 cliquishly
10 clothbound
10 coagulants
10 councilman
10 councilmen
10 couplement
10 ecotourist
10 emblements
10 enamelists
10 endowments
10 enjambment
10 enjoyments
10 enlistment
10 enticement
10 flagsticks
10 lentivirus
10 luxuriance
10 mahlsticks
10 meadowland
10 multiplant
10 musicianly
10 nuptiality
10 ololiuquis
10 pickthanks
10 risibility
10 shadowlike
10 shantytown
10 sibilantly
10 thumbnails
10 trickishly
10 triplicity
10 trivialist
10 triviality
10 unfoldment
10 virulently
10 visibility
11 adjustments
11 analyticity
11 anecdotists
11 couplements
11 ecotourists
11 enchantment
11 enjambement
11 enjambments
11 enlistments
11 enticements
11 entitlement
11 entrustment
11 luxuriantly
11 multicounty
11 multivolume
11 stickhandle
11 strikebound
11 trivialists
11 unchristian
11 unfoldments
12 enchantments
12 enjambements
12 entitlements
12 entrustments
12 multiplicity
13 anticoagulant
13 maladjustment
14 anticoagulants
14 maladjustments

The above is the sorted output of:

DefDbl A-Z
Dim crlf$, numkey$(2 To 9, 1)


Private Sub Form_Load()
 Form1.Visible = True
 
 Text1.Text = ""
 crlf = Chr$(13) + Chr$(10)
 
  numkey(2, 0) = "abc": numkey(2, 1) = "3456"
  numkey(3, 0) = "def": numkey(3, 1) = "256"
  numkey(4, 0) = "ghi": numkey(4, 1) = "12578"
  numkey(5, 0) = "jkl": numkey(5, 1) = "2346789"
  numkey(6, 0) = "mno": numkey(6, 1) = "23589"
  numkey(7, 0) = "pqrs": numkey(7, 1) = "458"
  numkey(8, 0) = "tuv": numkey(8, 1) = "45679"
  numkey(9, 0) = "wxyz": numkey(9, 1) = "568"
  
  Open "c:\words\words.txt" For Input As #1
  Do
   Line Input #1, w$
   DoEvents
   If Len(w) = 8 Then
     For i = 2 To 9
       If InStr(numkey(i, 0), Left(w, 1)) Then currkey = i: Exit For
     Next
     usedkeys$ = LTrim(Str(currkey))
     good = 1
     For posn = 2 To Len(w)
      For i = 2 To 9
       If InStr(numkey(i, 0), Mid(w, posn, 1)) Then
         currkey = i: Exit For
       End If
      Next
      ck$ = LTrim(Str(currkey))
      prevkey = Val(Right(usedkeys, 1))
      If InStr(numkey(prevkey, 1), ck) = 0 Then
        good = 0: Exit For
      End If
      If InStr(usedkeys, ck) > 0 Then
        good = 0: Exit For
      End If
      usedkeys$ = usedkeys + ck
     Next
     If good Then Text1.Text = Text1.Text & w & crlf
   End If
  Loop Until EOF(1)
  Close 1
  
 Text1.Text = Text1.Text & crlf & "part 2" & crlf & crlf
  
   Open "c:\words\words.txt" For Input As #1
  Do
   Line Input #1, w$
   DoEvents
   If Len(w) >= 10 Then ' And Len(w) >= mx Then
     If w = "hands" Then
       xx = xx
     End If
     For i = 2 To 9
       If InStr(numkey(i, 0), Left(w, 1)) Then currkey = i: Exit For
     Next
     usedkeys$ = LTrim(Str(currkey))
     good = 1
     For posn = 2 To Len(w)
      For i = 2 To 9
       If InStr(numkey(i, 0), Mid(w, posn, 1)) Then
         currkey = i: Exit For
       End If
      Next
      ck$ = LTrim(Str(currkey))
      prevkey = Val(Right(usedkeys, 1))
      If InStr(numkey(prevkey, 1), ck) = 0 Then
        good = 0: Exit For
      End If
      usedkeys$ = usedkeys + ck
     Next
     If good Then
         mx = Len(w)
         Text1.Text = Text1.Text & mx & " " & w & crlf
     End If
   End If
  Loop Until EOF(1)
  Close 1
 
 Text1.Text = Text1.Text & " done"
  
End Sub


  Posted by Charlie on 2019-01-15 15:55:46
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 (5)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

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