Gå til innhold

Anbefalte innlegg

Videoannonse
Annonse

Jepp, alle geniale ting jeg kommer på har noen annen alltid kommet på før meg...

Code:

procedure Bogo-sort(var list:array of integer;start,end:integer);
var
cnt,temp,random:integer;
sorted:boolean;
begin
repeat
sorted:=true;
for cnt:=start to end do begin
random:=rnd(end-start)+start;
temp:=list[random];
list[random]:=list[cnt];
list[cnt]:=temp;
end;
for cnt:=start to end-1 do if list[cnt]>list[cnt+1] then sorted:=false;
until sorted;
end;

Den blir sikkert fin :grin:

Aner ikke om den funker, knota den sammen for moro skyld (tilsvarer omtrent å kaste en bunke kort opp i lufta og plukke dem sammen, for så å repetere hvis de ikke ligger i rekkefølge)

 

_________________

ThaPiRAyA

kickass.gif

 

[ Denne Melding var redigert av: GalFisk på 2002-03-15 13:52 ]

Lenke til kommentar

Jepp, måtte jo skrive den, inspirert av denne entryen i the Jargon file :grin:

Mohseni: Er det mulig å få kikket på sorteringsalgoen din? Hadde vært gøy å se hvordan den funka.. (bare stemple ditt navn på den først, blir det Mohsenisort eller.no? :smile:)

 

 

_________________

ThaPiRAyA

kickass.gif

 

[ Denne Melding var redigert av: GalFisk på 2002-03-20 10:00 ]

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...