1

我一直在打一个电话来积累，内容如下：

(define (accumulate op initial sequence)
  (if (null? sequence)
      initial
      (op (car sequence)
          (accumulate op initial (cdr sequence)))))

但是，当我尝试通过过滤器选择某些东西来解决问题时，答案不起作用。我到目前为止是这样的：

(define (f2b items)
   (accumulate (lambda (x y)
     (cons (append 
        (map square (filter negative? (filter number? x))) x) y)) () items)
  )

我给出的输入是：

(f2a '(("sdas" 89) (-53 "sad")))

我得到的输出是：

 ((sdas 89) (2809 -53 sad))

我似乎无法让负数消失。

4

2 回答 2

2

使用过滤器和映射会容易得多。过滤器是预定义的，但看起来像这样。

   (define (filter1 predicate sequence)
          (cond 
               ((null? sequence) null)
                ((predicate (car sequence))
                 (cons (car sequence)
                       (filter predicate (cdr sequence))))
                (else (filter predicate (cdr sequence)))))

map 也是预定义的，它只是在列表上运行一个函数。

这应该很容易编写，但是如果您需要帮助，您应该为过滤器中的谓词编写一个 lamdba。

于 2012-11-04T16:22:56.877 回答
1

实际上，您描述的功能通常不是累加器的工作。相反，对列表中的负数求平方似乎是地图之类的完美工作。

首先，让我们做：

(define (make-positive x)
    (if (and (number? x) (negative? x))
        (square x)
        x))

现在假设我们要对一个名为 的列表进行操作lst。如果它只是一个平面列表，比如'(1 "2" -5 -4 6)，那么我们可以

(map make-positive lst)

由于我们需要对嵌套两层深的列表进行操作，我们可以这样做：

(map (lambda (x)
        (map make-positive x))
     lst)

如果我们想对嵌套任意深度的列表进行操作，我们可以这样做：

(define (nested-map fn elm)
   (if (list? elm)
       (map (lambda (x) (nested-map fn x)) elm)
       (fn elm)))

(nested-map make-positive lst)

PS - 我们可以map这样定义：

(define (map fn lst)
   (if (empty? lst)
       '()
       (cons (fn (car lst))
             (map fn (cdr lst)))))
于 2012-10-31T07:04:04.850 回答