Составьте уменьшающийся список из числа

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

Компилятор Моцарта показывает, что кодпринято, но окно обзора не открывается.

Что не так?

Answer 1

Я думаю, что ничего не отображается, потому что ваша функция Dec представляет собой бесконечный цикл, потому что вы никогда не устанавливаете время остановки, и поэтому окно обзора не отображается.

Функция должна быть:

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

Надеюсь, это было полезно:)