方案中的冒泡排序过程

bubble-sort procedure in scheme

我不明白为什么(冒泡排序!(向量 2 1))returns #(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)))

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

在您的代码中,vorig-v 相同的 向量(如果您将向量作为参数传递,则不会复制该向量:这是类似的在其他语言中称为“按引用调用”。

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

(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).