Probabilistische Algorithmen SS10
Aus ProgrammingWiki
Archivierte Version vom 2010-05-30T12:21:18+00:00. Aktuelle Version
Inhaltsverzeichnis |
Autoren:
- Mateusz Zwierz (simazwie@stud.hs-zigr.de)
- Hans Markwart (sihamark@stud.hs-zigr.de)
Einleitung
Pseudozufallszahlen
(define pszfzl
(lambda (z)
(let ((a 16807)(b 0))
(if (eq? z 0)
4567
(modulo (+ (* a (pszfzl (- z 1))) b) c)))))(define randomize
(lambda () (/ (pszfzl (modulo (current-milliseconds) c)) c)))
(define myrandom
(lambda (n)
(let ((a (randomize)))
(* a n))))<eval id="4c02583ec0377"> (time-second (current-time)) </eval>