Рекурсивный звонок из Отделения условий

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

Как сказал Сильвестр, это оказалось ошибкой с моей стороны с синтаксисом.

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