Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define arbre? ; booleen
- (lambda (A) ; une liste
- (or (vide? A)
- (and (= (length A) 3)
- (not (list? (car A)))
- (and (list? (cadr A)) (arbre? (cadr A)))
- (and (list? (caddr A)) (arbre? (caddr A)))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement