{"body":"use Test;\n\n#| reverse the zip operation\nsub reverse-zip(@list-of-tuples) {\n     [Z] @list-of-tuples\n}\n\nmy List $l1 = (1, 2, 3);\nmy List $l2 = <a b c>;\nmy List() $input = zip @$l1, @$l2;\nmy List $expected = ($l1, $l2);\n\n# we need to convert all elements of @expected-output to lists\n# otherwise we get an error\nis-deeply reverse-zip($input), $expected;\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/UQlobysz","modified":1755186904,"id":"UQlobysz","size":352,"lines":15,"own_paste":false,"theme":"","date":1755186904}