Skip to content

Instantly share code, notes, and snippets.

@gknauth

gknauth/randlist.rkt

Created August 7, 2011 19:00
Download ZIP

Revisions

  1. gknauth created this gist Aug 7, 2011.
    11 changes: 11 additions & 0 deletions randlist.rkt
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,11 @@
    #lang racket

    ; shuffle-list is interesting, check it out!
    (require games/cards/utils)

    ; seed the random number generator
    (random-seed (modulo (current-milliseconds) 10000))

    ; generates list of numbers from 0 to n-1 but in randomized order
    (define (random-number-list n)
    (shuffle-list (for/list ((i (in-range 0 n))) i) n))