🚀 go-pugleaf

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 ;]