kelebek@PIS-ii:~$ _

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

(define vector-bubble-sort
  (lambda (vec op)
    (let ((tmp 0) (stop-do #f))
      (do ((i 0 (+ i 1))) ((or (= i (vector-length vec)) stop-do))
        (set! stop-do #t)
        (do ((j 0 (+ j 1))) ((= j (- (vector-length vec) i 1)))
          (if (not (op (vector-ref vec j) (vector-ref vec (+ j 1))))
              (begin
                (set! tmp (vector-ref vec j))
                (vector-set! vec j (vector-ref vec (+ j 1)))
                (vector-set! vec (+ j 1) tmp)
                (set! stop-do #f))))))
    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.

Doğru Söze Ne Denir ki Serisi #4
Çıktığı televizyon programında “mahalle baskısı, türban ve mikrofaşizm”den bahseden ilihiyatçı Doç. Dr. Şahin Filiz hakkında soruşturma açıldı. Göreve gelir gelmez “Üniversitelerdeki tüm yasakları kaldıracağım” diyen YÖK Başkanı Özcan’ın özgürlük anlayışının türbanla sınırlı olduğu anlaşıldı.

Buda geçti. Bir 3 buçuk saatlik maraton daha atlattım. 500mt engelli desem daha doğru olur aslında. Tüm sene bayrak yarışı her modülde koşucuların değişimi diyebiliriz. 500mt engeleri atlatıp bayraklarıda sağ salim teslim edersem ne mutlu bana.

Türkiye rekoru olan "0" puanın ardından şimdi işe yarar bir rekor kırdık:) Galatasaray'ın şampiyonlar ligindeki 10 puanlık rekorunu 1 puan daha yükselttik ve 11e çıkardık. Keşke önce beşiktaş ardından da biz kırsaydık bı rekoru:( Neyse buda güzel bir sonuç. Alın size fenerimin golleri sahadaki 4 gölunde sahibi olamak güzel bir duygu:)

Sezar şifreleme için yazdığım ilk kod aşağıdaki gibiydi

(define str2 "")
(define (sezar str lst)
  (do ((i 0 (+ i 1)) (j 0 (+ j 1))) ((= j (string-length str)))
    (if (= i (length lst))
        (set! i 0))
    (set! str2
          (string-append
           str2
           (string (integer->char
                    (+ (list-ref lst i )
                       (char->integer (string-ref str j)))))))))

Ancak bu kod pek hoşuma gitmedi üzerinde biraz daha oynama yapmak gerekiyordu. Mesela en baştaki

(define str2 "")

pek hoş durmuyordu ve hiç bir sonuç gönmüyordu. Ekstradan srt2 nin değerini sorgulamak gerekiyordu.
Devamını okuyun »

Kim demişse iyi demiş son dakkalar olmazsa hiç bir iş yeteişmez diye:) Bir son dakka görevimi daha başarıyla tamamladım. Pbl ödevimden sonra (bknz: http://www.bobrektasi.org/2007/11/21/same-oyunu/) proje ödevimi de son anda teslim ettim. Şimdi sırada yeni pbl ödeivm var. Hadi hayırlısı.

Bugünlerde herkes her konuda her şeyi konuşuyor. Dışarıdan bakılınca her türlü özgürlük var sanılır. Oysa sadece küreselleşmecilerin söyledikleri olmakta, onların planları yürümektedir.
Ülkemizde kurulu elektrik santrali gücü yaklaşık 40500 MW civarındadır. Bu kurulu gücün en az yılda 200 milyar kWh elektrik üretmesi gerekiyor. Oysa bir yılda yaklaşık olarak 170 milyar kWh elektrik üretmektedir. Yani olması gerekenden en az yüzde 15 daha az elektrik üretilmektedir. Şebekedeki kayıp ve kaçaklar ise yüzde 20’nin üzerindedir. Demek ki istenirse şimdiki üretimden yaklaşık yüzde 30 daha fazla elektrik üretilip, arz edilebilecektir. Ama buna karşın hâlâ ‘elektriksiz kalacağız’ yalanıyla nükleer santraller kurulmaya çalışılıyor.
Devamını okuyun »