RosettaCodeData/Task/Identity-matrix/Jq/identity-matrix-1.jq
2017-09-25 22:28:19 +02:00

3 lines
105 B
Text

def identity(n):
[range(0;n) | 0] as $row
| reduce range(0;n) as $i ([]; . + [ $row | .[$i] = 1 ] );