方案括号

Posted 2021-04-05

任何人都可以通过以下方式找到列表中的最小值和最大值并将其作为列表返回来帮助我发现错误吗？它应该是逻辑上的工作。我想括号有问题。

(define (find-min-and-max my-list)
    (find-min-max-rec (car my-list) (car my-list) my-list)
)

(define (find-min-max-rec smallest largest ls)
    (if (null? ls)
        (list smallest largest)
    )
    (cond 
        ((and (< smallest (car ls)) (> largest (car ls)) ) (find-min-max-rec (car ls) (car ls) (cdr ls)))
        ((< smallest (car ls)) (find-min-max-rec (car ls) largest (cdr ls)))
        ((> largest (car ls)) (find-min-max-rec smallest (car ls) (cdr ls)))
        (else (find-min-max-rec smallest largest (cdr ls)))
    )
)

(display (find-min-and-max '(1 2 3 4)))

控制台输出

*** ERROR: pair required, but got ()
    While loading "./jdoodle.sc" at line 17
Stack Trace:
_______________________________________
  0  (car ls)
        at "./jdoodle.sc":10
  1  (find-min-and-max '(1 2 3 4))
        at "./jdoodle.sc":17
Command exited with non-zero status 70

预期

(1 4)

此外，您是否建议使用任何调试工具？

注意：我一直在这里运行我的代码：https://www.jdoodle.com/execute-scheme-online

答案

是的，实际上你是对的。圆括号有问题。

这是一个线索：这对此有何评价？

(define (f x)
  (if (< x 5) 10)
  12)

(f 3)

为什么？