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