PasteRack.org
Paste # 35643
2018-03-13 14:44:01

Fork as a new paste.

Paste viewed 52 times.


Embed:

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

=>

26