来自条件分支的递归调用

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))