6 lines
130 B
Scheme
6 lines
130 B
Scheme
; for Chicken Scheme
|
|
(import (chicken random))
|
|
|
|
(define (pick_random x)
|
|
(list-ref x (pseudo-random-integer (length x)))
|
|
)
|