RosettaCodeData/Task/Identity-matrix/Frink/identity-matrix.frink

3 lines
125 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
n = parseInt[input["Enter matrix dimension as an integer: "]]
println[formatMatrix[makeArray[[n, n], {|a,b| a==b ? 1 : 0}]]]