; Berechnet die Fakutaet und den Binomialkoeffizienten

(defun fak (a) ; Funktion Fakultaet berechnen
   (if (<= a 1) ; Trivialfall, komische Eingaben und Ende der Rekursion abfangen
       (
           1
       )
       (
           (* 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
        )
        (
           (if ( >= k  n)
               (
                   1
               )
               (
                   (/ ( fak(n)(* fak(k) fak(- n k) ))) ; Berechne BinKoeff mit rekursiver Funktion fak
               )
           )
        )
  )
)

(binom 6 3 ) ; Beispielfunktionsaufruf