Anonymous user
Knuth's algorithm S: Difference between revisions
m
Corrected two errors (pointed to by Sean Kanaley)
m (Changed #lang to racket/base in Racket) |
m (Corrected two errors (pointed to by Sean Kanaley)) |
||
Line 1,103:
<lang racket>#lang racket/base
(define (s-of-n-creator n)
(let ([count 0] ; 'i' in the description
Line 1,117 ⟶ 1,115:
(begin
(set! count (+ count 1))
(when (< (
(vector-set! vec (random n) item))))
vec)))
(define counts (
(for ([iter (in-range 0 100000)]) ; trials
| |||