|
Es ist m = . Wäre eine der Zahlen im Zähler größer als m, so könnte die Gleichung nicht gelten. Also gilt für alle Zahlen die Gleichheit. |
2 | 2 | 2 | 2 | 2 |
1 | 1 | 1 | 1 | 1 |
0 | 0 | 0 | 0 | 0 |
Ein beliebiges Gitterkreuz sieht dann so aus:
n + 1 | n + 1 | n + 1 |
n | n | n |
n - 1 | n-1 | n-1 |
Dann ist die Bedingung erfüllt. Wir müssen aber in der nächsten unteren Zeile -1 zulassen.
(defun pow (a b) (let ((potenz 1)) (loop while ( > b 0) do (if (= (mod b 2) 1) (setq potenz (* potenz a) b (- b 1)) (setq b (/ b 2) a ( * a a)) ) ) potenz ) )
Andreas 2006-12-05