aboutsummaryrefslogtreecommitdiff
path: root/Haskell-book/05/src/Sing.purs
diff options
context:
space:
mode:
Diffstat (limited to 'Haskell-book/05/src/Sing.purs')
-rw-r--r--Haskell-book/05/src/Sing.purs14
1 files changed, 14 insertions, 0 deletions
diff --git a/Haskell-book/05/src/Sing.purs b/Haskell-book/05/src/Sing.purs
new file mode 100644
index 0000000..2ca173e
--- /dev/null
+++ b/Haskell-book/05/src/Sing.purs
@@ -0,0 +1,14 @@
+module Sing where
+
+import Prelude
+
+fstString :: String -> String
+fstString x = x <> " in the rain"
+
+sndString :: String -> String
+sndString x = x <> " over the rainbow"
+
+sing :: String
+sing = if (x > y) then fstString x else sndString y
+ where x = "Singin"
+ y = "Somewhere"