solutions to 4.50..4.54

[sicp.git] / src / sicp / ex4_50.rkt

diff --git a/src/sicp/ex4_50.rkt b/src/sicp/ex4_50.rkt
new file mode 100644 (file)
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