IIm18-Kreativaufgabe1

Aus ProgrammingWiki

Archivierte Version vom 2019-06-09T20:56:35+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)))))

(define zeig-mir print-stream)

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

Hotel bauen

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

(define hilberthotel (baue-hilberthotel))

(define zeig-mir
  (lambda (stm n)
    (cond
      ((= n 0)
       (display "...\n"))
       (else
        (display (stream-first stm))
        (display ", ")
        (zeig-mir (stream-rest stm) (- n 1))))))

(zeig-mir hilberthotel 12)

IIm18-Kreativaufgabe1

Aufgabenstellung

Hilfsfunktionen

Hotel bauen

Suche