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

cleanup

Browse Source
This commit is contained in:
Shaun Kerr 2019-03-12 14:50:34 +13:00
parent ac22ed0d4f
commit 2220b3753c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
beer.hs
View File

@ -11,8 +11,10 @@ conk [] _ = id
lyrc'b'o :: Integer -> ((Integer -> String) -> String)
lyrc'b'o x
| (x == 0) = (\_ -> "no more bottles")
| (x == 1) = (\f -> conk [(f x), "bottle"] (' ':) $ [])
| otherwise = (\f -> conk [(f x), "bottles"] (' ':) $ [])
| (x == 1) = cenk "bottle" x
| otherwise = cenk "bottles" x
where
cenk s x = (\f -> conk [(f x), s] (' ':) $ [])
lyrc's'o :: String -> ((Integer -> String) -> String)
lyrc's'o s = (\_ -> s)