15 lines
238 B
Text
15 lines
238 B
Text
go =>
|
|
_ = random2(),
|
|
L = 1..10,
|
|
println(l_before=L),
|
|
knuth_shuffle(L),
|
|
println('l_after '=L),
|
|
nl.
|
|
|
|
knuth_shuffle(L) =>
|
|
foreach(I in L.len..-1..1)
|
|
J = random(1,I),
|
|
Tmp = L[I],
|
|
L[I] := L[J],
|
|
L[J] := Tmp
|
|
end.
|