|
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