方案球拍计算列表无限循环中的最大元素

Question

我正在用Scheme编写我的第一个程序，在解决了一堆语法问题之后，我遇到了一个无限循环。我只是试图检索列表中最大的数字并将其打印到控制台。以下是目前为止的内容:

(define (max-num lst)
  (cond [(= 0 (length lst)) (displayln "Your list is empty!")]
    [(= 1 (length lst)) (displayln (car lst))]
      ;start comparing recursively
    [>= (car lst) cdr(car lst) (max-num (list (car lst) (car(cdr lst))))]
          (else (max-num(cdr lst))))
    )
          )
(max-num '(1 2 3 4 5))
(max-num '(-5 -3 -2 -13))

Answer 1

一个非常有用的程序调试工具是Program step。步进器将向您展示如何一步一步地评估程序。步进只适用于用教学语言编写的程序，所以我对你的程序做了一点改变(我没有改变逻辑)。

在DrRacket中打开一个新文件。粘贴下面的程序(包括最后的示例)。选择"语言"菜单中的"选择语言…"项。然后选择"初学者"语言。最后点击"Step"按钮(在带有复选标记+镜子的图标旁边)。

(define (max-num lst)
  (cond
    [(= 0 (length lst))              "Your list is empty!"]
    [(= 1 (length lst))              (car lst)]
    [(>= (car lst) (cdr (car lst)))  (max-num (list (car lst) (car(cdr lst))))]
    [else                            (max-num(cdr lst))]))
(max-num (list 1 2 3 4 5))
(max-num (list -5 -3 -2 -13))

在整个计算过程中单击，直到发现错误为止。

Answer 2

>= (car lst) cdr(car lst)应该像[(>= (car lst) cdr(car lst)) (max-num (list (car lst) (car(cdr lst))))]一样放在括号里