Power set: Difference between revisions
Content added Content deleted
(Added powerset method for actual set class.) |
(Added racket version) |
||
Line 1,604: | Line 1,604: | ||
{{}, {1}, {"qwerty"}, {<<list(2)>>}, {1, <<list(2)>>}, {"qwerty", |
{{}, {1}, {"qwerty"}, {<<list(2)>>}, {1, <<list(2)>>}, {"qwerty", |
||
1}, {"qwerty", <<list(2)>>}, {"qwerty", 1, <<list(2)>>}} |
1}, {"qwerty", <<list(2)>>}, {"qwerty", 1, <<list(2)>>}} |
||
=={{header|Racket}}== |
|||
<lang scheme>;;; 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)))))))</lang> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |