IIm18-Kreativaufgabe1

Aus ProgrammingWiki

Archivierte Version vom 2019-06-09T21:15:00+00:00. Aktuelle Version

Aufgabenstellung

Modellieren Sie die skurrilen Deutungen von Unendlichkeit am Beispiel ”Hilbertbus“ im ProgrammingWiki.

Wer wohnt in Zimmer 234? Hinweis: Verwenden Sie streams.

Arbeiten Sie im Team an Verbesserungen und ggf. an Erweiterungen.

Hilfsfunktionen

;Streambehandlung
(define stream-car car)

(define stream-cdr
  (lambda (stm)
    (force (cdr stm))))


;; Konstruktoren

(define-syntax stream-cons
  (syntax-rules ()
    ((_ head tail) (cons head (delay tail)))))

(define stream-item
  (lambda (str k)
    (if (= k 0)
        (stream-car str)
        (stream-item (stream-cdr str) (- k 1)))))

Hotel bauen

(define baue-hilberthotel
  (lambda ()
    (stream-cons #f (baue-hilberthotel)))
  )

(define hilberthotel (baue-hilberthotel))

(define zeig-mir
  (lambda (stm n)
    (cond
      ((= n 0)
       (cond
         ((void? stm) (display ""))
         (else
          (display "...\n"))))
      (else
       (display (stream-car stm))
       (display ", ")
       (zeig-mir (stream-cdr stm) (- n 1))))))

(zeig-mir hilberthotel 12)

IIm18-Kreativaufgabe1

Aufgabenstellung

Hilfsfunktionen

Hotel bauen

Suche