Bergervei/Zufallszahlen

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
== Zufallszahlen und -listen ==

<code id="4d4dd7fc25664">
;(define RandomSeed 123456789)

(define zufallszahl
  (lambda (max)
    (+ 1 (randomint max))))

(define zufallsliste
  (lambda (max anz)
    (if (= anz 0)
        ()
        (cons (zufallszahl max) (zufallsliste max (- anz 1))))))
</code>

<run id="4d4dd7fc256c8">
(zufallsliste 100 20)
</run>