RosettaCodeData/Task/Matrix-transposition/Joy/matrix-transposition.joy

6 lines
115 B
Plaintext

DEFINE transpose == [[null] [true] [[null] some] ifte]
[pop []]
[[[first] map] [[rest] map] cleave]
[cons]
linrec.