X-Git-Url: https://git.rkrishnan.org/?p=sicp.git;a=blobdiff_plain;f=src%2Fsicp%2Fex4_50.rkt;fp=src%2Fsicp%2Fex4_50.rkt;h=69f61b8f24baac25d010babe91ceddec9fde3940;hp=0000000000000000000000000000000000000000;hb=5158bd64ca487b858c9d95e8a2bccb81fe2113a7;hpb=273f2bd230187a3164803ac32d9b5734d0123ad0

diff --git a/src/sicp/ex4_50.rkt b/src/sicp/ex4_50.rkt
new file mode 100644
index 0000000..69f61b8
--- /dev/null
+++ b/src/sicp/ex4_50.rkt
@@ -0,0 +1,13 @@
+#lang racket
+
+#|
+
+In this original definition of amb-choices,
+
+(define (amb-choices expr) (rest expr))
+
+instead return the shuffled values
+
+(define (amb-choices expr) (shuffle (rest expr)))
+
+|#
\ No newline at end of file