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=205b4712a8e8c88693b184030143ff513ec26a92;hpb=c3062a9e8691e9c067b69ec24a728c746520b310

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