todo

2019-03-12 13:09:41 +13:00 · 2019-03-12 13:09:41 +13:00 · b0e3f25bad
commit b0e3f25bad
parent 62d06d47c4
1 changed files with 2 additions and 0 deletions
--- a/beer.hs
+++ b/beer.hs
@ -46,6 +46,8 @@ thap f x = x f
 thop :: (Integer -> String) -> [((Integer -> String) -> String)] -> [String]
 thop f l = map (thap f) l

+--TO DO
+--edit this function to convert digits to english words
 tran :: Integer -> String
 tran = show