Scheme

Aus ProgrammingWiki

Archivierte Version vom 2011-01-10T19:42:26+00:00. Aktuelle Version

Scheme

Sagen Sie die jeweilige Antwort des Interpreters vorher. Vergleichen Sie anschließend die Antworten des Scheme-Systems mit Ihren Vorhersagen. Hinweis: die Zahlen (number) werden nicht nur "nachgeplappert".

4	12345	0.8439
-.590	-0	7/3
24/3	9e-8	#b1101

Fibonacci-Berechnung 1

(define fib
  (lambda (n)
    (if (< n 2)
         1
         (+ (fib (- n 1)) (fib (- n 2))))))

(fib 5)

Fibonacci-Berechnung 2

(define fib-memo
  (let ((fib-memoliste '()))
    (lambda (n)
      (let ((rek-aufrufe 0))
        (letrec
          ((fib-memo-hilf
             (lambda (n)
               (let ((memowert (assoc (list n) fib-memoliste)))
                 (if memowert
                     (cdr memowert)
                     (let ((resultat (fib-hilf n)))
                       (set! fib-memoliste (cons (cons (list n) resultat) fib-memoliste)) resultat)))))
           (fib-hilf
             (lambda (n)
               (set! rek-aufrufe (+ rek-aufrufe 1))
               (if (< n 2)
                   1
                   (+ (fib-memo-hilf (- n 1))(fib-memo-hilf (- n 2)))))))
          (list n (fib-hilf n) rek-aufrufe))))))

(fib-memo 100)

Scheme

Scheme

Fibonacci-Berechnung 1

Fibonacci-Berechnung 2

Suche