热度 1| ||
procedure(bubble_sort(cadence_list)
n=length(cadence_list)
c_Array=listToVector(cadence_list)
declare(temp[0])
temp[0]=0
for(i 0 cadr(range(0,n))
for(j 0 cadr(range(0,n-i-2))
if(c_Array[j]>c_Array[j+1] then
temp[0]=c_Array[j+1]
c_Array[j+1]=c_Array[j]
c_Array[j]=temp[0]
else nil
);if
);for
);for
new_list=vectorToList(c_Array))
);proc