; Random-Response Technik: Gesucht ist eine Wahrscheinlichkeit p,
; mit der eine bestimmte Frage F mit Ja beantwortet wird.
; q bezeichnet die Wahrscheinlichkeit, mit der
; die direkte Frage F vorgelegt wird, mit (1-q) wird die negierte Frage
; vorgelegt. 


; response generiert n unabhängige Antworten, jede Antwort ist 1 mit
; W'keit p und 0 mit Wahrscheinlichkeit 1-p
(defun response (p n)
  (if (= n 0) ()
      (cons  (if (< (first (uniform-rand 1)) p) 1 0) 
             (response p (- n 1)))))

; ranresp generiert eine Antwort, 
; und zwar 1 mit W'keit p * q + (1-p)*(1-q)
; das entspricht genau einer "Ja" Antwort 
; in der randomized-response-Technik
(defun ranresp (p q)
  (def x (uniform-rand  2))
  (if (or 
       (and (< (first x)  p) (< (first (rest x)) q))
       (and (> (first x)  p) (> (first (rest x)) q))) 1 0))

; ranrespn generiert n unabhängige Antworten gemäß ranresp
(defun ranrespn (p q n)
  (if (= n 0)() (cons (ranresp p q)( ranrespn p q (- n 1)))))

; ranresponse rechnet gemäß der Formel der random-esponse-Technik 
; die geschätzte Wahrscheinlichkeit für q 
(defun ranresponse (p q n)
  (/ (+ (/  (sum (ranrespn p q n)) n) (- q 1)) (- (* q 2) 1)))