RosettaCodeData/Task/Power-set/Perl/power-set-9.pl

use List::Util qw(reduce);

sub powerset {
    @{( reduce { [@$a, map([@$_, $b], @$a)] } [[]], @_ )}
}
June 2018 Update 2018-06-22 20:57:24 +00:00			`use List::Util qw(reduce);`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00
June 2018 Update 2018-06-22 20:57:24 +00:00			`sub powerset {`
			`@{( reduce { [@$a, map([@$_, $b], @$a)] } [[]], @_ )}`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`}`