> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:cs-lisp-
> [EMAIL PROTECTED] On Behalf Of aykut "ÿffffe7aÿfffff0layan
> Sent: Tuesday, November 06, 2007 10:53 AM
> To: lisp grup
> Subject: [cs-lisp] re:4: "defun" kullanmayi denemistim zaten..
>
> (defun akor-salla
> (let* ((t (random 116))
> (m (+ t (random 3) 2))
> (d (+ t (random 3) 5)))
> (list t m d)))
> AKOR-SALLA
> CG-USER(3): (akor-salla)
> Error: AKOR-SALLA got 0 args, wanted 3 args.
>
> ||"defun" kullan cevabinin sonucu.||
Eger verdigim cevaptaki Lisp kilavuzlarini takip edersen, misal HyperSpec'i,
bir ornekte goreceksin ki:
(defun recur (x)
(when (> x 0)
(recur (1- x)))) => RECUR
Burada recur, x isimli bir arguman aliyor. Eger fonksiyon hic arguman almiyorsa
o zaman arguman listesi bos bir liste olacaktir, yani:
(defun akor-salla ()
...
seklinde baslamak icap eder. Dolayisi ile su sekilde yazarsak calistirabiliriz:
(defun akor-salla ()
(let* ((z (random 116))
(m (+ z (random 3) 2))
(d (+ z (random 3) 5)))
(list z m d)))
CG-USER(1): (akor-salla)
(20 22 27)
CG-USER(2): (akor-salla)
(36 40 43)
CG-USER(3): (akor-salla)
(14 17 19)
Bu bilgi yeterli oldu mu acaba?
--
Emre Sevinc
e-MBA Software Development @ Istanbul Bilgi University
http://www.bilgi.edu.tr
http://www.bilgiemba.net
http://www.cogsci.boun.edu.tr
http://ileriseviye.org/blog
http://fazlamesai.net
http://cazci.com
_______________________________________________
cs-lisp mailing list
[email protected]
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp
