8 Nov
2011
8 Nov
'11
9:27 a.m.
(loop for i from (- end 1) downto start do (rotatef (aref sequence i) (aref sequence (random (+ i 1))))) should be (loop for i from start below end do (rotatef (aref sequence i) (aref sequence (+ i (random (- end i)))))) otherwise the element selected won't be bound by [start, end), similar bug in the sequence typed version Cheers, -- 黄 澗石 (Jianshi Huang) http://huangjs.net/