Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (19 sloc) 875 Bytes
module Y2018.M02.D22.Exercise where
Another one from P99, via the web on
P95 (**) English number words
On financial documents, like cheques, numbers must sometimes be written in full
words. Example: 175 must be written as one-seven-five. Write a predicate
full_words/1 to print (non-negative) integer numbers in full words.
fullWords :: Int -> String
fullWords n = undefined
{-- BONUS -----------------------------------------------------------------
Now, output the number in your native language... Finnish will be fun!
Note, the example above is NOT in English, so, if your native language is
English, output "one hundred seventy-five" not this "one-seven-five" weirdness.
realWords :: Int -> String
realWords n = undefined
-- so your lexicon will be ... a 'bit' richer, eh?