Download or view CarTalkPuzzle.frink in plain text format
// Puzzle from CarTalk via Jenny Williams:
// What's a five letter, one syllable word, that if you removed either of the
// first two letters (but not both), you'd end up with a homophone of the
// original word?
// Put four-letter, one-syllable words into a dictionary
fours = new dict
// The wordlist files are part of the Moby wordlist project, available at:
// http://icon.shef.ac.uk/Moby/
for line = lines["file:///home/eliasen/prog/mobydict/mpron/cmupronunciation.txt"]
if [word, pron] = line =~ %r/^(\w{4})(?:\(\d\))?\s+(.*)/
if ! (pron =~ %r/(0|2)/) // Eliminate multi-syllable words
fours@word = pron
// Now test five-letter words
for line = lines["file:///home/eliasen/prog/mobydict/mpron/cmupronunciation.txt"]
if [word, pron] = line =~ %r/^(\w{5})(?:\(\d\))?\s+(.*)/
if ! (pron =~ %r/(0|2)/) // Eliminate multi-syllable words
{
w2 = right[word, 4] // Take last 4 letters
p2 = fours@w2 // Look up pronunciation
w3 = left[word,1] + right[word,3] // Take first letter & last 3
p3 = fours@w3 // Look up pronunciation
if pron == p2 and pron == p3
println["$word\t$w2\t$w3\t$pron"]
}
Download or view CarTalkPuzzle.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 19967 days, 1 hours, 37 minutes ago.