euclidDist :: (Int, Int) -> (Int, Int) -> Double
euclidDist (xi,yi) (xxi,yyi) = sqrt $ (x-xx)^2 + (y - yy)^2
    where 
        x = fromIntegral xi
        y = fromIntegral yi
        xx = fromIntegral xxi
        yy = fromIntegral yyi
euclidDist :: (Int, Int) -> (Int, Int) -> Double
euclidDist (xi,yi) (xxi,yyi) = sqrt $ (x-xx)^2 + (y - yy)^2
    where 
        x = fromIntegral xi
        y = fromIntegral yi
        xx = fromIntegral xxi
        yy = fromIntegral yyi
euclidDist (xi,yi) (xxi,yyi) = sqrt $ (x-xx)^2 + (y - yy)^2
    where 
        x = fromIntegral xi
        y = fromIntegral yi
        xx = fromIntegral xxi
        yy = fromIntegral yyi