summaryrefslogtreecommitdiff
path: root/week1/camil/2.11/BottlesOfBeer.icl
diff options
context:
space:
mode:
authorCamil Staps2015-02-05 21:10:43 +0100
committerCamil Staps2015-02-05 21:10:43 +0100
commit00fa19d1dd0c149adc1eac0777a68db48afbcb49 (patch)
tree1e63257db017fd33c6afa1fd253ab72b5bbecf02 /week1/camil/2.11/BottlesOfBeer.icl
parentAdded my code (diff)
Moved
Diffstat (limited to 'week1/camil/2.11/BottlesOfBeer.icl')
-rw-r--r--week1/camil/2.11/BottlesOfBeer.icl21
1 files changed, 21 insertions, 0 deletions
diff --git a/week1/camil/2.11/BottlesOfBeer.icl b/week1/camil/2.11/BottlesOfBeer.icl
new file mode 100644
index 0000000..70628a1
--- /dev/null
+++ b/week1/camil/2.11/BottlesOfBeer.icl
@@ -0,0 +1,21 @@
+module BottlesOfBeer
+
+import StdEnv
+
+Start = [(fst_line x +++ "\n" +++ snd_line x +++ "\n\n") \\ x <- [99,98..0]]
+
+fst_line :: Int -> String
+fst_line n = btl n True +++ wall +++ ", " +++ btl n False +++ " of beer."
+
+snd_line :: Int -> String
+snd_line 0 = "Go to the store and buy some more, " +++ btl 99 False +++ wall +++ "."
+snd_line n = "Take one down and pass it around, " +++ btl (n-1) False +++ wall +++ "."
+
+btl :: Int Bool -> String
+btl 0 True = "No more bottles"
+btl 0 False = "no more bottles"
+btl 1 b = "1 bottle"
+btl n b = toString n +++ " bottles"
+
+wall :: String
+wall = " of beer on the wall" \ No newline at end of file