solutions to 4.35, 4.36 and 4.37

[sicp.git] / src / sicp / ex2_35.rkt

#lang racket

(require "utils.rkt")

(define (count-leaves t)
  (accumulate +
              0
              (map (lambda (x) (if (pair? x) (count-leaves x) 1)) t)))