diff options
| -rw-r--r-- | net/ricketyspace/sicp/two/thirtytwo.scm | 3 |
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)))) |