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 Stepper。步进器将向您显示如何一步一步地评估程序。步进器只适用于用教学语言编写的程序，所以我稍微改变了你的程序（我没有改变逻辑）。

在DrRacket中打开一个新文件。粘贴下面的程序（包括最后的例子）。选择＆＃34;选择语言...＆＃34; ＆＃34;语言＆＃34;中的项目菜单。然后选择＆＃34;初学者＆＃34;语言。最后点击＆＃34; Step＆＃34;按钮（带有复选标记和后视镜的图标旁边）。

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

之类的括号中

Scheme Racket计算List无限循环中的Max元素

2 个答案: