从列表中添加数字（例如 asdf125dkf 将返回 8）

Question

我需要一个函数，它将接受字符和数字列表，然后返回相加的数字（忽略字符）。这就是我到目前为止所得到的：

(define (adder lst)
   (cond
     ((null? lst)
       0)
     ((number? (car lst))
      (+(adder (car lst)) (adder (cdr lst))))
     ((char? (car lst))
      ((adder(cdr lst))))
     ))

(display (adder '(asd12sdf)))

在 codepad.org 上运行它只会显示 void。我知道代码是错误的，因为它看起来是错误的，但我不知道如何修复它...我如何让该函数跟踪它找到的第一个数字并将其添加到它找到的下一个数字，同时跳过所有数字人物？

Answer 1

在第二种情况下，没有理由在 (car lst) 上运行 adder 。只需将 (car list) 本身添加到递归步骤中就可以了。

对于最后一行，不要测试 (char? (car lst))。只需将最后一行设为 else 子句，这意味着除数字之外的任何内容都将转到 else 行。

您得到 void 的原因是因为您的输入不满足任何 cond 条件，并且您没有 else，因此答案是什么（即(void)）。

最后一个错误在于您提供的输入中。 '(asd12sdf) 实际上是一个包含一个名为“asd12sdf”符号的列表。我想你想给它 '(asd 1 2 sdf) （6 个符号和 2 个数字的列表），结果应该是 3。请注意，符号 之间有一个非常重要的区别'a 和字符 #\a。

看起来你已经掌握了逻辑，所以你的问题似乎不是函数式语言，而是Scheme的语法。

编辑：，在最后一行，你有 ((adder(cdr lst))) ，它周围有太多的括号。这将导致Scheme尝试将加法器的结果（这是一个数字）作为过程进行评估（错误！）。

Answer 2

您应该观察到这个函数或多或少是 sum ，可以简单地使用 fold 来定义。

(define (adder lst)
   (fold + 0 lst))

折叠有什么作用？基本上，它的定义如下：（

(define (fold f initial lst)
  (if (null? lst)
     initial
     (fold f (f (car lst) initial) (cdr lst))))

换句话说，它在 lst 的每个元素上调用 f，一个有 2 个参数的函数，使用 lst 的汽车作为第一个参数，并将累积结果作为 f 的第二个参数。 ）

这里您需要解决的问题是 + 不知道如何对非数字值进行操作。没问题，你已经处理过了。如果它是一个角色，会发生什么？好吧，您没有在总值中添加任何内容，因此将其替换为 0。因此，您的解决方案非常简单：

(define (adder lst)
   (fold your-new-protected-+ 0 lst))

Answer 3

在 Common Lisp 中：

(reduce #'+ '(1 #\a #\b 2 1 2 #\c #\d 4)
        :key (lambda (item) (if (numberp item) item 0)))

或

(loop for item in '(1 #\a #\b 2 1 2 #\c #\d 4)
      when (numberp item) sum item)