如何编写一个递归函数来实现OCaml中的几何级数？

Question

在OCaml中，对于几何级数，我必须使用第一项和比率的常量值来编写递归函数。 我还必须使用let ... in和带有一个参数的辅助函数编写一个具有这两个参数的函数。

Answer 1

#something like that ?
let rec u u0 q = function
   0 -> u0
  |n -> q * u u0 q (n-1)
;;

测试：

# u 1 2 1;;
- : int = 2
# u 1 2 5;;
- : int = 32