Scheme 函数返回最多第一个数字

Question

我想编写一个方案函数，它将一个列表作为其输入并返回一个列表，该列表包含输入列表中第一个数字元素之前的所有元素。

下面是一个例子:

(up-to-first-number '(a b c d 1 2 3)) ; returns (a b c d)

我怎样才能做到这一点？

Answer 1

在解释器中查找实现类似功能的现有过程。例如，在 Racket 中我们可以使用 takef - 下面简单地说明所有不是数字的元素都从列表中取出，当我们找到第一个数字时停止:

(define (up-to-first-number lst)
  (takef lst (negate number?)))

即使您使用不同的解释器，您始终可以使用 SRFI-1 的 take-while 类似的效果:

(require srfi/1) ; import the library, read your interpreter's documentation

(define (up-to-first-number lst)
  (take-while (lambda (x) (not (number? x))) lst))

作为最后的手段，您可以手动编写一个实现 - 这真的很简单，我不想破坏乐趣，所以我只会给您一些提示。用适当的表达填空:

(define (up-to-first-number lst)
  (if (or <???>   ; if either the list is empty
          <???>)  ; or the first element is a number
      <???>       ; then return the empty list
      (cons <???> ; otherwise cons the first element
            (up-to-first-number <???>)))) ; and advance the recursion

无论您选择哪种实现，都可以测试它是否按预期工作:

(up-to-first-number '(a b c d 1 2 3)) 
=> '(a b c d)