Tarık Bağrıyanık'ın TechnoLog'u: Blog

Google'da Aramayın!

Fri, 04 Jul 2008 17:50:54 GMT

Tavsiye siteler:

TV'de ne var? http://www.tvdenevar.com
RapidShare'de dosya arama: http://totme.com
Çocuklar için videolar: http://www.totlol.com
Multimedia yardımcı programlar: http://www.audiovideosoft.com
En ucuz fiyat nerede? http://www.teknofiyat.com
Garantili alışveriş: http://www.hepsiburada.com
Günlük okuma ve içerik arama: http://www.blograzzi.com

Lisp Örnekleri

Mon, 30 Jun 2008 20:54:05 GMT

Lovinglisp - LispBook.pdf’den alıtı: http://www.woodpecker.org.cn:9081/doc/lisp/lovinglisp

(defvar *kedi* "cat")

; global bir string tanımlama

(format t "~%~%test result is ~A~%~%" (toplam x y))

;ekrana biçimlendirilmiş olarak göstermek ~% alt satır ~A değer

(setq dizi (make-array '(3)))

;#(NIL NIL NIL) 3 elemanlı bir dizi açar

(aref dizi 2)

; ekrana 3. elemanı getirir (diziler 0 tabanlıdır)

(setf (aref dizi 1) "this is a test")

; dizinin 2. elemanına değer atama, setq ile yapılamaz

(defvar |a symbol with Space Characters| 3.14159)

;sembol adında | simgesi ile boşluk kullanılabilir

(defvar s1 "the cat ran up the tree")

;bir string

(concatenate 'string s1 " up the tree")

;s1 ve space metinleri ile “up the hill” birleştirildi

(search "ran" s1)

; string içinde arama yapıldır 8 dönüş değeri olur

(subseq s1 8 11)

; s1 stringi içinden 3 karakter alır

(string-upcase "The dog bit the cat.")

; “THE DOG BIT THE CAT." Büyük harfe çevirir

(string-downcase "The boy said WOW!")

; "the boy said wow!" küçük harfe çevirir

(char s1 0)

; ilk harfi döndürür #\t yazar

(defun test (a &optional b (c 123))

(format t "a=~A b=~A c=~A~%" a b c))

;b ve c parametreleri opsiyoneldir

(test 1)

;ekrana a=1 b=NIL c=123

(test 1 2)

;ekrana a=1 b=2 c=123

(funcall '+ 1 2)

;ekrana 3 yazar, funcall ilk parametresi işlem sonrası işlem parametreleridir

(dolist (x '("the" "cat" "bit" "the" "rat")) (print x))

;döngü yapıyoruz "the" "cat" "bit" "the" "rat" NIL yazar

(dotimes (i 3 "all-done-with-test-dotimes-loop") (print i))

;ekrana 0 1 2 "all-done-with-test-dotimes-loop" yazar

(do ((i 0 (1+ i))) ((> i 3) "value-of-do-loop") (print i))

; 0 1 2 3 "value-of-do-loop" yazar

(defun DosyaOkumaTesti ()

"read a maximum of 1000 expressions from the file 'test.dat'"

(with-open-file (input-stream "test.dat" :direction :input)

(dotimes (i 1000)

(let ((x (read input-stream nil nil)))

(if (null x) (return)) ;; break out of the 'dotimes' loop

(format t "next expression in file: ~S~%" x)))))

(defun DosyaYazmaTesti()

(with-open-file (out-stream "test1.dat"

:direction :output

:if-exists :supersede)

(print "the cat ran down the road" out-stream)

(format out-stream "1 + 2 is: ~A~%" (+ 1 2))

(princ "Stoking!!" out-stream)

(terpri out-stream)))

Lisp ve VB.NET Karşılaştırması – 6 ve Örnekler

Sat, 28 Jun 2008 20:48:48 GMT

Tüm liste bir dosya halinde bu adrestedir:

http://yunus.sourceforge.net/lispTr.html

Bu arada Delphi3'de yapılmış bir Lisp çalıştırıcısı şu adrestedir:

http://www.augos.com/software/inflisp.html

` karakteri

‘ gibi ama içi çalışabilir

(setf isim ’Ahmet)

> `(,isim en çok kullanılanlardandır.)

;ekrana Ahmet en çok kullanılanlardandır. yazar

String.Format gibi

Kod derlemek

(defun ornekFunc (n)

(dotimes (i n)

(if (> (* i i) n) (return i))))

(compile ‘ornekFunc) ;~30 kat hızlı çalışır

Build*Build Application…

Makro yapmak

DefMacro

C dilindeki #define gibi

Örnekler:

(/ 120 3 5)

;120/3=40 ve 40/5=8 sonuç

'((BLUE SKY) (GREEN GRASS) (BROWN EARTH))

;iç içe listeler

(length '(nil nil))

;ekrana 2 yazar, nil de liste elemanıdır

(first (rest '((BLUE SKY) (GREEN GRASS) (BROWN EARTH))))

; (GREEN GRASS) yani ikinci eleman

(car (cdr '((BLUE SKY) (GREEN GRASS) (BROWN EARTH))))

; (GREEN GRASS) yani ikinci eleman

(cons 'hello '(dr jones))

;(HELLO DR JONES) birleşerek yeni liste oluştu

(list '(good morning) '(dr jones))

;((GOOD MORNING) (DR JONES)) yeni liste

(cons '(good evening) (rest (list '(good morning) '(dr jones))))

;((GOOD EVENING) (DR JONES)) ilk elemanı değiştirdi

'(A B C . A)

;liste nil ile bitmiyor, A ile bitiyor, aslında liste sonlarında . Nil vardır

'((A . B) (C . D))

;noktalı çiftler

(eval '(/ 120 3 5))

;ekrana 8 yazar

;3.1415926535897931 sabit

(list 3 ’karesi (* 3 3))

; (3 KARESI 9) doğrudan hesaplama yapılıyor

(defun swaps (x) (list (second x) (first x)))

; Basic’deki Swap gibi

(swaps ’(dancing bear))

;(BEAR DANCING) yazar

(quote (hello world))

;(HELLO WORLD) ‘ tek tırnak yerine quote kullanılabilir

(defun my-abs (x) (if (< x 0) (- x) x))

kendi abs fonksiyonumuz

(my-abs -5)

;5 yazar

Netten Alışveriş Yapmak

Fri, 27 Jun 2008 19:49:43 GMT

Fazlamesaideki bu (http://www.fazlamesai.net/index.php?a=article&sid=5039) haberden sonra gittiğim siteden 3 kitap aldım. https://dukkan.acikakademi.com/ de kitaplarda %50 indirim var.

İlk kez netten alışveriş yaptım. Verilen hesap numarasına havale göndermek yeterli. Üyelik de kredi kartı da gerekmiyor.

Aslında uzun süredir fatura ödeme, havale, EFT yapma ve yatırım (döviz, fon) işlemlerini bankanın kendi arayüzü içinde yapıyordum. Ama bunlar alışveriş sayılmaz.

Aynı ilde MNG kargo ile gelen kitaplar sipariş verdiğim andan 20 saat sonra kapımda idi. Şaşırdım bu kadar çabuk gelmesine. Temiz iş... Ama her zaman böyle hızlı ve güvenli olur mu bilemem. Hatalı ürün çıkma ihtimali var. Geri ödeme, iade...

Gelen kitaplar güzel çeviri yapılmış. Tavsiye ederim.

Lisp ve VB.NET Karşılaştırması - 5

Tue, 24 Jun 2008 20:36:21 GMT

Dosya okuma yazma	With-Open-File :direction :output ;kaydetme parametresi	FileStream FileOpen
Listeye değer eklemek çekmek	(setf bulaşık nil) ;boş bir yığın (push ’tabak1 bulaşık) ;bulaşık yığınına tabak ekler (pop bulaşık) ;son ekleneni yığından siler	DirectX komutlarında Push ve Pop vardır
Döngü komutları	(Dotimes\|Dolist (indeks-değişkeni n [sonuç-formu]) kodlar)	For, Do Loop, While
Döngüden çıkmak	Return	Exit For
Kod tamamlanma süresi	(Time fonksiyonAdi())
Değişken tipi sorgulama	(Typep değişken ‘tür) (Typep 3 ‘integer) ;ekrana T yazar (Type-of değişken) (Type-of “deneme”) ;ekrana String yazar (Describe\|Inspect değişken)	TypeOf değişken Is tür
Yapı	DefStruct	C# struct
Dizi yapımı ve elemanlarına ulaşma	(setf diziAdi ’#(deneme müzik 440 a)) (aref diziAdi elemanNo)	Dim diziAdi(4) diziAdi(2)
Metinlerde karakterlere ulaşma	(setf isim “Tekir”) (setf (aref isim 0) #\B) isim ;ekrana Bekir yazar	Dim isim As [String] = "Tekir" isim = isim.Replace("T"c, "B"c) MsgBox(isim)
Özellik (property)	(setf (get ‘adam ‘yaş) 23) (symbol-plist ’adam) ; (SYSTEM:PNAME "ADAM" YAŞ 23) (get ‘adam ‘yaş) ;ekrana 23 yazar (describe ‘adam) ;ekrana adam’ın özellikleri gelir (remProp ‘adam ‘yaş) ;yaş özelliği silinir	Sınıf konusu
Değer artırmak azaltmak	(setf yaş 10) (incf yaş) ;11 (decf yaş) ;10	Dim yaş as integer = 10 yaş +=1 yaş -=1

Lisp ve VB.NET Karşılaştırması - 4

Mon, 23 Jun 2008 20:44:27 GMT

Tabloda arama	(setf sayi ‘( (1 . bir) (2 . iki) (3 . üç) )) (assoc ‘2 sayi) ;ekrana (2 . iki) yazar (rassoc ‘iki sayi) ;ekrana (2 . iki) yazar	Array.Find(dizi, bulunma)
Çok değer işleme	(defun karesi (n) (* n n)) (mapcar #’karesi ‘(3 8 -3 5 2 10)) ;ekrana (9 64 9 25 4 100) yazar
Çok değeri tek yapmak	(reduce #’+ ’(10 9 8 7 6)) ;ekrana toplam olan 40 yazar
Adım adım izlemek (kodu test etmek)	(trace fonksiyonAdi) ;fonksiyon bir sonraki çalıştırmada adımlanır (untrace fonksiyonAdi)	Debug*Step Into F11
Döngü yapmak	(defun sayYukari (n) (say 1 n)) (defun say (sayac n) (cond ((> sayac n) nil) (t (cons sayac (say (+ sayac 1) n) )))) (sayYukari 4) ;ekrana 1 2 3 4 yazar	Sub sayYukari (n as integer) Dim i as integer For i = 1 to N Console.Writeline(i) Next i End Sub sayYukari(4)
Metinlerde alt satır	(format t "Zaman~%su gibi akıyor")	MsgBox(“Zaman” & vbCrLf & “su gibi akıyor”)
Metin içinde değişken	(format t "Yol ~S den ~S e ~S dakika sürer" ’kadiköy ’(tuzla sahil) 50)	MsgBox(String.Format("Yol {0:s} den {1:s} e {2:d} sürer", "kadıköy", "tuzla sahil", 50))
Klavyeden veri girmek	(setf degisken (read)) ;klavyeden bilgi bekler	degisken = Console.Readline()
Konsolu kaydetmek	(dribble “dosya.log”) ;kayıt başlar (dribble) ;kayıt biter
Global değişken	(setf bardak 0) ;global değişken (defun sat (n) (setf bardak (+ bardak n)) (format t "~S toplam satış" bardak) ) (sat 3) ;ekrana 3 toplam satış yazar (sat 4) ;ekrana 7 toplam satış yazar	Dim bardak as integer = 0 Sub sat (n as integer) bardak += n MsgBox(String.Format(“{0:d} toplam satış”, bardak)) End Sub sat(3):sat(4)

Lisp ve VB.NET Karşılaştırması - 3

Sat, 21 Jun 2008 18:38:15 GMT

Kaynak: clisp_book.pdf ve VB.NET2008, GCL 2.6.7, lisp-cs334-notes.pdf

Liste elemanlarına ulaşmak	(setq dizi ‘(“a” “b” “c”)) (nth 2 dizi) ;ekrana c yazar	Dim dizi() as string ={“a”, “b”, “c”} Sonuc = dizi (2)
Dizi birleştirmek	(append ‘(1 2 3) ‘(4 5 6)) ; sonuç (1 2 3 4 5 6)	Dizi1.CopyTo(Dizi2, indeksLong)
Diziyi ters çevirmek	(reverse ’ (a b (c d))) ;sonuç ((C D) B A)	Array.Reverse(dizi)
Kayıtlı bir programı açmak	(load "dosyaAdi.lisp")	File*Open Project…
İsimsiz geçici fonksiyon yapmak	((lambda (x) (+ x 2)) 4) ;ekrana 6 yazar
Adım adım çalıştırma (kodu test etmek)	(step (if (oddp 5) ’tek ’çift)) ;her adımda	Debug*Step Into F11
Değişken yapmak	(setf trChr ’(ç ğ ü ş ı ö)) ;yerel bir değişken	Dim trChr() as Char = {“ç”, “ğ”, “ü”, “ş”, “ı”, “ö” }
Rasgele değer üretmek	(random 10) ;tamsay 9 gibi (random 10.0) ;ondalıklı 9.7542323 gibi	Sonuc = Cint(Rnd() * 10) Sonuc = Rnd() * 10
Listeden eleman silmek	(remove ‘a ‘(m a r m a r a)) ;ekrana mrmr yazar	metin = "marmara" metin = metin.Replace("a", "")
Dizi içinde arama	(setq isimler ‘(ali zeynep mahmut)) (member ‘ali isimler) ;bulunca listeler, yoksa NIL	metin = “ali zeynep mahmut” Sonuc= metin.Contains("ali") ‘bulursa True döner Nerede= metin.IndexOf("ali") ;bulursa yeri döner yoksa -1 döner
Kesişim	(intersection ’(a s d f g) ’(v w s r a)) ;a ve s döner	Grafik nesnelerinde Intersection komutu bulunuyor

Technosat Alıcısına Biss key Girme

Fri, 20 Jun 2008 18:24:16 GMT

Şu linkleri inceleyiniz:

EMU diye bişey varmış, 2. linkten bunu açılmasını öğreniyoruz. 1. linkten de ATV kanalı açık iken BISS girme yerini öğreniyoruz. Alıcıyı kapatıp açıyoruz ve İŞTE OLDU!!! 10 ytl vermekten kurtulduk... Hırvatları elemek kaldı bize de...

Lisp ve VB.NET Karşılaştırması - 2

Thu, 19 Jun 2008 20:33:52 GMT

Kaynak: clisp_book.pdf ve VB.NET2008, GCL 2.6.7

İç içe fonksiyon

(defun ikiKat (n)

(* n 2)

)

(defun dortKat (n)

(ikiKat (ikiKat n))

)

Function ikiKat (n as integer) as integer

Return n * 2

End Function

Function dortKat (n as integer) as integer

Return ikiKat(ikiKat(n))

End Function

Programı Kapatmak

(exit)

(quit)

End

Application.Exit()

Verileri ayırt etmek

‘ tek tırnak ile başlar

“ metinler çift tırnak içine yazılabilir

“ çift tırnak içine yazılır

Parametresiz fonksiyon

(defun yaz ()

(princ “Merhaba Dünya”)

)

(yaz) ;ekrana Merhaba Dünya yazar

Function deneme()

MsgBox("Merhaba Dünya")

Return True

End Function

deneme()

İşlem uygulamak

(apply #‘+ ‘(2 3)) ; ekrana 5 yazar

Eğer komutu

(if (oddp 1) ‘tek ‘çift)

(if t ‘Mutlu)

if 1 mod 2 = 1 then sonuc= “tek” else sonuc= “çift”

if True then sonuc= “Mutlu”

Çoklu Karşılaştırma

(defun karsilastir (x)

(cond ((equal x 1) ‘bir)

((equal x 2) ‘iki)

((equal x 3) ‘üç)

(t ‘bilinmiyor) ;t False kısmıdır

)

(karsilastir 3) ;ekrana üç yazar

Function karsilastir(x As Integer) As String

Dim sonuc As String = “”

Select Case (x)

Case 1 : sonuc = “bir”

Case 2 : sonuc = “iki”

Case 3 : sonuc = “üç”

Case Else: sonuc = “bilinmiyor”

End Select

Return sonuc

End Function

Mantıksal İşlemler

(and nil t t) ;ekrana nil yazar

(or nil t t) ;ekrana t yazar

(True And False And False) ‘ False

(True Or False Or False) ‘ True