莫扎特函数解析错误

Question

当我尝试在线运行此阶乘函数时编译器

我得到了解析错误！

    declare
fun {Fact N}
   fun{Aux N Nmax FactNminus1}
      if N>Nmax then nil
      else (FactNminus1*N)|{Aux N+1 Nmax FactNminus1*N}
      end
   end
in
   {Aux 1 N 1}
end
{Browse {Fact 4}}

我如何在这个在线编译器上运行这段代码！

Answer 1

你的代码是一个 Oz 脚本。它可以在交互式莫扎特IDE（Emacs）中使用。

在线编译器需要一个 Oz 程序，即函子定义。试试这个代码：

functor
import
   Application
   System
define
   fun {Fact N}
      fun{Aux N Nmax FactNminus1}
         if N > Nmax then nil
         else (FactNminus1*N)|{Aux N+1 Nmax FactNminus1*N}
         end
      end
   in
      {Aux 1 N 1}
   end
   {System.show {Fact 4}}
   {Application.exit 0}
end