Skip to content

Instantly share code, notes, and snippets.

@volgar1x

volgar1x/gist:f830512fbcbbbf672a6e

Created November 27, 2014 10:08
Show Gist options
  • Save volgar1x/f830512fbcbbbf672a6e to your computer and use it in GitHub Desktop.
Save volgar1x/f830512fbcbbbf672a6e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.lisp
(defun add (elem arbre)
(cond
((null arbre)
(list elem nil nil))
((plus-grand elem (rac arbre))
(list (rac arbre)
(sag arbre)
(add elem (sad arbre))))
((plus-petit elem (rac arbre))
(list (rac arbre)
(add elem (sag arbre))
(sad arbre)))
(t
arbre)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment