योजना (आलसी रैकेट) प्राकृतिक संख्याओं की एक अनंत सूची

Question

मुझे लगता है कि Lazy Racket अनंत सूचियों को संभालने के लिए उपयोगी होना चाहिए। हम प्राकृतिक संख्या की एक अनंत सूची कैसे परिभाषित करते हैं

;; An infinite list: 
(define fibs (list* 1 1 (map + fibs (cdr fibs)))) 

: Wikipedia Lazy Racket article के अनुसार, fibs (फाइबोनैचि संख्या के अनंत सूची) के रूप में परिभाषित किया जा सकता?

Answer 1

#lang lazy 
(define Nat (cons 1 (map (lambda (x) (+ x 1)) Nat))) 

विल नेस के लिए धन्यवाद।

मैं भी उत्पादन करने के लिए

#lang lazy 
;;; infinite sequences represented by a_(n+1) = f(a_n) 
(define inf-seq (lambda (a0 f) (cons a0 (inf-seq (f a0) f)))) 
(define Nat (inf-seq 1 (lambda (x) (+ x 1)))) 

पाया

(define (outputListData list) 
    (cond 
     [(null? list) #f] ; actually doesn't really matter what we return 
     [else 
      (printf "~s\n" (first list)) ; display the first item ... 
      (outputListData (rest list))] ; and start over with the rest 
    ) 
) 

(outputListData Nat) 

Answer 2

#lang lazy 

(define nats (cons 1 (map 1+ nats))) 

जाहिर है यह काम नहीं करता है, और 1+(lambda (x) (+ x 1)) द्वारा प्रतिस्थापित किया जाना चाहिए। परीक्षण के लिए @kenokabe के लिए धन्यवाद। (add1 उचित नाम है।)