Miscellany

; Berechnet die Fakutaet und den Binomialkoeffizienten

(defun fak (a) ; Funktion Fakultaet berechnen
    if (<= a 1) ; Trivialfall, komische Eingaben und Ende der Rekursion abfangen
    (
       1
     )else
    (
       (* a fak(- a 1 )) ; Rekursionsaufruf und Multiplikation
    )
)
 
(fak 3) ; Aufruf der Funktion mit a=3

(defun binom (n k) ; Funktion Binomialkaeffizient berechnen
    if (<= k 0) ; k<=0 abfangen
    (
        0
    )else
    (
        if ( >= k  n)
        (
             1
        )else
        (
             (/ ( fak(n)(* fak(k) fak(- n k) ))) ; Berechne BinKoeff mit rekursiver Funktion fak
        )
    )
)

(binom 6 3 ) ; Beispielfunktionsaufruf