Я работаю над сортировкой списка списков по их первому элементу, например
(sort (list '(2 1 6 7) '(4 3 1 2 4 5) '(1 1))))
ожидаемый результат => ('(1 1) '(2 1 6 7) '(4 3 1 2 4 5))
Алгоритм, который я использовал, — пузырьковая сортировка. И я модифицировал его для работы со списками. Однако код не компилируется. Ошибка
mcar: contract violation
expected: mpair?
given: 4
Может ли кто-нибудь исправить мой код и объяснить его. Спасибо
(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)