From 9220ef34b1872f73e50eababf173de6722caac10 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Sun, 25 Aug 2019 13:28:25 -0400 Subject: net: sicp/two/thirtytwo: Update subsets. * net/ricketyspace/sicp/two/thirtytwo.scm (subsets): Add doc. --- net/ricketyspace/sicp/two/thirtytwo.scm | 3 +++ 1 file changed, 3 insertions(+) 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)))) -- cgit v1.2.3