From 98329e0a3dd4f78b5d815ac3896272ec70904901 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 11 Dec 2025 10:28:11 +0100 Subject: Add remaining haskell book exercises --- Haskell-book/14/morse/src/WordNumber.hs | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 Haskell-book/14/morse/src/WordNumber.hs (limited to 'Haskell-book/14/morse/src/WordNumber.hs') diff --git a/Haskell-book/14/morse/src/WordNumber.hs b/Haskell-book/14/morse/src/WordNumber.hs new file mode 100644 index 0000000..5b25ee2 --- /dev/null +++ b/Haskell-book/14/morse/src/WordNumber.hs @@ -0,0 +1,26 @@ +module WordNumber where + +import Data.List (unfoldr, intercalate) +import Data.Maybe (Maybe(..)) + +digitToWord :: Int -> String +digitToWord 0 = "zero" +digitToWord 1 = "one" +digitToWord 2 = "two" +digitToWord 3 = "three" +digitToWord 4 = "four" +digitToWord 5 = "five" +digitToWord 6 = "six" +digitToWord 7 = "seven" +digitToWord 8 = "eight" +digitToWord 9 = "nine" +digitToWord _ = "" + +digits :: Int -> [Int] +digits n = reverse $ unfoldr unfold n + where unfold x + | x == 0 = Nothing + | otherwise = Just ((mod x 10), (div x 10)) + +wordNumber :: Int -> String +wordNumber n = intercalate "-" $ map digitToWord (digits n) \ No newline at end of file -- cgit v1.2.3