Fibonacci and Factorial

Author: shashanknp-linx

src/Maths/Factorial.hs

@@ -0,0 +1,9 @@
+module Maths.Factorial where
+
+fac :: Integer -> Integer 
+fac 0 = 1
+fac n = n * fac (n - 1)
+
+main :: IO ()
+main = do
+    print (fac 4)

src/Maths/Fibonacci.hs

@@ -0,0 +1,10 @@
+module Maths.Fibonacci where
+
+fib :: Integer -> Integer
+fib 0 = 0
+fib 1 = 1
+fib n = fib (n-1) + fib (n-2)
+
+main :: IO ()
+main = do
+    print (fib 10)