Data update
This commit is contained in:
parent
4d5544505c
commit
4924dd0264
3073 changed files with 55820 additions and 4408 deletions
6
Task/Pick-random-element/Scheme/pick-random-element.scm
Normal file
6
Task/Pick-random-element/Scheme/pick-random-element.scm
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
; for Chicken Scheme
|
||||
(import (chicken random))
|
||||
|
||||
(define (pick_random x)
|
||||
(list-ref x (pseudo-random-integer (length x)))
|
||||
)
|
||||
Loading…
Add table
Add a link
Reference in a new issue