sicp

sicp sandbox.
git clone git://git.ricketyspace.net/sicp.git
Log | Files | Refs

commit 9220ef34b1872f73e50eababf173de6722caac10
parent cae3cc6d7bdfa27aa18ad4ebcb0f6724ee5d5698
Author: rsiddharth <s@ricketyspace.net>
Date:   Sun, 25 Aug 2019 13:28:25 -0400

net: sicp/two/thirtytwo: Update subsets.

* net/ricketyspace/sicp/two/thirtytwo.scm (subsets): Add doc.

Diffstat:
net/ricketyspace/sicp/two/thirtytwo.scm | 3+++
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 @@ #: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))))