Data commit

Task/Textonyms/Julia/textonyms-1.julia

@@ -0,0 +1,24 @@
+using Printf
+
+const tcode = (Regex=>Char)[r"A|B|C|Ä|Å|Á|Â|Ç" => '2',
+                            r"D|E|F|È|Ê|É" => '3',
+                            r"G|H|I|Í" => '4',
+                            r"J|K|L" => '5',
+                            r"M|N|O|Ó|Ö|Ô|Ñ" => '6',
+                            r"P|Q|R|S" => '7',
+                            r"T|U|V|Û|Ü" => '8',
+                            r"W|X|Y|Z" => '9']
+
+function tpad(str::IOStream)
+    tnym = (String=>Array{String,1})[]
+    for w in eachline(str)
+        w = chomp(w)
+        t = uppercase(w)
+        for (k,v) in tcode
+            t = replace(t, k, v)
+        end
+        t = replace(t, r"\D", '1')
+        tnym[t] = [get(tnym, t, String[]), w]
+    end
+    return tnym
+end

Task/Textonyms/Julia/textonyms-2.julia

@@ -0,0 +1,39 @@
+dname = "/usr/share/dict/american-english"
+DF = open(dname, "r")
+tnym = tpad(DF)
+close(DF)
+
+println("The character to digit mapping is done according to")
+println("these regular expressions (following uppercase conversion):")
+for k in sort(collect(keys(tcode)), by=x->tcode[x])
+    println("    ", tcode[k], " -> ", k)
+end
+println("Unmatched non-digit characters are mapped to 1")
+
+println()
+print("There are ", sum(map(x->length(x), values(tnym))))
+println(" words in ", dname)
+println("  which can be represented by the digit key mapping.")
+print("They require ", length(keys(tnym)))
+println(" digit combinations to represent them.")
+print(sum(map(x->length(x)>1, values(tnym))))
+println(" digit combinations represent Textonyms.")
+
+println()
+println("The degeneracies of telephone key encodings are:")
+println("  Words Encoded   Number of codes")
+dgen = zeros(maximum(map(x->length(x), values(tnym))))
+for v in values(tnym)
+    dgen[length(v)] += 1
+end
+for (i, d) in enumerate(dgen)
+    println(@sprintf "%10d  %15d" i d)
+end
+
+println()
+dgen = length(dgen) - 2
+println("Codes mapping to ", dgen, " or more words:")
+for (k, v) in tnym
+    dgen <= length(v) || continue
+    println(@sprintf "%7s (%2d) %s" k length(v) join(v, ", "))
+end