From 9e2551af5499c095c075661cd9783cafc5cf5fe9 Mon Sep 17 00:00:00 2001
From: Hammy <sgoudham@gmail.com>
Date: Sun, 4 Apr 2021 18:45:50 +0100
Subject: [PATCH] Add inc, double, square functions

---
 Unit 1/calculate/change/calcChange.hs | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 Unit 1/calculate/change/calcChange.hs

diff --git a/Unit 1/calculate/change/calcChange.hs b/Unit 1/calculate/change/calcChange.hs
new file mode 100644
index 0000000..9bdf00e
--- /dev/null
+++ b/Unit 1/calculate/change/calcChange.hs	
@@ -0,0 +1,19 @@
+calcChange :: (Ord p, Num p) => p -> p -> p
+calcChange owed given = if change > 0
+                        then change
+                        else 0
+    where change = given - owed
+
+inc :: Num a => a -> a
+inc x = x + 1
+
+double :: Num a => a -> a
+double x = x * 2
+
+square :: Num a => a -> a
+square x = x * x
+
+evenOrOdd :: Integral a => a -> a
+evenOrOdd n = if even n
+              then n - 2
+              else 3 * n + 1