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

2 lines
125 B
Text

n = parseInt[input["Enter matrix dimension as an integer: "]]
println[formatMatrix[makeArray[[n, n], {|a,b| a==b ? 1 : 0}]]]