liste de tri de listes par leur premier élément dans le schéma

Question

Je travaille sur le tri d'une liste de listes de leur premier élément par exemple
(tri (liste « (2 1 6 7) » (4 3 1 2 4 5) '(1 1))))

sortie attendue => (' (1 1) '(2 1 6 7)' (4 3 1 2 4 5))

L'algorithme I utilisé est bulle Trier. Et je l'ai modifié pour faire face à des listes. Cependant, le code ne compile pas. L'erreur est

mcar: contract violation 
    expected: mpair? 
    given: 4 

Quelqu'un peut-il corriger mon code et de l'expliquer. Merci

(define (bubble L) 
     (if (null? (cdr L)) 
      L  
      (if (< (car (car L)) (car (cadr L))) 
       (list (car L) 
         (bubble (car (cdr L)))) 
       (list (cadr L) 
         (bubble (cons (car (car L)) (car (cddr L)))))))) 

    (define (bubble-sort N L)  
     (cond ((= N 1) (bubble L)) 
       (else 
       (bubble-sort (- N 1) (bubble L))))) 

    (define (bubble-set-up L) 
     (bubble-sort (length L) L)) 


    (define t3 (list '(2 1 6 7) '(4 3 1 2 4 5) '(1 2 3) '(1 1))) 
    (bubble-set-up t3) 

Answer 1

J'ai corrigé quelques erreurs. Il reste au moins une erreur. Considérons le cas où L ne contient qu'un seul élément.

#lang r5rs 

(define (bubble L) 
    (if (null? (cdr L)) 
     L  
     (if (< (car (car L)) (car (cadr L))) 
      (cons (car L) 
       (bubble (cdr L))) 
      (cons (cadr L) 
       (bubble (cons (car L) (cddr L))))))) 

(define (bubble-sort N L)  
    (cond ((= N 1) (bubble L)) 
     (else 
     (bubble-sort (- N 1) (bubble L))))) 

(define (bubble-set-up L) 
    (bubble-sort (length L) L)) 


(define t3 (list '(2 1 6 7) '(4 3 1 2 4 5) '(1 2 3) '(1 1))) 
(display (bubble-set-up t3)) 
(newline) 

Answer 2

Comment sur (sort (lambda (x y)(< (car x)(car y))) <YOUR_LIST>)?