Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- computeArea :: [(Double,Double)] -> Double
- computeArea [] = 0.0
- computeArea [(_, _)] = 0.0
- --computeArea [(_,_)] = error "Wrong types!"
- computeArea (x:xs) = (det x (head xs)) + (computeArea (tail xs))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement