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

Answer 2

此外，您没有获得任何浏览器窗口的原因是因为评估线程因此行而暂停：

Xs={List.append Xs I}

如前所述，变量只能分配一次，但此行还有其他错误。您尝试将Xs附加到我，但Xs仍未绑定。该线程因此暂停，直到将值分配给Xs。

以交互方式输入：

declare Xs in
{Browse {List.append Xs [2 3 4]}}

如果您没有看到任何结果，则不会打开浏览器。现在输入：

Xs= [1]

由于Xs被绑定，它会解锁第一个评估“线程”并弹出浏览器。

P.S。对于迟到的回答，我很抱歉，我对Oz感兴趣：P

如何在Oz中创建列表？

2 个答案: