Код Ревью

Сравни свои решения

    #| BEGIN (Введите свое решение) |#
(define (count-leaves t)
  (if (not (pair? t))
      1
      (accumulate + 0 (map count-leaves t))))
#| END |#