Welcome to the CHICKEN Scheme pasting service

shuffle added by mario-goulart on Mon Jun 9 15:17:50 2014

(define shuffle
  (lambda (l random)
    (let ((len (length l)))
      (map cdr
          (sort! (map (lambda (x) (cons (random len) x)) l)
                 (lambda (x y) (< (car x) (car y)))) ) ) ) )
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the procedure that returns the car of a cdr?
Visually impaired? Let me spell it for you (wav file) download WAV