vishesh · June 7, 2013 19:08 · danhvo11012 · Feb 7, 2021
diff --git a/subsets.ss b/subsets.ss
 (define (subsets s)
  (if (null? s)
      (list null)
      (let ((rest (subsets (cdr s))))
        (append rest (map (lambda (x)
                            (cons (car s) x))
                          rest)))))

 (subsets '(1 2 3))
	(define (subsets s)
	(if (null? s)
	(list null)
	(let ((rest (subsets (cdr s))))
	(append rest (map (lambda (x)
	(cons (car s) x))
	rest)))))

	(subsets '(1 2 3))
No results found