F# - 从整数输入生成元组列表

下面是一个从整数输入生成元组列表的F#代码示例：

open System

let rec readIntegers () =
    let input = Console.ReadLine()
    match Int32.TryParse(input) with
    | true, num -> num :: readIntegers()
    | false, _ -> []

let generateTuples (nums: int list) =
    let rec aux acc = function
        | [] | [_] -> acc
        | x::y::xs -> aux ((x, y)::acc) (y::xs)
    aux [] nums |> List.rev

[<EntryPoint>]
let main argv =
    printfn "Enter a list of integers (one per line), followed by a non-integer input to end the list:"
    let nums = readIntegers()
    let tuples = generateTuples nums
    printfn "Generated tuples:"
    tuples |> List.iter (fun (x, y) -> printfn "(%d, %d)" x y)
    0 // return an integer exit code

这个代码示例包括两个函数：readIntegers和generateTuples。readIntegers函数用于从标准输入读取整数，并将它们存储在一个列表中。该函数使用递归来连续读取整数，直到输入的值不是整数为止。

generateTuples函数接受一个整数列表作为输入，并生成一个元组列表。它使用辅助函数aux来递归处理输入列表。aux函数将当前元素和下一个元素组成一个元组，并将其添加到一个累积列表中。最后，使用List.rev将累积列表反转，以获得正确的顺序。

在main函数中，首先打印一条提示消息，然后调用readIntegers来获取整数列表。接下来，使用generateTuples生成元组列表，并使用List.iter函数将每个元组打印到标准输出中。

以上代码示例可以在F#的开发环境中进行编译和运行。输入整数时，每输入一个整数后按回车键进行换行，最后输入一个非整数值来结束输入。程序将打印出生成的元组列表。