関数型プログラミング言語Haskell Part33

[743 デフォルトの名無しさん 2021/02/16(火) 15:27:24.80 ID:twhDC3NA]

xs <- mapM (\j -> cdRecursiveTD (i - j) stArr) [1 .. 2]
writeArray stArr i ((i - 1) * sum xs)
これでよくないですかー？