5 lines
115 B
Text
5 lines
115 B
Text
DEFINE transpose == [[null] [true] [[null] some] ifte]
|
|
[pop []]
|
|
[[[first] map] [[rest] map] cleave]
|
|
[cons]
|
|
linrec.
|