将整数附加到 Ocaml 中的列表

Question

如何在没有 @ 运算符的情况下以困难的方式实现此功能？

let rec append l i =

    (* For example, if l is a list [1;2] and i is an integer 3
              append [1;2] 3 = [1;2;3]*)
;;

Answer 1

不使用现有的追加函数，甚至任何现有的函数，
仅模式匹配：

let rec insert_at_end l i =
  match l with
    [] -> [i]
  | h :: t -> h :: (insert_at_end t i)

# insert_at_end [1;2] 3  ;;
- : int list = [1; 2; 3]

另请注意，大多数 OCaml 标准库都是用 OCaml 编写的。通过阅读源码包，您可以获得您想要的功能的源代码，或者在本例中，几乎是您想要的功能。在本例中：

文件 ocaml-3.11.1/stdlib/pervasives.ml

(* List operations -- more in module List *)

let rec (@) l1 l2 =
  match l1 with
    [] -> l2
  | hd :: tl -> hd :: (tl @ l2)

Answer 2

简单的答案是：

let append l i = l @ [i]

List-append 作为 ocaml 中的中缀函数 @ 提供，因此无需您自己编写。在默认的 ocaml 发行版中，它不是尾递归，但您可以使用 extlib 并开始您的源文件包含：

open Extlib
open ExtList

这提供了尾递归 @ 实现。您还可以使用电池或Jane Street Core 用于尾递归追加。

Answer 3

如果您想手动完成所有操作（这并不那么困难），这是一种尾递归实现。

首先，反转列表的函数：

let mirror l =
    let rec aux accu = function
    | [] -> accu
    | h::t -> aux (h::accu) t
in aux [] l

使用辅助函数来实现尾递归是很常见的。

现在是实际的“追加”功能：

let append l i = mirror (i::(mirror l))