8 lines
158 B
Text
8 lines
158 B
Text
templates transpose
|
|
def a: $;
|
|
def n: $(1)::length;
|
|
[ 1..$n -> $a(1..last; $) ] !
|
|
end transpose
|
|
|
|
[$x, $y, $z] -> transpose... -> '$...;
|
|
' -> !OUT::write
|