s3romuel

Aus ProgrammingWiki

Archivierte Version vom 2019-04-28T15:52:00+00:00. Aktuelle Version

Playground s3romuel

Hashtable-Test

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

(f-mem 5)

s3romuel

Playground s3romuel

Suche