RosettaCodeData/Task/Identity-matrix/Quackery/identity-matrix.quackery
2023-07-01 13:44:08 -04:00

5 lines
113 B
Text

[ [] swap times
[ 0 i^ of 1 join 0 i of
join nested join ] ] is identity ( n --> [ )
5 identity echo