dist
(x1
, y1
) (x2
, y2
) = sqrt (dx
*dx
+ dy
*dy
) where
dx = x1- x2
dy = y1 - y2
p1 = (1,1)
p2 = (3,3)
p3 = (7,7)
main = do
print $ (dist p1 p2
) + (dist p2 p3
) == (dist p1 p3
)
CmRpc3QgKHgxLCB5MSkgKHgyLCB5MikgPSBzcXJ0IChkeCpkeCArIGR5KmR5KQogICAgd2hlcmUKICAgICAgZHggPSB4MS0geDIKICAgICAgZHkgPSB5MSAtIHkyCgoKcDEgPSAoMSwxKQpwMiA9ICgzLDMpCnAzID0gKDcsNykKCgptYWluID0gZG8KICBwcmludCAkIChkaXN0IHAxIHAyKSArIChkaXN0IHAyIHAzKSA9PSAoZGlzdCBwMSBwMykgIA==