factorial - モーツァルト関数の解析エラー

Question

この Mozart オンラインコンパイラでこの階乗関数を実行しようとしているとき

解析エラーが発生しました!

    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 scriptです。インタラクティブな 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