6 lines
277 B
Racket
6 lines
277 B
Racket
;;; Direct translation of 'functional' ruby method
|
|
(define (powerset s)
|
|
(for/fold ([outer-set (set(set))]) ([element s])
|
|
(set-union outer-set
|
|
(list->set (set-map outer-set
|
|
(λ(inner-set) (set-add inner-set element)))))))
|