{-#########################################################
 
	Joseph Curtis
	3952239

	COMP2600 - Lab 1
	Haskell thing

#########################################################-}

square:: Int -> Int
square n = n * n

triple:: Int -> Int
triple n = 3 * n

addC :: Int -> Int -> Int
addC m n = m + n

addN :: (Int, Int) -> Int
addN (m, n) = m + n

fib :: Integer -> Integer
fib n =
   if n==0 then 1
   else if n==1 then 1
   else fib(n-1) + fib(n-2)

fib n
  | n < 2 = 1
  | otherwise = fib(n-1) + fib(n-2)

factorial :: Integer -> Integer
factorial n =
	 if n == 0 then 1
	 else n * factorial(n - 1)

factorial n
	| n == 0 = 1
	| otherwise = n * factorial(n - 1)

sixCubes :: [Int]
sixCubes = [n^3 | n <- [1..6]]