Author: rsiddharth <email@example.com>
Date: Sun, 25 Aug 2019 13:28:25 -0400
net: sicp/two/thirtytwo: Update subsets.
* net/ricketyspace/sicp/two/thirtytwo.scm (subsets): Add doc.
1 file changed, 3 insertions(+), 0 deletions(-)
diff --git a/net/ricketyspace/sicp/two/thirtytwo.scm b/net/ricketyspace/sicp/two/thirtytwo.scm
@@ -4,6 +4,9 @@
(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)
(let ((rest (subsets (cdr s))))