F#求不带长度的中位数

open System

let median (data: int list) =
    let sortedData = List.sort data
    let length = List.length sortedData
    if length % 2 = 1 then
        List.nth (length / 2) sortedData
    else
        let middleIndex = length / 2
        let middleValues = [List.nth middleIndex sortedData; List.nth (middleIndex - 1) sortedData]
        List.average middleValues

let data = [5; 2; 8; 3; 1; 9; 4; 7; 6]
let result = median data

printfn "中位数: %A" result