Scheme (Lazy Racket) una lista infinita di numeri naturali

Question

Penso che Lazy Racket dovrebbe essere utile per gestire liste infinite. Secondo il Wikipedia Lazy Racket article, fibs (la lista infinita di numeri di Fibonacci) può essere definito come:

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

Come possiamo definire una lista infinita dei numeri naturali?

Answer 1

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

grazie a Will Ness.

Ho anche trovato

#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)))) 

Per l'uscita

(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))) 

A quanto pare questo non funziona, e 1+ dovrebbe essere sostituito da (lambda (x) (+ x 1)). Grazie a @kenokabe per i test. (add1 è il nome corretto)