;; Cesaro-Test mit zufall-aktuell statt zufall

(define (schaetzwert-pi versuche)
  (sqrt (/ 6 (zufalls-ggt-test versuche
                               zufall-init))))

(define (zufalls-ggt-test versuche anfangs-x)

  (define (iter versuche-uebrig
                versuche-erfolgreich
                x)
    (let ((x1 (zufall-aktuell x)))
      (let ((x2 (zufall-aktuell x1)))
        (cond ((= versuche-uebrig 0)   
               (/ versuche-erfolgreich versuche))
              ((= (ggt x1 x2) 1)
               (iter (- versuche-uebrig 1)
                     (+ versuche-erfolgreich 1)
                     x2))
              (else
               (iter (- versuche-uebrig 1)
                     versuche-erfolgreich
                     x2))))))

  (iter versuche 0 anfangs-x))