tA/beer
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

todo

Browse Source
This commit is contained in:
Shaun Kerr 2019-03-12 13:09:41 +13:00
parent 62d06d47c4
commit b0e3f25bad
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
beer.hs
View File

@ -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