Question

我正在编写计算贝尔数字的程序，这是我在OCaml的第一个大项目。我想在循环中使用循环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来计算Bell数字，但我首先想要让程序在int上运行

Answer 1

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

OCaml问题Loop in Loop

1 个答案: