BuK/IIm10/BuK-Übung02 G2

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
<code id="4d8b0972a9726">
#lang racket
(define haelt-fuer-n?
  (λ (f n)
    (if (integer? (f n))
        #t
        #f)))
</code>

<code id="4d8b0972a9791">
(define haelt?
  (λ (f)
    (haelt-fuer-n? f 0)))
</code>

<code id="4d8b0972a9800">
(define crazy
  (λ (n)
    (if (haelt? crazy n)
        (crazy n)
        n)))
</code>

<code id="4d8b0972a9868">
(define haelt-tricky?
  (λ (f timeout)
    (letrec 
        ([ft (thread f)]
         [helper
          (λ (timeLeft)
            (if (thread-running? ft)
                (if (= timeLeft 0)
                    #f
                    (begin (sleep 1) (helper (- timeLeft 1))))
                #t))])
      (helper timeout))))
</code>

<code id="4d8b0972a98cb">
(define test1
  (λ ()
    (print "hallo")))
</code>

<code id="4d8b0972a992f">
(define test2
  (λ ()
    (test2)))
</code>

<run id="4d8b0972a99a8">
(haelt-tricky? test1 10)
</run>

<run id="4d8b0972a9a00">
(haelt-tricky? test2 10)
</run>