BuK/IIm20/Vorlesung 2 Grüning

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
== Hilbert Hotel ==

<code id="605dc3bdf159d">
(define zeig-mir
  (lambda (stm n)
    (letrec
        ([show
          (lambda (stm n ls)
            (if (= n 0)
                (apply display (append ls (list "...")))
                (show (stream-cdr stm) (- n 1) (append ls (list (stream-car stm) ", ")))))])
      (show stm n ()))))


(define baue-hilberthotel 
  (lambda (n)
    (stream-cons #f (baue-hilberthotel (+ n 1)))))

(define hilberthotel (baue-hilberthotel))

</code>

<run id="605dc3bdf1624">
(zeig-mir hilberthotel 11)
</run>