• Sieg!

    Liste von Länge n bilden:

    (defun herpsum (n)
    (cond ((zerop n) 0)
    (T (+ 1 (herpsum (n 1-))))))

    Listenelemente addieren:

    (defun derpsum (L)
    (cond ((null L) 0)
    (T (+ (car L) (derpsum (rest L))))))

    Letztes Element einer Liste finden:

    (defun herplast (L)
     (if (= 1 (length L)) (car L)
     (herplast (rest L))))

    Liste ohne letztes Element zurückgeben:

    (defun herpderp (L)
     (if (or (null L) (= 1 (length L))) ()
     (cons (first L) (herpderp (rest L)))))

    (Im Radio läuft eine Sendung über Franz List. Ich werde fast wahnsinnig, ich verstehe immer LisP.)