<div>initIdentityMat :: Int -&gt; ST s (STUArray s (Int,Int) ((Int, Int), Double))</div><div>initIdentityMat m = newListArray ((1,m),(1,m)) ([((i,j), if i == j then 1.0 else 0.0) | i &lt;- [1..m], j &lt;- [1..m]] :: [((Int,Int), Double)])</div>
<div><br></div><div>Doesn&#39;t seem to compile, nor do minor variations of the type declaration.</div><div><br></div>-- <br>--<br>Regards,<br>KC<br>