这可能是一个非常简单的问题,但我无法让它发挥作用。 我已经为windows安装了cygwin。我有一个包含一些代码的文本文件:
# let rec last_two = function
| [] -> None
| [x] -> None
| [x;y] -> (x,y)
| x::y -> last_two y;;
# print_endline last_two [1;2;3;4]
我该如何执行这个文本文件?
答案 0 :(得分:1)
您必须在每种情况下都返回一个' a选项:
let rec last_two = function
| [] | [_] -> None
| [x; y] -> Some (x, y)
| hd :: tl -> last_two tl;;
答案 1 :(得分:1)