小编Car*_*ina的帖子

嗨,我对F#和编程都很新.我现在正在努力学习它,并已注册了一门课程,但我似乎仍然没有得到它.请帮助.我试图重写以下代码:

let rec msort xs =
    let sz = List.length xs
    if sz < 2 then xs  
    else let n = sz / 2
        let ys = xs. [0..n-1]
        let zs = xs.[n..sz-1]
        in merge (msort ys) (msort zs)

//************ Utility-funktion merge

let rec merge xs ys =   if List.isEmpty xs then ys   else if
List.isEmpty ys then xs   else let x = List.head xs
        let y = List.head ys
        let xs = List.tail xs
        let ys = List.tail ys …