Здравствуйте, zverjuga, Вы писали:
Z>приветствую. засел за изучение F#. язык и подход для меня новый, все переворачивается с ног на голову, потому прошу помощи. имеется следующий код
Z>Z> let distance (pt1: Point) (pt2: Point) =
Z> let square x = x * x
Z> sqrt <| square (pt1.x - pt2.x) + square (pt1.y - pt2.y)
Z>
Вот так, наверное:
let distance_position (pt1: Point) (pt2: Point) =
match pt1, pt2 with
| Position (p1x, p1y), Position (p2x, p2y) -> sqrt <| square (p1x - p2x) + square (p1y - p2y)
| _ -> 0.0
