14 lines
239 B
Text
14 lines
239 B
Text
procedure main()
|
|
show(shuffle([3,1,4,1,5,9,2,6,3]))
|
|
show(shuffle("this is a string"))
|
|
end
|
|
|
|
procedure shuffle(A)
|
|
every A[i := *A to 1 by -1] :=: A[?i]
|
|
return A
|
|
end
|
|
|
|
procedure show(A)
|
|
every writes(!A," ")
|
|
write()
|
|
end
|