Scheme

Aus ProgrammingWiki

Archivierte Version vom 2015-06-03T15:25:45+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)

Dialog Ein-/Ausgabe mit Scheme:

(define name (inputDialog "Gib deinen Namen ein:"))
(showMessage (string-append "Hallo " name))

Zufallsgenerator: Die folgenden Funktionen gehören nicht zum Scheme Standard. Die Variable "RandomSeed" wird für die Erzeugung von Zufallszahlen verwendet. Diese wird automatisch mit einer zufälligen Zahl vordefiniert. Sie können diese aber umdefinieren, wenn sie immer die gleiche Folge von Zufallszahlen erzeugen wollen.

(random)  ;liefert eine Gleitkommazahl zwischen 0 und 1

(randomInt 100) ;liefert eine Ganzzahl zwischen 0 und 99

(define RandomSeed 123456789)
(randomInt 6)

Scheme

Scheme

Fibonacci-Berechnung 1

Fibonacci-Berechnung 2

Suche