kelebek@PIS-ii:~$ » Sort http://blog.yollu.com Aşkın Yollu'nun Web Günlüğü Mon, 07 Dec 2009 06:45:39 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 Bubble sort algoritması ve scheme çözümü http://blog.yollu.com/2007/12/17/binary-sort-ikili-siralama-algoritmasi-ve-scheme-cozumu/ http://blog.yollu.com/2007/12/17/binary-sort-ikili-siralama-algoritmasi-ve-scheme-cozumu/#comments Mon, 17 Dec 2007 12:11:28 +0000 Aşkın Yollu http://www.bobrektasi.org/2007/12/17/binary-sort-ikili-siralama-algoritmasi-ve-scheme-cozumu/ Bubble sort algoritması kabaca: verilen dizideki elemanları ikili olarak karşılaştırıp gerekli olduğunda yerlerini değiştirmek esasına dayanır. Elimizde 11 5 8 4 6 84 7 sayılarında oluşan bir dizi olduğunu var sayalım ve bu diziyi küçükten büyüğe sıralamak isteyelim.

  1. önce 11 ile 5i karşılaştırırız, 11 5'ten büyük olduğu için 11 ile 5in yerini değiştiririz; 5 11 8 4 6 84 7
  2. sonra 11 ile 8i karşılaştırırız ve 11 ile 8'in yerini değiştiririz 5 8 11 4 6 84 7
  3. 11 ile 4; 5 8 4 11 6 84 7
  4. 11 ile 6; 5 8 4 6 11 84 7
  5. 11 ile 84; 84 büyük olduğu için sıralamaya dokunmayız. 5 8 4 6 11 84 7
  6. şimdi 84 ile 7'yi karşılaştırırız; 5 8 4 6 11 7 84

Son durumda 7 elemanlı bir dizi için 6 kontrol yaptık ve en büyük elemanı sona attık. Şimdiki karşılaştırmalarımızda artık son elamanı yok sayabiliriz. Yani problemimiz artık 6 elemanlı bir diziyi sıralamak oldu. Aynı işlemleri 6 eleman varsayarak yaptığımızda sırasıyla problem 5, 4, 3, 2 ve 1 elemanlı dizileri sıralamaya dönüşecek. 1 elemanlı dizi herzaman sıralı olduğu için hiç bi derdimiz sıkıntımızda kalmayacak:) Bu şekilde işlemleride 6 defa yaptık.
Şimdi sıra geldi koda

  1. (define vector-bubble-sort
  2.   (lambda (vec op)
  3.     (let ((tmp 0) (stop-do #f))
  4.       (do ((i 0 (+ i 1))) ((or (= i (vector-length vec)) stop-do))
  5.         (set! stop-do #t)
  6.         (do ((j 0 (+ j 1))) ((= j (- (vector-length vec) i 1)))
  7.           (if (not (op (vector-ref vec j) (vector-ref vec (+ j 1))))
  8.               (begin
  9.                 (set! tmp (vector-ref vec j))
  10.                 (vector-set! vec j (vector-ref vec (+ j 1)))
  11.                 (vector-set! vec (+ j 1) tmp)
  12.                 (set! stop-do #f))))))
  13.     vec))

DrScheme de etkileşim penceresine 

(vector-bubble-sort #(5 11 8 4 6 84 7) < )

şeklide giriş yapmamız gerekiyor. "< " işareti yerine ">" işaretide koyabiliriz. Bu sayede birde büyükten küçüğe sıralamak için aynı kodları yazmamıza gerek kalmayacak. ]]> http://blog.yollu.com/2007/12/17/binary-sort-ikili-siralama-algoritmasi-ve-scheme-cozumu/feed/ 0