如何編寫使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