Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- position := method(seq, i,
- min := i
- for(j, i, seq size - 1,
- if(seq at(j) < seq at(min),
- min = j
- )
- )
- return min
- )
- echange := method(seq, i, j,
- tmp := seq at(i)
- seq atPut(i, seq at(j)) atPut(j, tmp)
- )
- sort := method(seq,
- for(i, 0, seq size - 1,
- j := position(seq, i)
- echange(seq, i, j)
- )
- )
- l := list(9, 5, 4, 8, 1, 10)
- sort(l) println
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement