11 lines
164 B
Text
11 lines
164 B
Text
|
|
function zip3 ($a1, $a2, $a3)
|
||
|
|
{
|
||
|
|
while ($a1)
|
||
|
|
{
|
||
|
|
$x, $a1 = $a1
|
||
|
|
$y, $a2 = $a2
|
||
|
|
$z, $a3 = $a3
|
||
|
|
[Tuple]::Create($x, $y, $z)
|
||
|
|
}
|
||
|
|
}
|