12 lines
212 B
Text
12 lines
212 B
Text
to swap :i :j :a
|
|
localmake "t item :i :a
|
|
setitem :i :a item :j :a
|
|
setitem :j :a :t
|
|
end
|
|
to shuffle :a
|
|
for [i [count :a] 2] [swap 1 + random :i :i :a]
|
|
end
|
|
|
|
make "a {1 2 3 4 5 6 7 8 9 10}
|
|
shuffle :a
|
|
show :a
|