Scheme (Lazy Racket) eine unendliche Liste von natürlichen Zahlen

Question

Ich denke, dass Lazy Racket sollte nützlich sein für die Behandlung von unendlichen Listen. Nach den Wikipedia Lazy Racket article, fibs (die unendliche Liste der Fibonacci-Zahlen) kann wie folgt definiert werden:

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

Wie wir eine unendliche Liste von natürlichen Zahlen definieren?

Answer 1

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

Dank Will Ness.

Ich fand auch

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

Zur Ausgabe

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

Offenbar dies nicht funktioniert, und 1+ sollte durch (lambda (x) (+ x 1)) ersetzt werden. Danke an @kenokabe zum Testen. (add1 ist der Eigenname.)