|
@@ -46,6 +46,8 @@ thap f x = x f |
|
|
thop :: (Integer -> String) -> [((Integer -> String) -> String)] -> [String] |
|
|
thop :: (Integer -> String) -> [((Integer -> String) -> String)] -> [String] |
|
|
thop f l = map (thap f) l |
|
|
thop f l = map (thap f) l |
|
|
|
|
|
|
|
|
|
|
|
--TO DO |
|
|
|
|
|
--edit this function to convert digits to english words |
|
|
tran :: Integer -> String |
|
|
tran :: Integer -> String |
|
|
tran = show |
|
|
tran = show |
|
|
|
|
|
|
|
|