Loop over multiple arrays simultaneously: Difference between revisions
Content deleted Content added
m →{{header|Tailspin}}: syntax update |
|||
Line 3,105: | Line 3,105: | ||
def z: [1, 2, 3]; |
def z: [1, 2, 3]; |
||
1..$x::length -> '$x($ |
1..$x::length -> '$x($);$y($);$z($); |
||
' -> !OUT::write |
' -> !OUT::write |
||
</lang> |
</lang> |
||
Line 3,117: | Line 3,117: | ||
<lang tailspin> |
<lang tailspin> |
||
templates transpose |
templates transpose |
||
def a: $ |
def a: $; |
||
def n: $ |
def n: $(1)::length; |
||
[ 1..$n -> $a(1..-1; $ |
[ 1..$n -> $a(1..-1; $) ] ! |
||
end transpose |
end transpose |
||
[$x, $y, $z] -> transpose... -> '$ |
[$x, $y, $z] -> transpose... -> '$...; |
||
' -> !OUT::write |
' -> !OUT::write |
||
</lang> |
</lang> |
||
Line 3,133: | Line 3,133: | ||
templates transpose2 |
templates transpose2 |
||
@: []; |
@: []; |
||
$ |
$... -> [i]( |
||
<?($i <..$@transpose2::length>)> ..|@transpose2($i): $ |
<?($i <..$@transpose2::length>)> ..|@transpose2($i): $; |
||
<> ..|@transpose2: [$ |
<> ..|@transpose2: [$];) -> !VOID |
||
$@ ! |
$@ ! |
||
end transpose2 |
end transpose2 |
||
[$x, $y, $z] -> transpose2... -> '$ |
[$x, $y, $z] -> transpose2... -> '$...; |
||
' -> !OUT::write |
' -> !OUT::write |
||
Line 3,145: | Line 3,145: | ||
' -> !OUT::write |
' -> !OUT::write |
||
[$u,$v,$w] -> transpose2... -> '$ |
[$u,$v,$w] -> transpose2... -> '$...; |
||
' -> !OUT::write |
' -> !OUT::write |
||
</lang> |
</lang> |