BuK/IIm18/Studenten/s3romuel

Wiki-Quelltext dieser Seite.

<language>SchemeJS</language>
== Playground s3romuel ==

Hashtable-Test

<code id="5cc5cc392ba40">(define real (make-hashtable))
(define f-mem
  (lambda (n)
    (if (= n 1)
        1
        (if (= (modulo n 2) 0)
            (+ 1 (hash-ref! real(/ n 2) (lambda () (f-mem (/ n 2)))))
            (/ 1 (hash-ref! real(- n 1) (lambda () (f-mem (- n 1)))))))))</code>
<run id="5cc5cc392baab">

(f-mem 5)

</run>

<check>
(and (= (f-mem 1) 1)  (= (f-mem 2) 2) (= (f-mem 4) 3))
</check>