方案：函数，返回数字列表

Question

编写一个函数(pick-numbers-simple L)。

L 是一个简单列表，不包含嵌套列表。

该函数的结果是L 中的数字列表。

结果列表中数字的出现顺序应与L中的相同。例如，(pick-numbers-simple (list ab 1 2 c 3 d)) 的结果应为 (1 2 3)。

我有很多东西要写，我只需要一个良好的开端。如果我能在这件事上得到帮助，那么剩下的事情我就可以做。

Answer 1

number? 应该告诉您特定项目是否是数字。

一旦你有了它，它应该非常简单：返回值是一个由当前项（当且仅当它是数字）组成的列表，后面跟着对列表的其余部分进行操作的相同函数。

Answer 2

为了详细说明 @Jerry Coffin 的答案，并且由于问题标记为“作业”，您可以编写 pick-numbers-simple ，例如：

(define (pick-numbers-simple xs)
  (let loop ((acc (list))
             (xs xs))
    (cond
      ((empty? xs)
       (reverse acc))
      ((number? (car xs))
       (loop (cons (car xs) acc) (cdr xs)))
      (else
       (loop acc (cdr xs))))))

或使用函数 filter：

(define (pick-numbers-simple xs)
  (filter number? xs))

示例：

> (pick-numbers-simple (list 666 'foo 13 42 'bar))
(666 13 42)

Answer 3

这应该有帮助：

http://see.stanford.edu/materials/icsppcs107 /30-Scheme-Functions.pdf

以及：

http://en.wikipedia .org/wiki/Scheme_%28programming_language%29