RosettaCodeData/Task/Identity-matrix/Standard-ML/identity-matrix.ml

 val eye= fn n => List.tabulate( n, fn i => List.tabulate( n, fn j=> if j=i then 1.0 else 0.0));