PasteRack.org
Paste # 89405
2017-08-15 21:42:50

Fork as a new paste.

Paste viewed 63 times.


Embed:

  1. #lang racket
  2.  
  3. (define (count-leaves tree)
  4.   (cond
  5.     [(null? tree) 0]
  6.     [(and (not (pair? tree)) (even? tree)) 1]
  7.     [else (+ (count-leaves (car tree)) (count-leaves (cdr tree)))]))

=>