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