Lösungen - TuH2L

Aus ProgrammingWiki

Archivierte Version vom 2009-04-19T16:26:33+00:00. Aktuelle Version

Link zur Hauptseite: Teile und Herrsche 2

Link zu den Übungsaufgaben: Aufgaben - TuH2

Lösungen zur Binären Suche

Aufgabe 1 (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>