Merhabalar.
Problemi problemi scheme ile cozmeye calistim. Biraz sac bas yoldum,
ama sonra soyle birsey ortaya cikti:
(define (comb liste)
(let comb-help ((lst liste) (builded '(()) ))
(if (null? lst) builded
(comb-help (cdr lst)
(append builded
Forcer'in koduna benziyor, fakat
accumulator teknigini kullanarak tail-recursive olmasini sagladim.
Biraz daha hizli olacagini tahmin ediyorum.
Tabii optimizasyon az calisan bolumde oldugu icin pek de farketmiyor,
hatta benim kod nedense milisaniyeler kadar da olsa yavas olma
egiliminde.
--
Meh
Bu islemi tersten yapsak nasil olur?
Once uygun aralikta karesi farkli rakamlardan olusan tum sayilari
hesaplasak, ki cok az sayinin boyle olacagini dusunuyorum, sonra da bu
sayinin a+b+c+d saklinde yazilip yazilamayacagina baksak.
--
Mehmet
___
cs-li
Merhaba,
http://paulgraham.com/rootsoflisp.html adresindeki dokuman yardimiyla
pythonda basit bir lisp yorumlayicisi yazdim. Kendisi ektedir. Basit
programlar yazilabiliyor, ama su kodu calistiramadim. graham'in eval
fonksiyonunda mi hata var yoksa bilmiyorum, kafam almiyor artik :)
(eval '(f '(
On 12/16/06, Mehmet Yavuz Selim Soyturk <[EMAIL PROTECTED]> wrote:
Merhaba,
http://paulgraham.com/rootsoflisp.html adresindeki dokuman yardimiyla
pythonda basit bir lisp yorumlayicisi yazdim. Kendisi ektedir.
Bu sefer gercekten ektedir :)
--
Mehmet
import string
impor
Merhaba,
Kodu biraz degistirdim, en iyisi link vereyim.
http://studwww.ugent.be/~msoyturk/lisp.py
--
Mehmet
___
cs-lisp mailing list
cs-lisp@cs.bilgi.edu.tr
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp
(defconstant +tests+
'(("cccvcc" . 5) ("cccvcv" . 4)
("cccvc" . 5) ("ccvccc" . 5)
("ccvccv" . 4) ("ccvcc" . 5)
("ccvcc" . 4) ("ccvcv" . 3)
("ccvc" . 4) ("ccvv" . 3)
("ccv" . 3) ("cvccc" . 4)
("cvccv" . 3) ("cvcc" . 4) ("cvcv" . 2)
("cvc" . 3) ("cv" . 2) ("vccc" . 3)
("vccv"
yaklasik 6.5 kat daha hizli calisiyor, fakat
hatalari bulamiyor. Sizin kod gelistirmeye daha acik gorunuyor. Mesela
pardon, 3.5 olacakti
--
Mehmet
___
cs-lisp mailing list
cs-lisp@cs.bilgi.edu.tr
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu
On 1/11/07, Volkan YAZICI <[EMAIL PROTECTED]> wrote:
On Jan 11 12:18, Volkan YAZICI wrote:
> (define (available-changes amount coins)
> (cond
>((= amount 0) '())
>((< amount 0) #f)
>(else
> (append-map
> (lambda (coin)
>(let ((avails (available-changes (- amount coi
fix'in nasil calistigini anlamak guc, ama isminden fixpoint combinator
oldugu anlasiliyor. Bu yuzden
((fix (lambda (f)
(lambda (n)
(if (zero? n)
1
(* n (f (- n 1))) 9)
yaklasik suna denk geliyor
(define f
(lambda (n)
(if (zero? n)
http://en.wikipedia.org/wiki/Lambda_calculus
http://en.wikipedia.org/wiki/Fixed_point_combinator
bir fonksiyonun fixed point combinator olmasi icin (fix f) == (f (fix
f)) olmasi lazim imis.
fix fonksiyonunu lambda calculus seklinde yazalim:
(\z.z z z z z z z z z z z z z z z z z z z z) (\P u t
On 2/21/07, Volkan YAZICI <[EMAIL PROTECTED]> wrote:
Merhaba,
Bildiğim kadarı ile FLET lexical scope'ta geçerli oluyor. Şöyle ki:
(defun cons-test (p q)
(cons p q))
(defun mapcar-test (proc lst)
(if (null lst) '()
(cons-test (funcall proc (first lst))
(mapcar-test pr
On 8/14/07, Aycan iRiCAN <[EMAIL PROTECTED]> wrote:
> Alp Özmert yazmış:
> > Selam!
> >
> > Selem <[EMAIL PROTECTED]> yazmış:
> >
> >
> >> -- What is the exponent of the largest power of two whose base seven
> >> representation doesn't contain three zeros in a row?
> >>
> >
> > Hiç de optimal olmay
On 10/11/07, Evrim Ulu <[EMAIL PROTECTED]> wrote:
> (ubuntu'da sbcl paketini bulamadim bilen goren varsa beni aydinlatirsa
> sevinirim)
Ben feisty uzerinden bulabiliyorum: http://packages.ubuntu.com/feisty/devel/sbcl
--
Mehmet
___
cs-lisp mailing lis
On Feb 7, 2008 9:28 PM, Utku Somer <[EMAIL PROTECTED]> wrote:
> sanirim
>
> (generate rules-list axiom-list)
>
> tadinda bir sey istiyordun. yani kurallar listesi verilecek, baslangic
> liste verilecek, sonraki nesili cikaracak. tabii bunu yazarken
> kurallar listesi icindeki (burdaki grammer'in tu
15 matches
Mail list logo