方案中的冒泡排序过程
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)))
我自己跟踪了我的代码,但没有发现问题。
在您的代码中,v
和 orig-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).
我不明白为什么(冒泡排序!(向量 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)))
我自己跟踪了我的代码,但没有发现问题。
在您的代码中,v
和 orig-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).