-
Data: 2019-08-22 11:13:54
Temat: Re: Sortowanie bąbelkowe
Od: g...@g...com szukaj wiadomości tego autora
[ pokaż wszystkie nagłówki ]W dniu czwartek, 22 sierpnia 2019 10:57:40 UTC+2 użytkownik Maciej Sobczak napisał:
> Nudy jakieś, wszyscy na urlopach?
> W każdym razie, skoro ostatnio były tu fajne dyskusje o różnych językach
programowania, to pozwolę sobie dla hecy pokazać sortowanie bąbelkowe w Wolframie.
>
> Otóż jak wiadomo, pojedynczy krok sortowania polega na tym, że jeśli gdzieś jest
para elementów w "niewłaściwej" kolejności, to trzeba je zamienić miejscami. A potem
powtarzać to aż do skutku.
>
> No to mamy, pojedynczy krok:
>
> oneBubbleStep[lst_] :=
> lst /. {pre___, a_, b_, post___} /; a > b -> {pre, b, a, post}
>
> oneBubbleStep to funkcja, która ma jeden parametr, nazwany lst. Ta funkcja szuka
wzorca:
>
> {pre___, a_, b_, post___}
>
> wzorzec ma być listą, składającą się z:
> 1. jakiegoś pre, zero lub więcej elementów
> 2. jakiegoś a
> 3. jakiegoś b
> 4. jakiegoś post, zero lub więcej elementów
>
> i jeśli przypadkiem a > b, to znaleziony wzorzec ma być zamieniony na taki:
>
> {pre, b, a, post}
>
> czyli elementy a i b mają się zamienić miejscami. Jeśli wzorzec nie pasuje, to
żadna zmiana nie jest wykonana. To zadziała zawsze, nawet na brzegach, np.:
>
> oneBubbleStep[{10, 20, 40, 30, 50}]
>
> {10, 20, 30, 40, 50}
>
> I teraz biorę jakieś dane testowe:
>
> testData = RandomSample[Range[10], 10]
>
> {2, 10, 1, 3, 8, 9, 6, 4, 5, 7}
>
> i aplikuję funkcję oneBubbleStep tak długo, aż wynik przestanie się zmieniać,
pokazując po drodze wszystkie pośrednie wyniki (sformatowałem ręcznie):
>
> FixedPointList[oneBubbleStep, testData]
>
> {
> {2, 10, 1, 3, 8, 9, 6, 4, 5, 7},
> {2, 1, 10, 3, 8, 9, 6, 4, 5, 7},
> {1, 2, 10, 3, 8, 9, 6, 4, 5, 7},
> {1, 2, 3, 10, 8, 9, 6, 4, 5, 7},
> {1, 2, 3, 8, 10, 9, 6, 4, 5, 7},
> {1, 2, 3, 8, 9, 10, 6, 4, 5, 7},
> {1, 2, 3, 8, 9, 6, 10, 4, 5, 7},
> {1, 2, 3, 8, 6, 9, 10, 4, 5, 7},
> {1, 2, 3, 6, 8, 9, 10, 4, 5, 7},
> {1, 2, 3, 6, 8, 9, 4, 10, 5, 7},
> {1, 2, 3, 6, 8, 4, 9, 10, 5, 7},
> {1, 2, 3, 6, 4, 8, 9, 10, 5, 7},
> {1, 2, 3, 4, 6, 8, 9, 10, 5, 7},
> {1, 2, 3, 4, 6, 8, 9, 5, 10, 7},
> {1, 2, 3, 4, 6, 8, 5, 9, 10, 7},
> {1, 2, 3, 4, 6, 5, 8, 9, 10, 7},
> {1, 2, 3, 4, 5, 6, 8, 9, 10, 7},
> {1, 2, 3, 4, 5, 6, 8, 9, 7, 10},
> {1, 2, 3, 4, 5, 6, 8, 7, 9, 10},
> {1, 2, 3, 4, 5, 6, 7, 8, 9, 10},
> {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
> }
>
> Ten "program" ma swoją interpunkcję, która na pewno się tu komuś nie spodoba, ale
ma ciekawą zaletę: odzwierciedla opis słowny. Fajne?
Rzeczywiście ładne.
Spośród rozwiązań na Rosetta Code to w Wolframie jest niewątpliwie najładniejsze:
bubbleSort[{w___, x_, y_, z___}] /; x > y := bubbleSort[{w, y, x, z}]
bubbleSort[sortedList_] := sortedList
Szkoda tylko, że taka brzydka interpunkcja ;]
Następne wpisy z tego wątku
- 23.08.19 08:18 Maciej Sobczak
- 23.08.19 09:29 g...@g...com
- 23.08.19 10:34 Maciej Sobczak
Najnowsze wątki z tej grupy
- Do czego nadaje się QDockWidget z bibl. Qt?
- Bibl. Qt jest sztucznie ograniczona - jest nieprzydatna do celów komercyjnych
- Co sciaga kretynow
- AEiC 2024 - Ada-Europe conference - Deadlines Approaching
- Jakie są dobre zasady programowania programów opartych na wtyczkach?
- sprawdzanie słów kluczowych dot. zła
- Re: W czym sie teraz pisze programy??
- Re: (PDF) Surgical Pathology of Non-neoplastic Gastrointestinal Diseases by Lizhi Zhang
- CfC 28th Ada-Europe Int. Conf. Reliable Software Technologies
- Młodzi programiści i tajna policja
- Ada 2022 Language Reference Manual to be Published by Springer
- Press Release - AEiC 2023, Ada-Europe Reliable Softw. Technol.
- Ada-Europe - AEiC 2023 early registration deadline approaching
- Ada-Europe Int.Conf. Reliable Software Technologies, AEiC 2023
- Ile cykli zajmuje mnożenie liczb 64-bitowych?
Najnowsze wątki
- 2024-05-17 ZŁOMNIK o pracy w TVN TURBO, nowych przepisach i współczesnej motoryzacji. Turbo Taryfa!
- 2024-05-17 Białystok => DevOps Engineer Conexa First (Contractor) <=
- 2024-05-17 Warszawa => Starszy inżynier oprogramowania (Rust) <=
- 2024-05-17 Zabrze => Junior HelpDesk <=
- 2024-05-17 Bieruń => Administrator i wdrożeniowiec Lotus Notes/Domino <=
- 2024-05-17 Warszawa => Senior Software Engineer PHP (BillPro) Contractor <=
- 2024-05-17 Warszawa => International freight forwarder <=
- 2024-05-17 Warszawa => Fullastack (Java) Developer <=
- 2024-05-17 Lublin => Business Development Manager - obszar bezpieczeństwa IT <=
- 2024-05-17 Warszawa => Mid PHP Developer (Laravel) <=
- 2024-05-17 Warszawa => Mid PHP Developer (Laravel) <=
- 2024-05-17 Warszawa => Senior PHP Developer (Symfony) <=
- 2024-05-18 wojna wojno a kredyt trzeba spłacać
- 2024-05-16 Samo rozładowywanie baterii trakcyjnej w elektryku.
- 2024-05-16 Warszawa => Senior PHP Developer (Symfony) <=