如何在 OCaml 中编写一个递归函数来实现几何级数？
How do I write a recursive function that makes the geometric progression in 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
在 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