Usage examples:
(let ((my-dict (from-cmudict "path/to/cmudict-compatible-file")))
;; Look up all pronunciations for word
(pronounce-word my-dict "creepy")
;; => #<(K R IY P IY)>
;; Find words which match a phonetic regex
(find-words my-dict "# AE T")
;; => '("Bat" "Vat" "Cat" "That" "Sat")
(find-words my-dict "#<v,,f> AE T")
;; => '("Vat" "That")
;; Find words which match a phonetic metapattern
(find-metapattern my-dict 'perfect-rhyme "Chatter")
;; => '("Matter" "Blatter" "Clatter")
(find-metapattern my-dict 'near-rhyme "Chatter")
;; => '("Matter" "Blatter" "Clatter" "Antler" "Actor" "Adapter")
)
Repository: GitHub
License: MIT
See Also: soundex
Topics: Natural Language Processing