oz - 如何在 Oz 中创建列表？

Question

我正在尝试在 Oz 中创建一个列表使用以下代码:

local Loop10 Xs in
   proc {Loop10 I}
      Xs={List.append Xs I}
      if I == 10 then skip
      else
     {Browse I}
     {Loop10 I+1}
      end
      {Browse Xs}
   end
{Loop10 0}
end

Mozart compiler显示代码被接受，但没有打开浏览窗口。我要做的就是在 Oz 中创建一个列表。

代码有什么问题？

Answer 1

不确定这是否是您想要的，但要创建 X 和 Y(含)之间所有整数的列表，您可以执行以下操作:

local
   fun {Loop From To}
      if From > To
      then nil
      else From | {Loop From+1 To}
      end
   end
in
   {Browse {Loop 0 10}} % Displays: [0,1,2,3,4,5,6,7,8,9,10]
end