From ab8b8f5b16a3ddd85942f12fc3122476f041668a Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Thu, 5 Feb 2015 21:05:47 +0100 Subject: Added my code --- camil/2.11/BottlesOfBeer.icl | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 camil/2.11/BottlesOfBeer.icl (limited to 'camil/2.11/BottlesOfBeer.icl') diff --git a/camil/2.11/BottlesOfBeer.icl b/camil/2.11/BottlesOfBeer.icl new file mode 100644 index 0000000..70628a1 --- /dev/null +++ b/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 -- cgit v1.2.3