; Die Funktion simul nimmt irgendein Experiment (d.h. eine Funktion)
;als Argument sowie eine Liste x von Argumenten dieser Funktion. Das ;Experiment wird r mal wiederholt und die Ergebnisse in einer Liste ;abgespeichert.
;Aufruf : (simul #'experiment x r)
;Beispiel: das Experiment befoerdeung benoetigt 3 Argumente.
;       (simul #'experiment (list 40 20 8) 10)


(defun simul (experiment x r)
  (if (= r 0)()
  (cons (apply experiment x ) 
        (simul  experiment x (- r 1)))))


; (frequency a x) zählt die Häufigkeit des Zeichens a in der Liste x

(defun frequency (a x)
  (cond
    ((equal x ()) 0)
    ((= a (first x)) (+ 1 (frequency a (rest x))))
    ((frequency a (rest x)))))