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 13:55:58 +13:00
parent b0e3f25bad
commit 473e1bdfc8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
beer.hs
View File

@ -23,11 +23,17 @@ lyrc's = (
lyrc's'o "pass it around"
)
shic :: Integer ->
(Integer -> ((Integer -> String) -> String)) ->
String ->
((Integer -> String) -> String)
shic x l w = (\f -> conk [l x $ f, w] (' ':) $[])
lyrc'b :: Integer -> ((Integer -> String) -> String)
lyrc'b x = (\f -> conk [lyrc'b'o x $ f, "of beer"] (' ':) $[])
lyrc'b x = shic x lyrc'b'o "of beer"
lyrc'w :: Integer -> ((Integer -> String) -> String)
lyrc'w x = (\f -> conk [lyrc'b x $ f, "on the wall"] (' ':) $[])
lyrc'w x = shic x lyrc'b "of beer"
lyrc :: Integer -> [((Integer -> String) -> String)]
lyrc x = [