Lösungen - TuH2L

Aus ProgrammingWiki

Archivierte Version vom 2009-04-18T09:25:00+00:00. Aktuelle Version

Lösungen zum Karatsuba - Algorithmus

Aufgabe 1

Aufgabe1 (c)

Mögliche Implementierung:

(define binhelfer2
  (lambda (x ls start ende)
    (let ((mitte (floor (+ start (/ (- ende start) 2)))))
      (cond
        ((>= mitte (vector-length ls))"Falsche Eingabe")
        ((> start ende) (string-append "Element wurde nicht gefunden. Anzahl Rekursionen : " (number->string calls)))
        ((= (vector-ref ls mitte) x)(string-append "Element gefunden an der Stelle :" (number->string mitte) ". Anzahl Rekursionen : " (number->string calls)))
        ((< (vector-ref ls mitte) x)(and (set! calls (+ calls 1))(binhelfer2 x ls (+ mitte 1) ende)))
        ((> (vector-ref ls mitte) x)(and (set! calls (+ calls 1))(binhelfer2 x ls start (- mitte 1))))))))

(define calls 0)
(define binaersuche3 
  (lambda (x ls)
    (set! calls 0)
    (binhelfer2 x (list->vector ls) 0 (length ls))))


(define liste '(4 8 15 16 23 42))

<eval>(binaersuche3 23 liste)</eval>

Lösungen - TuH2L

Lösungen zum Karatsuba - Algorithmus

Aufgabe 1

Aufgabe1 (c)

Suche