如何从Scheme中的递归调用获得#t和#f的返回值？

Question

这是有效的代码调用+/-计算，返回(calculate '(3 2 1) 0 0) -> 0和(calculate '(7 5 1 2) 0 0) -> 1。

我希望结果是 #f 或 #t 。提前谢谢。

(define calculate(lambda (List sum1 sum2)
                   (cond ((null? List)(if (> sum1 sum2) (- sum1 sum2) (- sum2 sum1)))
                     ((> (calculate (cdr List) (+ sum1 (car List)) sum2)(calculate (cdr List) sum1 (+ sum2 (car List))))
                          (calculate (cdr List) sum1 (+ sum2 (car List))))
                     (else (calculate (cdr List) (+ sum1 (car List)) sum2)))))

Answer 1

没有提示您希望它评估为<import5.json jq -c >ouput.json或#t的值，但其实质是通过分析结果使您的#f成为帮助者并执行逻辑：

calculate