PasteRack.org
Paste # 31493
2018-03-12 18:32:08

Fork as a new paste.

Paste viewed 15 times.


Embed:

  1. #lang racket
  2.  
  3. (define t '(10
  4.             (5 (3 () ()) (1 () ())) (12 (14 (20 ()())(24 ()())) (16 ()()))))
  5. (define (right-tree t)
  6.  
  7.   (if (null? t)
  8.       '()
  9.       (cons (car t)(right-tree(caddr t)))))
  10.  
  11. (right-tree t)

=>

'(10 12 16)