Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
437 PurelyFunctional.tv Newsletter

Phone to letter translation

Phone keypads and rotary dials have little letters on them. Most numbers translate into letters. Of course, with only 10 digits, but 26 letters, there is a problem: the translation from letters to numbers is lossy. When translating from numbers to letters, there is always more than one possible interpretation.

Write a function that takes a string of digits and returns a collection of the possible strings of letters it corresponds to.

Examples

(digits->letters "22") ;=> ["aa" "ab" "ac" "ba" "bb" "bc" "ca" "cb" "cc"]

Here are the mappings you should use:

1: no letters
2: abc
3: def
4: ghi
5: jkl
6: mno
7: pqrs
8: tuv
9: wxyz
0: space

If a character appears in the input that does not have a mapping, it will appear in the output untranslated.

Thanks to this site for the problem idea, where it is rated Expert in JavaScript. The problem has been modified.

Please submit your solutions as comments on this gist.

To subscribe: https://purelyfunctional.tv/newsletter/

@KingCode
Copy link

KingCode commented Oct 6, 2021

(def dial {\1 "1", \2 "abc", \3 "def", \4 "ghi", \5 "jkl", \6 "mno", 
           \7 "pqrs", \8 "tuv", \9 "wxyz", \0 " "})

(defn digits->letters [digits]
  (map 
   (partial apply str)
   (loop [digs (-> digits reverse rest),
          acc  (->> digits last dial
                    (map list))]
     (if (empty? digs)
       acc
       (recur (rest digs) 
              (->> (dial (first digs))
                   (mapcat (fn [ltr]
                             (->> acc
                                  (map #(conj % ltr)))))))))))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment