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