Все подмножества списка в Perl 6

Question

Интересно (помня, что в Perl 6 есть все, что вы могли пожелать), есть ли какие-то встроенные инструменты, которые могут помочь создать все непустые подмножества (порядок не имеет значения) списка.

Например, у меня есть список:

my @a = 1, 2, 3;

Мне нужна функция f, чтобы f(@a) выдавал:

((1), (2), (3), (1, 2), (1, 3), (2, 3), (1, 2, 3))

Answer 1

@a.combinations(1..*)

вернет Seq, который вы ищете. Обратите внимание, что без аргумента пустой список будет создан как первый элемент.