RosettaCodeData/Task/Identity-matrix/F-Sharp/identity-matrix-1.fs
2023-07-01 13:44:08 -04:00

1 line
67 B
FSharp

let ident n = Array2D.init n n (fun i j -> if i = j then 1 else 0)