条件分岐からの再帰呼び出し

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