Recursion 如何编写一个递归函数，在OCaml中生成几何级数？

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

#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

---

你试过什么吗？