來自條件分支的遞歸調用

Question

我開始接觸Lisp，我正在嘗試使用萊布尼茲公式來編寫一個近似pi的過程;我想我很近，但我不知道如何繼續。當前的行爲是它正確地進行了第一次計算，但程序終止並顯示數字「1」。我不確定我是否能像遞歸調用這個定義的函數，

;;; R5RS 
(define (pi-get n) 
    (pi 0 1 n 0)) 

(define (pi sum a n count) 
    ;;; if n == 0, 0 
    (if (= n 0) 0) 
    ;;; if count % 2 == 1, + ... else -, if count == n, sum 
    (cond ((< count n) 
     (cond ((= (modulo count 2) 1) 
       (pi (+ sum (pi-calc (+ 2 a))) (+ a 2) n (+ count 1))) 
       (pi 
       (- sum (pi-calc (+ 2 a))) (+ a 2) n (+ count 1)))))) 

(define (pi-calc a) 
    (/ 1.0 a)) 

道歉，如果這是一個有點不可讀，我剛學的Lisp現在幾個星期，我不知道是什麼標準格式化會爲語言。我已經添加了一些評論，希望有所幫助。

Answer 1

正如Sylwester所說，它在我的語法部分被證明是一個錯誤。

;;; R5RS 
(define (pi-get n) 
(pi 1 1 n 0)) 

(define (pi sum a n count) 
(if (= n 0) 0) 
(cond ((< count n) 
    (cond ((= (modulo count 2) 1) 
      (pi (+ sum (pi-calc (+ 2 a))) (+ a 2) n (+ count 1))) 
      ((= (modulo count 2) 0) 
      (pi (- sum (pi-calc (+ 2 a))) (+ a 2) n (+ count 1)))) 
(display (* 4 sum)) (newline)))) 

(define (pi-calc a) 
(/ 1.0 a))