Data update

Task/Textonyms/Crystal/textonyms.cr

@@ -0,0 +1,21 @@
+filename = "unixdict.txt"
+from = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
+to   = "2223334445556667777888999922233344455566677778889999"
+
+mapping = File.read(filename).each_line.reject(/[^A-Za-z]/).group_by {|w| w.tr(from, to) }
+textonyms = mapping.select { |k, v| v.size > 1 }
+
+nwords = mapping.values.map(&.size).sum
+
+puts "There are #{nwords} words in #{filename} which can be represented by the digit key mapping."
+puts "They require #{mapping.size} digit combinations to represent them."
+puts "#{textonyms.size} digit combinations represent Textonyms."
+
+# let's find something original
+
+repeated = mapping.keys.select(/^(.)\1\1+$/).sort_by(&.size).reverse
+puts
+puts "Least-effort words"
+repeated.each do |w|
+  puts "  #{w}\t #{mapping[w].join(", ")}"
+end