SAIL - Shuffle (losowy porządek w tablicy)

Wszelkie pytania na temat SAIL'a i modowania OW.
Post Reply
User avatar

Topic author
Serpent
Soldier level 10
Soldier level 10
Estonia
Posts: 4125
Joined: Tue Jul 07, 2009 9:13 pm
Location: Polska - EuroStan ZSRE
Contact:

SAIL - Shuffle (losowy porządek w tablicy)

#1

Post by Serpent » Thu May 14, 2020 9:33 pm

Funkcja ustawia elementy zadanej tablicy w losowej kolejności.

Code: Select all

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

Post Reply

Who is online

Users browsing this forum: No registered users and 0 guests