Gå til innhold

Anbefalte innlegg

Videoannonse
Annonse

Nei den er ikke opptimal , den slår f.eks ikke quick sort, men den er raskere enn en del andre. Men jeg er bare happy som har funnet opp noe som ingen har kommet opp med før =) for å si d slik, er ikke no mega programerer :smile: men I DID IT ;D

Lenke til kommentar

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å
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...