let fib = 1:1:[x + y | (x,y) <- zip fib (tail fib)] take 5 fibBunu GHC interpreter'da yazıp bir deneyin, bakalım neler oluyor. Başka bir dilde yapabilen beri gelsin...
(define fibs
(cons-stream 0
(cons-stream 1
(add-streams (tail fibs) fibs))))
ve sonra da ilk 5 Fibonacci sayısını şu şekilde sorabiliyoruz:
> (stream-section 5 fibs) (0 1 1 2 3)Ben de küçük bir arakl^H^H^H^H^H... eee, pardon, alıntı yaptım ;-) Fonda (take 5) çalarken kodlamaya devam ediyoruz...
(define zip
(lambda (l1 l2)
(map cons l1 l2)))
(define fib (cons 1 (cons 1 (map (lambda (i) (+ (car i) (cdr i))) (zip fib (cdr fib))))))
Tembel programcılar, tembel diller kullanır!
