例如,我正在研究按第一个元素对列表列表进行排序
(排序(列表'(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)
怎么样(sort (lambda (x y)(< (car x)(car y))) <YOUR_LIST>)
?
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)