1

再次回到另一个球拍问题。一般来说，高阶函数是新手，所以给我一些余地。

目前正在尝试使用 foldr/foldl 函数而不是递归来查找交替和。

例如 (altsum '(1 3 5 7)) 应该等于 1 - 3 + 5 - 7，总计为 -4。

我想了几种可能的方法来解决这个问题：

  1. 获取要在一个列表中添加的数字和要在另一个列表中减去的数字并将它们折叠在一起。
  2. 不知何故使用列表长度来确定是减还是加。
  3. 也许会生成某种 '(1 -1 1 -1) 掩码，分别相乘，然后折叠添加所有内容。

但是，当列表中的每个项目的每个操作都不相同时，我不知道从哪里开始 foldl/foldr，所以我无法实现我的任何想法。此外，每当我尝试在我的 foldl 的匿名类中添加超过 2 个变量时，我都不知道之后哪些变量引用了匿名类中的哪些变量。

任何帮助或指示将不胜感激。

4

2 回答 2

1

你的想法没问题。您可以使用range0 到长度为 1 的数字列表，并使用每个的奇数来确定+or -：

(define (alt-sum lst)
  (foldl (lambda (index e acc)
          (define op (if (even? index) + -)) 
          (op acc e))
        0
        (range (length lst))
        lst))

作为替代方案，可以使用SRFI -1 列表库，fold它允许不同长度的列表以及无限列表，并且可以与circular-list您一起在.+-lst

(require srfi/1) ; For R6RS you import (srfi :1)

(define (alt-sum lst)
  (fold (lambda (op n result)
           (op result n))
         0
         (circular-list + -)
         lst))

(alt-sum '(1 3 5 7))
; ==> -4
于 2018-06-15T20:45:27.030 回答
1

我们可以在这里利用两个高阶过程：foldr处理列表和build-list生成要执行的交替操作列表。请注意，它foldr可以接受多个输入列表，在这种情况下，我们获取一个数字列表和一个操作列表，并逐个元素地迭代它们，累积结果：

(define (altsum lst)
  (foldr (lambda (ele op acc) (op acc ele))
         0
         lst
         (build-list (length lst)
                     (lambda (i) (if (even? i) + -)))))

它按预期工作：

(altsum '(1 3 5 7))
=> -4
于 2018-06-15T20:20:57.073 回答