Yet Another [À Compléter]

(define tri-bulle (lambda (t) (tb ‘() t #f))) (define tb (lambda (left right perm) (if (null? (cdr right)) (if perm (tb ‘() (append left right) #f) (append left right)) (let ((first (car right)) (second (cadr right)) (tail (cddr right))) (if (<= first second) (tb (append left (list first)) (cons second tail) perm) (tb (append left [...]