尝试实现平方树的方法，关键字后出现错误4部分

Question

我正在尝试实现一种方法，该方法能够使用map对包含子列表（树）的列表进行平方运算。

这意味着(square-tree-map (list 1 3 (list 3 4)))应该返回(1 9 (9 16)) 。

我想出了以下代码：

(define (square-tree-map tree)
  (define (sq x) (* x x))
  (map (lambda (t) 
         (if (pair? t) 
             (cons (square-tree-map (car t))
                   (square-tree-map (cdr t)))
             sq t)) 
       tree))

这给出了错误：

if：语法错误； 在关键字中有4个部分：（if（pair？t）（cons（平方树映射（car t））（平方树映射（cdr t）））sq t）

在if运算符之后，我仅看到两种可能性，而不是4。为什么会出现此错误？

Answer 1

原来是语法错误：

(if (pair? t) 
     (cons (square-tree-map (car t))
           (square-tree-map (cdr t)))
     sq t)) 

应该：

(if (pair? t) 
    (cons (square-tree-map (car t))
           (square-tree-map (cdr t)))
     (sq t))) 

因此，错误来自于sq和t被视为2的事实。

通过执行上述操作，我看到应该围绕它构建另一个if-check，以确保我们不会尝试映射不可能的单个值：

(define (square-tree-map tree)
  (define (sq x) (* x x))
  (if (pair? tree)
      (map (lambda (t) 
             (if (pair? t) 
                 (cons (square-tree-map (car t)) 
                       (square-tree-map (cdr t)))
                 (sq t)))
           tree)
      (sq tree)))

(square-tree-map (list 1 (list 4 2) 3 5))
;; => (1 (16 4) 9 25)

最后，从定义上看，因为l = (cons (car l) (cdr l)) ，所以cons汽车和cdr是多余的操作。 较短的解决方案是：

(define (square-tree-map tree)
  (define (sq x) (* x x))
  (map (lambda (t) 
         (if (pair? t) 
             (square-tree-map t)
             (sq t)))
       tree))

感谢您的关注。