(define (tri L comparateur)
 (define (separer L)  
  (if (null? L)  ()
    (cons (list (car L)) (separer (cdr L)))))
 (define (fusion L1 L2 comparateur)
  (cond
   ((null? L1) L2)
   ((null? L2) L1)
   ((comparateur (car L2) (car L1))  
    (cons (car L2) (fusion L1 (cdr L2) comparateur)))
   (else
    (cons (car L1) (fusion (cdr L1) L2 comparateur))))))))
 (define (deux L)
  (if (null? (cdr L)) L
          (cons (fusion (car L) (cadr L) comparateur) (deux (cddr
    L)))))
 (define (aux L)
  (if (null? (cdr L)) (car L)
     (aux (deux L))))
 (aux (deux (separer L))))
 
ce programme doit realiser un tri... mais j ai un message d erreur "separer unbound variable"

parenthese de merde

laisses tomber bourdel      

(define (tri L comparateur)
 (define (separer L)  
  (if (null? L)  ()
    (cons (list (car L)) (separer (cdr L)))))
 (define (fusion L1 L2 comparateur)
  (cond
   ((null? L1) L2)
   ((null? L2) L1)
   ((comparateur (car L2) (car L1))  
    (cons (car L2) (fusion L1 (cdr L2) comparateur)))
   (else
    (cons (car L1) (fusion (cdr L1) L2 comparateur)))))
 (define (deux L)
  (if (null? (cdr L)) L
          (cons (fusion (car L) (cadr L) comparateur) (deux (cddr
    L)))))
 (define (aux L)
  (if (null? (cdr L)) (car L)
     (aux (deux L))))
 (aux (deux (separer L))))
 
 
erreur dans un cdr :'(