HaskellCourse/geometry.hs

data Point = Point Float Float

distance p1 p2 = 
	let (Point a b) = p1 in
		let (Point c d) = p2 in
			sqrt ((a - c) * (a - c) + (b - d) * (b - d))