9 lines
158 B
Text
9 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
|