src/sicp/ex4_50.rkt

   1 #lang racket
   2
   3 #|
   4
   5 In this original definition of amb-choices,
   6
   7 (define (amb-choices expr) (rest expr))
   8
   9 instead return the shuffled values
  10
  11 (define (amb-choices expr) (shuffle (rest expr)))
  12
  13 |#