Hex words: Difference between revisions
Added AutoHotkey
Alextretyak (talk | contribs) (Added 11l) |
Alpha bravo (talk | contribs) (Added AutoHotkey) |
||
Line 260:
Found 13 hex words with 4 or more distinct digits
</pre>
=={{header|AutoHotkey}}==
<lang AutoHotkey>FileRead, wList, % A_Desktop "\unixdict.txt"
hexWords := Hex_words(wList)
Header := "Base 10`t`tWord`tRoot`n"
for dr, obj in hexWords
for word, dec in obj
result .= dec "`t" (StrLen(dec) < 8 ? "`t" : "") word "`t" dr "`n"
MsgBox, 262144, ,% result := Header . result . "`n4 distinct letter words:`n" . Header . filter(result, "abcdef", 4)
return
;-------------------------------------------
filter(result, letters, Count){
for i, line in StrSplit(result, "`n", "`r") {
counter := 0
for j, letter in StrSplit(letters)
StrReplace(line, letter, letter, cnt, 1), counter += cnt
if (counter >= Count)
filtered .= line "`n"
}
Sort, filtered, RN
return filtered
}
;-------------------------------------------
Hex_words(wList){
hexWords := []
for i, w in StrSplit(wList, "`n", "`r") {
if (StrLen(w) < 4 || w ~= "i)[^abcdef]")
continue
dec := hex2dec(w)
dr := digital_root(dec)
hexWords[dr, w] := dec
}
return hexWords
}
;-------------------------------------------
digital_root(n){
loop {
sum := 0, i := 1
while (i <= StrLen(n))
sum += SubStr(n, i++, 1)
n := sum
}
until (sum < 10)
return sum
}</lang>
{{out}}
<pre>Base 10 Word Root
703162 ababa 1
43966 abbe 1
56026 dada 1
57007 deaf 1
14600926 decade 1
52958 cede 2
65261 feed 2
44013 abed 3
712173 added 3
47838 bade 3
782014 beebe 4
912586 decca 4
56030 dade 5
48813 bead 6
14613198 deface 6
47806 babe 7
64222 fade 7
57005 dead 8
15727310 efface 8
16435934 facade 8
11325150 accede 9
48879 beef 9
51966 cafe 9
896202 dacca 9
57069 deed 9
64206 face 9
4 distinct letter words:
Base 10 Word Root
16435934 facade 8
15727310 efface 8
14613198 deface 6
14600926 decade 1
11325150 accede 9
912586 decca 4
64222 fade 7
64206 face 9
57007 deaf 1
51966 cafe 9
48813 bead 6
47838 bade 3
44013 abed 3</pre>
=={{header|AWK}}==
| |||