loops - OCaml问题循环循环

Question

我正在编写程序以计算贝尔数，
这是我在OCaml中的第一个大型程序。
我想在循环While中使用循环While，但是存在语法错误。
请更正。谢谢。

我正在使用网站http://try.ocamlpro.com/

let rec factorial n =   
if n < 2 
   then 1
else 
   n * factorial(n-1)

let rec newton n k =
factorial n / (factorial k * factorial (n-k))

let bell = [|1;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0|]

let i = ref 2
let k = ref 0
let x = ref 0
let z = ref 0
let s = ref 0

在这里您需要选择您要计算的数字，例如4

let n = ref 4

if !n != 0 || !n != 1 then
    while !i <= !n do   
         while !k <= (!i-1) do
                x := newton (!i-1) !k;
                s := !s + (!x * bell.(!k));
                k := !k + 1 ;
                z := !k + 1
             done   
      s:=0;
      i:= !i + 1;
   done
else 
bell.(!n)<-1

应该使用Num来计算贝尔数，但是我首先我想使程序在int

上运行

Answer 1

您可以尝试在第一个;之后添加done。