PasteRack.org
Paste # 69772
2018-03-13 14:39:20

Fork as a new paste.

Paste viewed 187 times.


Embed:

  1. #lang racket
  2. (define t '(10 (5 (4 (2 () ())
  3.                      (26 () ()))
  4.                   (21 (15 () ())
  5.                       (23 () ())))
  6.                (11 (6 () ())
  7.                    (13 () ()))))
  8.  
  9. (define (leaf? t)
  10.    (and (null? (cadr t)) (null? (caddr t))))
  11.  
  12. (define (tree-max t)
  13.   (if (null? t)
  14.       0
  15.       (max (car t) (tree-max (cadr t)) (tree-max (caddr t)))))
  16.  
  17. (tree-max t)

=>

26