问题描述
$1,525
$1,525.25
另一个例子:
let () =
let rec main m l acc =
if (acc = 3) then
acc
else
if (m = 1) then
l := 1 :: !l
main (m - 1) l
else if (m = 2) then
l := 2 :: !l
main (m - 1) l
else
l := m :: !l
main (m - 1) l
in l = ref []
let main 10 l 0
List.iter (fun l -> List.iter print_int l) l
解决方法
如果你想打印 [1;2;...;10]:
let () =
let rec main m l =
if (m = 0) then
!l
else begin
l := m :: !l;
main (m - 1) l
end
in
let l = ref [] in
List.iter print_int (main 10 l); print_newline();;
或者没有参考更好
let () =
let rec main m l =
if (m = 0) then
l
else
main (m - 1) (m::l)
in
List.iter print_int (main 10 []); print_newline();;
但我不确定你想做什么...
,您所说的“正确方式”是什么意思不是很清楚。功能性的“正确方法”是不使用引用。效率“正确的方法”是预先添加而不是附加。
另一种从 user4624500 的回答中得到启发的直接构建列表的方法可能是:
let rec f = function
| 0 -> [0]
| n -> n :: f (n-1)
(注意:这不是尾递归,并且会以负数丑陋失败...)
然后下面的表达式调用前面的函数来构建列表,然后打印结果(为了可读性而添加换行符):
let my_list = f 10 in
List.iter (fun n -> print_int n; print_newline ()) my_list