如何使用最小/最大的线绘制算法？F#

type Point = { X: float; Y: float }

let distance (p1: Point) (p2: Point) =
    let dx = p2.X - p1.X
    let dy = p2.Y - p1.Y
    sqrt (dx * dx + dy * dy)

let rec findMinMaxLine (points: Point list) (result: Point list) =
    match points with
    | [] -> result
    | [p] -> p :: result
    | _ ->
        let leftmost = points |> List.minBy (fun p -> p.X)
        let rightmost = points |> List.maxBy (fun p -> p.X)
        let nextPoint =
            points
            |> List.minBy (fun p -> distance p leftmost + distance p rightmost)
        findMinMaxLine (List.filter (fun p -> p <> nextPoint) points) (nextPoint :: result)