在Mozart OZ编程中需要水平输出

Question

下面是我为使用Mozart OZ编程语言在1-100之间查找非素数而编写的代码。

Mozart OZ中的代码：

declare for A in 1..20 do for I in 2..A div 2 break:Ab do if A mod I ==0 then {Browse A} {Ab} end end end

在Mozart OZ中的输出如下：

4
6
8
9
10
12...This output is coming Vertically

但是，我希望输出水平，如下所示：

4|6|8|9|10|12....100

请帮助我修改Mozart编程语言中的代码，因为我对这种语言很陌生。谢谢！

Answer 1

很抱歉你的回答太迟了。我希望这对其他人有用。我会这样做：

declare
proc {NotPrime N ?R} %% R for Result.
   R=for A in 1..N collect:C do
        for I in 2..A div 2 break:Ab do
           if A mod I==0 then {C A} {Ab} end
        end
     end
end
{Browse {NotPrime 100}}

若要显示完整列表，请转到浏览器中的选项，然后选择“显示参数”.并将浏览限制宽度设置为更大的数目。