s3romuel

Aus ProgrammingWiki

Archivierte Version vom 2019-04-28T16:05:47+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)

(define real (make-hashtable))
(import hashtable)
(define table (make-hashtable))
(define false (lambda () #f))
(define f-mem
    (lambda (n) 
        (let ([resultat (hashtable/get table n false)])
            (cond
                [(= n 1) 1]
                [(number? resultat) resultat]
                [else 
                  (let([res-berechnet 
                    (if (= (modulo n 2) 0)
                        (+ 1 (f-mem (/ n 2)))
                        (/ 1 (f-mem (- n 1)))
                    )])
                    (hashtable/put! table n res-berechnet)
                    res-berechnet
                  )
                ]
            )
        )
    )
)

(f-mem 5)

s3romuel

Playground s3romuel

Suche