AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Bubble-Sort

Ein Thema von netscanner · begonnen am 28. Feb 2006 · letzter Beitrag vom 28. Feb 2006
 
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#17

Re: Bubble-Sort

  Alt 28. Feb 2006, 15:00
Leute, Leute: Da beherrscht ihr Quicksort im Schlaf, könnt Bayerbaumsuchverfahren, A*-Pathinfinding-Algorithmen und Knuth-Morris-Pratt-Grahpen rückwärts aufsagen, aber am guten alten Babelsort beisst man sich doch wirklich die Zähne aus. Ich habe auch stundenlang probiert, aufgegeben, meine Rente eingereicht und schließlich den Source auf www.sortieralgorithmen.de genommen und in mühevoller Kleinarbeit in Delphi übersetzt. Das Team hat wochenlang geschuftet und jedes Byte wurde von unserem 50-köpfigen Spezialistenteam handoptimiert und hochglanzpoliert.

Nun ist es aber soweit: Wir präsentieren - Babelsort 1.0!

Delphi-Quellcode:
procedure BubbleSort (Var s: String);
Var
  j,k, n: Integer;

begin
  n := Length (s);
  for j:= n downto 2 do
    for k := 1 to j-1 do
     if s[k] > s[k+1] then
       vertausche(s[k], s[k+1])
end;
Ach ja, das mit dem Vertauschen heisst 'Ringtauschverfahren'. Doch, es gibt einen Namen für sowas. Es heisst deshalb so, weil der Austausch ringförmig geht: h <-a <- b <- h.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz