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.
Read more…
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://blog.yollu.com/2007/11/21/same-oyunu/) proje ödevimi de son anda teslim ettim. Şimdi sırada yeni pbl ödevim var. Hadi hayırlısı.
Merhaba arkadaşlarımın isteği üzerine ödev olarak verilmiş olan same oyununun kendi yazdığım scheme kodlarını internete koydum. Olaki bigün sizden de scheme ile same oyunu yazmanızı isterlerse bu kodlardan faydalanabilirsiniz.
http://www.askin.ws/doc/same.scm
Bugun (yani 18 Kasım 2007 ve saat 03:32) http://blog.arsln.org Sitesini gezerken Ekran görüntülerinizi Gimp ile şekilendirin başlıklı yazıyı gördüm. Siz bi zahmet okuyun artık. Neye ordaki betiği bi inceleyim dedim. Demez olaydım Yaklaşık 7 saattir scheme çalışmış ve sabaha kadar da (zaten sabah oldu) çalışmak zorunda olan bir insan olarak hiç ummadığım bir zamanda scheme ile karşılaşmak beni heyecanlandırdı. Demek ki scheme bi scheme değil demek doğru değilmiş. Scheme bi scheme imiş:))