Eli Riggs rjeli

## profit.hs
profit :: [Int] -> Int
profit xs = f (head xs) 0 (tail xs)
  where
    f minVal maxDiff [] = maxDiff
    f minVal maxDiff (x:xs) = f (min minVal x) (max maxDiff (x - minVal)) xs

-- O(n) time, O(1) memory
	profit :: [Int] -> Int
	profit xs = f (head xs) 0 (tail xs)
	where
	f minVal maxDiff [] = maxDiff
	f minVal maxDiff (x:xs) = f (min minVal x) (max maxDiff (x - minVal)) xs

	-- O(n) time, O(1) memory