summaryrefslogtreecommitdiffstats
path: root/net
diff options
context:
space:
mode:
Diffstat (limited to 'net')
-rw-r--r--net/ricketyspace/sicp/two/thirtytwo.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/net/ricketyspace/sicp/two/thirtytwo.scm b/net/ricketyspace/sicp/two/thirtytwo.scm
index 31d6446..d189963 100644
--- a/net/ricketyspace/sicp/two/thirtytwo.scm
+++ b/net/ricketyspace/sicp/two/thirtytwo.scm
@@ -4,6 +4,9 @@
#:export (subsets))
(define (subsets s)
+ "All subsets of a Set X (P) is the union of all subsets of CDR of
+Set X (Q) and a subset R derived from the union of CAR X with each of
+the subsets in Q."
(if (null? s)
(list '())
(let ((rest (subsets (cdr s))))