Apr 30, 2016 14:39
I haven't done any programming in so long I'm starting to
hallucinate. Here is today's hallucination. Lor' help me, I would
have written the whole thing if I hadn't already read somewhere
that counting syllables in arbitrary words is hard.
Open Dictionary text file;
Create new output text file;
WHILE NOT EOF(Dictionary) DO
BEGIN
REPEAT
Readln(Dictionary,WordEntry)
UNTIL WordIsNoun(WordEntry);
ParseOutWord(WordEntry,WordItself);
If CountSyllables(WordItself) = 1 THEN
BEGIN
Capitalize(WordItself);
Writeln(OutputFile, WordItself+'y Mc'+
WordItself+'face')
END
END;
Close dictionary file;
Close output file;
pascal,
programming