ocaml - ref countを使用せずにocamlループカウント？

Question

関数が実行される回数をカウントするためにカウントを使用していrefますが、参照を削除したい場合はどうなりますか？私はocamlの初心者です、アドバイスをください、これが私が得たものです：

let count =ref 0;;  
let rec addtive n=
if n<9 then count 
else(
     incr count;
     addtive(sum(digit(n)))
) ;;

# a 551515;;
- : int ref = {contents = 2}

でも私は

-: int = 2

Answer 1

!から値を抽出するには、then句にa を追加するだけrefです。

let count =ref 0;;   
let rec addtive n= 
  if n<9 then !count
  else(
    incr count;
    addtive(sum(digit(n)))  
  ) ;;

Answer 2

カウントを 2 番目のパラメーターとして渡す必要があります (必要に応じてヘルパー メソッドを定義します)。

let additive n =
  let rec helper n count =
    if n<9 then count
    else helper (sum (digit n)) (count + 1)
  in
  helper n 0