Download or view homonyms.frink in plain text format
// Program to find homophones, that is words that sound alike but are
// spelled differently.
// Use the Carnegie Mellon Pronunciation Dictionary
// The wordlist files are part of the Moby wordlist project, available at:
// http://icon.shef.ac.uk/Moby/
file = "file:///home/eliasen/prog/mobydict/mpron/cmupronunciation.txt"
words = dict[]
// Read in approved words (to filter out most proper names)
approved = dict[]
approvedWords = "file:///home/eliasen/prog/mobydict/mwords/commondictionary.txt"
for line = lines[approvedWords]
approved@(uc[line]) = true
for line = lines[file]
{
// Regex matches just the word (minus number like (2) in parens and
// pronunciation.
if [word, pron] = line =~ %r/^([A-Z']+)(?:\(\d+\))?\s+(.*)/
{
if (approved@word == true)
if words@pron == undef
words@pron = [word]
else
words@pron.push[word]
}
}
// Print any entries with duplicate pronunciations.
for [pron, wordlist] words
{
if length[wordlist] > 1
println["$wordlist\t$pron"]
}
Download or view homonyms.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen was born 19966 days, 0 hours, 26 minutes ago.