factorial - 莫扎特函数解析错误

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脚本。它可以在交互式 Mozart 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