从一个数字做一个递减列表

Question

我需要创建 X 和 Y（含）之间所有整数的递减列表。

我正在尝试这个：

declare
local
   fun {Dec From To}
      From | {Dec From-1 To}
   end
in
   {Browse {Loop 8 1}} % Should Display: [8, 7, 6, 5, 4, 3, 2, 1]
end

Mozart 编译器显示代码已被接受，但没有打开浏览 window。

怎么了？

Answer 1

我认为没有显示任何内容，因为您的函数 Dec 是一个无限循环，因为您从未设置何时停止，这就是为什么不显示浏览 window 的原因。

函数应该是：

fun {Dec From To}
  if From == To then 
    nil
  else
    From | {Dec (From-1) To}
  end
end

希望对您有所帮助:)

Make a decreasing list from a number