🚀 go-pugleaf

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?

-- 
Maciej Sobczak * http://www.inspirel.com