Power set: Difference between revisions

22 bytes removed ,  11 years ago
Line 1,682:
 
=={{header|Racket}}==
<lang racket>
<lang scheme>;;; Direct translation of 'functional' ruby method
(define (powerset s)
(for/fold ([outer-set (set(set))]) ([element s])
([element s])
(set-union outer-set
(list->set (set-map outer-set
outer (λ(inner-set) (set-add inner-set element)))))))
</lang>
(λ(inner-set)(set-add inner-set element)))))))</lang>
 
=={{header|Rascal}}==