方案中的冒泡程序

时间:2015-08-03 04:12:50

标签: sorting vector scheme racket bubble-sort

我不明白为什么(冒泡排序!(向量2 1))用我的代码返回#(2 2)。

(define (bubble-sort! v)
    (define (helper c orig-v n)
    (cond
        ((< n 0)
            v)
        ((> c n)
            (helper 0 v (- n 1)))
        ((>= (vector-ref orig-v c) (vector-ref orig-v (+ c 1)))
            (begin
                (vector-set! v (+ c 1) (vector-ref orig-v c))
                (vector-set! v c (vector-ref orig-v (+ c 1)))
                (helper (+ c 1) v n)))
        (else
            (helper (+ c 1) v n))))
(helper 0 v (- (vector-length v) 2)))

我自己跟踪了我的代码,但没有发现问题。

1 个答案:

答案 0 :(得分:4)

在您的代码中vorig-v相同的向量(如果您将向量作为参数传递,则不会复制向量:这类似于“call-by” -reference“正如其他语言所称。”

因此,在函数内部处理作为参数传递的向量,以及两个表达式:

(vector-set! v (+ c 1) (vector-ref orig-v c))
(vector-set! v c (vector-ref orig-v (+ c 1)))

相当于:

(vector-set! orig-v (+ c 1) (vector-ref orig-v c))
(vector-set! orig-v c (vector-ref orig-v (+ c 1)))

所以在第二个元素(包含1)中复制2,然后在第一个元素中复制2,最终结果为#(2,2)。