1{-# LANGUAGE UnicodeSyntax #-}
2module Main where
3
4data Point = Point{pointX, pointY :: Double, name :: String}
5 deriving (Show)
6
7distance :: Point -> Point -> Double
8distance x y
9 = let t� = (pointX x - pointX y) ^ 2
10 t� = (pointY x - pointY y) ^ 2
11 in sqrt $ t� + t�
12