Lösungen - TuH2L

Aus ProgrammingWiki

Archivierte Version vom 2009-04-19T16:35:46+00:00. Aktuelle Version

Inhaltsverzeichnis

1 Lösungen zur Binären Suche
- 1.1 Aufgabe 1 (c)
2 Lösung zum Strassen-Algorithmus
- 2.1 Aufgabe 3

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>

Lösung zum Strassen-Algorithmus

Aufgabe 3

Lösungsmatrix:

C = \left( \begin{array}{cccc} 116 & 52 & 60 & 68 \\ 165 & 98 & 94 & 90 \\ 97 & 42 & 50 & 58 \\ 132 & 97 & 98 & 99 \\ \end{array} \right)