let value i =
  let sum = ref 1 in
  for j = 1 to i do
    sum := !sum * 3
  done;
  !sum

let rec sum3 n =
  if n = 0 then 1 else
    (value n) + sum3 (n - 1)
Edit
Pub: 23 Mar 2021 13:04 UTC
Views: 120