Ocaml在int列表中的问题

Question

如何将一个元素添加到一个int列表中？

|x::y::xs-> if(x<=y)               
       then [x]@(ordina (y::xs)) 
       else [x]::ordina (y::xs) 

我想这一点，但它没有工作..

Answer 1

要包含x新的int列表添加到int list list的头：

# let x = 14 in 
let ill = [[3;4]; [5;6]] in 
[x] :: ill ;; 
- : int list list = [[14]; [3; 4]; [5; 6]] 

你也可以写这：

# let x = 14 in 
let ill = [[3;4]; [5;6]] in 
[[x]] @ ill ;; 
- : int list list = [[14]; [3; 4]; [5; 6]] 

但这需要少量的不必要的工作。

作为一条评论，您的if的两个分支看起来像他们试图做同样的事情。如果你想要的结果是[[14; 3; 4]; [5; 6]]你需要编写更多的代码来解构int list list。

# let x = 14 in 
let ill = [[3;4]; [5;6]] in 
match ill with 
| [] -> [[x]] 
| h :: t -> (x :: h) :: t ;; 
- : int list list = [[14; 3; 4]; [5; 6]]