diff options
| author | rsiddharth <s@ricketyspace.net> | 2019-08-25 13:28:25 -0400 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2019-08-25 13:28:25 -0400 |
| commit | 9220ef34b1872f73e50eababf173de6722caac10 (patch) | |
| tree | 12404a8bc603c2d4422f82893770a5e928bfd345 | |
| parent | cae3cc6d7bdfa27aa18ad4ebcb0f6724ee5d5698 (diff) | |
net: sicp/two/thirtytwo: Update subsets.
* net/ricketyspace/sicp/two/thirtytwo.scm (subsets): Add doc.
| -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)))) |