Transposing-List-Of-Tuples

use Test;

#| reverse the zip operation
sub reverse-zip(@list-of-tuples) {
     [Z] @list-of-tuples
}

my @l1 = 1, 2, 3;
my @l2 = <a b c>;
my @input = zip @l1, @l2;
my @expected-output = @l1, @l2;

# we need to convert all elements of @expected-output to lists
# otherwise we get an error
is-deeply reverse-zip(@input), @expected-output;
is-deeply reverse-zip(@input), @expected-output».List;