Power set: Difference between revisions

→‎{{header|Perl 6}}: modernize to use .combinations
(→‎Single-Functor Definition: simplified version is much faster)
(→‎{{header|Perl 6}}: modernize to use .combinations)
Line 1,518:
}</lang>
=={{header|Perl 6}}==
<lang perl6>say set (set <a b c d>).combinations.map: *.Set</lang>
{{out}}
<pre>set(set(a), set(b), set(c), set(d), set(a, b), set(a, c), set(a, d), set(b, c), set(b, d), set(c, d), set(a, b, c), set(a, b, d), set(a, c, d), set(b, c, d), set(a, b, c, d))</pre>
 
{{trans|Perl}}
<lang perl6>sub powerset ( *@list ) {
reduce( -> @L, $n { [ @L, @L.map({[ $_.list, $n ]}) ] }, [[]], @list );
}</lang>
=={{header|PHP}}==
<lang PHP>
Anonymous user