F# 递归列表求和

下面是一个使用F#递归函数求和的示例代码：

let rec sumList (lst: int list) : int =
    match lst with
    | [] -> 0
    | head :: tail -> head + sumList tail

let myList = [1; 2; 3; 4; 5]
let result = sumList myList
printfn "Sum of the list: %d" result

这个例子定义了一个递归函数sumList，它接受一个整数列表作为输入，并返回列表中所有元素的和。函数使用模式匹配来处理两种情况：当列表为空时，返回0；当列表非空时，将列表的头部元素与剩余部分的和相加。递归调用sumList函数来处理剩余部分的列表，直到列表为空为止。

在主程序中，我们创建了一个整数列表myList，并将其传递给sumList函数来求和。最后，我们通过使用printfn函数将结果打印到控制台上。