按方案中的第一个元素对列表进行排序
按方案中的第一个元素对列表进行排序
提问于 2016-10-15 08:32:57
我正在按第一个元素对列表进行排序，例如
(排序(列表'(2 1 6 7)“(4 3 1 2 4 5)”(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)回答 2
Stack Overflow用户
回答已采纳
发布于 2016-10-15 10:12:37
我改正了几个错误。至少还有一个错误。考虑L只包含一个元素的情况。
#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)Stack Overflow用户
发布于 2016-10-15 08:44:36
(sort (lambda (x y)(< (car x)(car y))) <YOUR_LIST>)怎么样？
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/40056854
复制相关文章
相似问题
腾讯云开发者
