Knuth shuffle: Difference between revisions
PascalABC.NET
(PascalABC.NET) |
|||
Line 3,753:
-4 1 -1 -5 5 2 0 3 -2 -3 4
-3 -5 4 2 -4 0 5 3 1 -1 -2</pre>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
procedure Shuffle<T>(a: array of T);
begin
for var i := a.Length - 1 downto 1 do
Swap(a[i], a[Random(i + 1)]);
end;
begin
var a := Arr(1..9);
Shuffle(a);
a.Print;
end.
</syntaxhighlight>
{{out}}
<pre>
5 8 6 1 3 4 2 9 7
</pre>
=={{header|Perl}}==
| |||