AuK/Motivation SS12

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
== Algorithmen zur Multiplikation ==


=== Multiplikation großer Zahlen ===

Es gibt eine ''bessere'' Methode zur Multiplikation zweier natürlicher Zahlen als die, die in der Schule gelehrt wird.

Was bedeutet "besser" und warum ist das wichtig?
:* Ein ''besserer'' Multiplikationsalgorithmus benötigt weniger Zeit als andere Verfahren mit gleichem Resultat.
:* Dadurch können alle Operationen, die große ganze Zahlen multiplizieren, viel schnelle durchgeführt werden. Beispiele sind: Computeralgebrasysteme und Geometrieprogramme. 
:* Konsequenzen hat das auch für die Kryptografie.

=== Primitive Basisoperationen ===

Wir gehen davon aus, dass die folgenden beiden Elementaroperationen vorhanden sind und für die entsprechenden Eingaben stets mit ''konstantem Zeitaufwand'' ausgeführt werden.

# Addition dreier Ziffern (sog. Volladdierer) <br/>  Eingaben: x und y sowie der Übertrag c<br/> Resultat: zwei Ziffern, nämlich die Ergebnisziffer und der neue Übertrag 
# Multiplikation zweier Ziffern <br/> Eingaben: x und y <br/> Resultat: zwei Ziffern, nämlich die Ergebisziffer und der Übertrag

Für die beiden Operationen wird im Folg. je eine Scheme-Prozedur <tt>prim-add</tt> und <tt>prim-mult</tt> definiert. In diesen Definition wird die Basis <math>B</math> der Zahlendarstellung durch den Wert der Variablen <tt>basis</tt> festgelegt. Für den Fall, dass ein anderes Stellenwertsystem verwendet werden soll, ist diese Angabe anzupassen.

<code id="4f2e6547da2f9">
(define anzahl-prim-op 0)

(define prim-add
  (let ((basis 10))  ; B = 10
    (lambda (x y c)
      (set! anzahl-prim-op (+ anzahl-prim-op 1))
      (let ((res (+ x y c)))
        (if (< res basis)
            (cons res 0)
            (cons (- res basis) 1))))))

(define prim-mult
  (let ((basis 10))  ; B = 10
    (lambda (x y)
      (set! anzahl-prim-op (+ anzahl-prim-op 1))
      (let ((res (* x y)))
        (cons (remainder res basis)(quotient res basis))))))
</code>

Die primitive Addition zweier Ziffern und eines Übertrags liefert ein Paar, dessen erstes Element die Stelle und das zweite den neuen Übertrag darstellt. Beispielsweise soll für <math>7+8+0=15</math>
das Paar <tt>(5 . 1)</tt> zurück gegeben werden.
<run id="4f2e6547da47c">(prim-add 7 8 0)</run>
<run id="4f2e6547da4d3">(prim-add 2 5 1)</run>
<run id="4f2e6547da53d">(prim-add 9 8 1)</run>


Ein weiteres Aufrufbeispiel gilt der Multiplikation <math>9\cdot 8=72</math>:
<run id="4f2ec22340228">(prim-mult 9 8)</run>

Da die beiden primitiven Operationen mit komplexeren Scheme-Sprachelementen definiert wurden, macht es keinen Sinn, zur Aufwandsanalyse darauf aufbauender Operationen eine Zeitmessung durchzuführen. Sinnvoll ist es, die ''Gesamtanzahl'' der Aufrufe primitiver Basisperationen zu ermitteln. Hierfür wird eine globale Variable <tt>anzahl-prim-op</tt> als Zähler bereitgestellt und mit 0 initialisiert.
<popup name="Hinweis"> Es ist zu beachten, dass diese Initialisierung bei jedem Prozeduraufruf erneut ausgeführt wird.</popup>

=== Addition und Multiplikation n-stelliger natürlicher Zahlen ===

<code id="4f32729c5ab7c" hidden>
(define add
  (lambda (a b)
    (letrec
        ((helper
          (lambda (a b c)
            (if (null? a) 
                (list c)
                (let ((res (prim-add (car a) (car b) c)))
                  (cons (car res) (helper (cdr a) (cdr b) (cdr res))))))))
      (reverse (helper (reverse a)(reverse b) 0)))))

(define mult1
  (lambda (a bj)  ; Liste, Ziffer
    (let ((res (map (lambda (ai) (prim-mult ai bj)) a)))
      (add
       (append '(0) (map car res))
       (append (map cdr res) '(0))))))

(define mult
  (lambda (a b)
    (let* ((lls (map (lambda (bj) (mult1 a bj)) b))
           (n (- (length lls) 1)))  ; Laenge der Faktoren = Anzahl der Summanden
      (letrec ((helfer 
                (lambda (lls k)
                  (if (null? lls)
                      '()
                      (cons (append (NullenListe (- n k)) (car lls) (NullenListe k)) 
                            (helfer (cdr lls) (- k 1))))))
               (hilfsadd
                (lambda (lls)
                  (if (null? (cdr lls))
                      (car lls)
                      (add (car lls) (hilfsadd (cdr lls)))))))
        (hilfsadd (helfer lls n))))))

; ---  Hilfsprozeduren ---

(define NullenListe
  (lambda (n)
    (map (lambda (str) (string->number (string str))) (string->list (make-string n #\0)))))

(define zahl->liste
  (lambda (zahl)
    (map (lambda (z) (string->number (string z))) (string->list (number->string zahl)))))
</code>

==== Addition ====

<run id="4f327428d1a7b">(add '(1 8 2 7 6 3 4) '(8 2 9 4 6 7 8))</run>

==== Multiplikation einer n-stelligen natürlichen Zahl mit einer einstelligen ====
<run id="4f327428d1b74">(mult1 '(2 5 3 6 7) 5)</run>


==== Multiplikation zweier n-stelliger natürlicher Zahlen ====


<run id="4f327428d1bf3">(mult '(2 3 4) '(4 5 6))</run>