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?
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 |
No Subject
