9 lines
163 B
Text
9 lines
163 B
Text
Dim Base 0, A(3)
|
|
For k=1 to 6 {
|
|
A(0):=10,20, 30
|
|
For i=len(A())-1 to 0 {
|
|
let j=random(0,i)
|
|
Swap a(i), a(j)
|
|
}
|
|
Print A()
|
|
}
|