Vorlesung 2 Grüning

Aus ProgrammingWiki

Archivierte Version vom 2021-03-26T11:21:34+00:00. Aktuelle Version

Hilbert Hotel

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

(zeig-mir hilberthotel 11)

Vorlesung 2 Grüning

Hilbert Hotel

Suche