15 lines
293 B
Scheme
15 lines
293 B
Scheme
(module (bd random) ()
|
|
(import scheme
|
|
(chicken base)
|
|
(chicken module)
|
|
(chicken random))
|
|
|
|
(export random)
|
|
(export rand-int)
|
|
(define random pseudo-random-real)
|
|
(define rand-int pseudo-random-integer)
|
|
|
|
(export pick-random)
|
|
(define (pick-random lst)
|
|
(list-ref lst (rand-int (length lst))))
|
|
)
|