13 lines
265 B
Text
13 lines
265 B
Text
[ ' [ [ ] ]
|
|
over 0 peek size of
|
|
[] rot
|
|
witheach join
|
|
witheach
|
|
[ dip behead
|
|
nested join
|
|
nested join ] ] is transpose ( [ --> [ )
|
|
|
|
' [ [ 1 2 ] [ 3 4 ] [ 5 6 ] ]
|
|
dup echo cr cr
|
|
transpose dup echo cr cr
|
|
transpose echo cr
|