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

6 lines
204 B
Plaintext

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