9 lines
245 B
Scheme
9 lines
245 B
Scheme
#lang sicp
|
|
|
|
(define (subsets s)
|
|
(if (null? s)
|
|
(list nil)
|
|
(let ((rest (subsets (cdr s))))
|
|
(append rest (map (lambda (set) (cons (car s)
|
|
set))
|
|
rest)))))
|