s3romuel

Aus ProgrammingWiki

Playground s3romuel

Hashtable-Test

(define real (make-hashtable))
(define real (make-hashtable equal-hash equal?))
(define f-mem
  (lambda (n)
    (let ([result (hashtable-ref real n #f)])
      (cond [(= n 1) 1]
            [(number? result) result]
            [else 
             (let([get-result 
                   (if (= (modulo n 2) 0)
                       (+ 1 (f-mem (/ n 2)))
                       (/ 1 (f-mem (- n 1)))
                       )])
               (hashtable-set! real n get-result)
               get-result)
             ]))))

(f-mem 5)

s3romuel

Playground s3romuel

Suche