sort(v,i,k,n,t) = do( n = dim(v), loop( test(n < 2, break), k = 1, for(i, 1, n - 1, test(v[i] > v[i + 1], do( t = v[i], v[i] = v[i + 1], v[i + 1] = t, k = i ))), n = k ), v ) A = zero(5) for(i, 1, 5, A[i] = floor(10 rand())) B = sort(A) check(sum(A) == sum(B)) B Run