Export Function Shuffle(array);
var i, index;
begin
result := [];
if not array then
exit;
Randomize;
for i = array downto 1 do
begin
index := rand(1, array);
result := Insert(result, result + 1, array[index]);
array := Delete(array, index);
end;
End;
Epickie teksty: Marek1906: jak zrobic aby sail był zielony? Kvantovy: Wszystko normalne, wszystko w koło było dziwne Kvantovy:: To jest fajne, że to nie jest takie głupie Kvantovy:: remove sos from kanapeczka Kvantovy:: zdarzają się rzezy które sie filozofom nie śniły Cenwen: problemem jest gejostwo
"Taki z niego fizyk jak ze mnie baletnica" - Profesor Scholtze o Kvantovym.
JAKBYŁ BYM CZECHEM TO BYM ROZŁOŻYŁ NAMIOT ~Kvanciak