scheme - 查找列表中的元素是否为整数？

Question

我想知道，你如何检查列表中的每个元素是否都是整数？我可以使用 (integer? (car list) 来检查第一个元素，但是如果我这样做 (integer? (cdr list)，它总是返回 false (#f) 因为整个列表的最后一部分不是整数)作为一个团队。
在这种情况下，假设列表被定义为。
(定义列表'(1 2 5 4 5 3))

Answer 1

  (define get-integers
    (lambda (x)
     (if (null? x)
        "All elements of list are integers"
        (if (integer? (car x))
            (get-integers (cdr x))
            "Not all elements are an integer"))))