0
請問,我的代碼有什麼不好?我該如何修改它?快速排序方案
(define pivot (lambda (l)
(cond ((null? l) 'done)
((null? (cdr l)) 'done)
((<= (car l) (cadr l)) (pivot (cdr l)))
(#t (car l)))))
(define (quicksort l)
(let ((piv (pivot l)))
(if (equal? piv 'done) l
(let ((parts (partition piv l()())))
(append (quicksort (car parts))
(quicksort (cadr parts)))))))
你可以修復格式! – leppie
請勿將問題替換爲「aaaaaaa」,如果需要,請使用註釋提供更多信息 –