lisp - Scheme (Lazy Racket) 自然数の無限リスト

Question

無限リストを扱うにはLazy Racketが便利だと思います。ウィキペディアのレイジー ラケットの記事によると、fibs(フィボナッチ数の無限リスト) は次のように定義できます。

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

自然数の無限リストをどのように定義しますか?

Answer 1

#lang lazy

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

どうやらこれは機能しないため、1+に置き換える必要があります(lambda (x) (+ x 1))。@kenokabe のテストに感謝します。(add1が正式名称です。)