nobsun様のGitHubの内容を参照させていただき、自分なりにPack構文への対応(Ex. 3.35)と真理値の変更(Ex. 3.37)を行ってみました。
nobsun様、ありがとうございました。その後、Ex. 3.38 を進めようとしています。
nobsun様、ありがとうございました。その後、Ex. 3.38 を進めようとしています。
import Data.Array coins = [43, 14, 1] -- 硬貨が 43円硬貨、14円硬貨、1円硬貨の 3種類として n = 99 -- 99円を払う main = print $ as ! n -- => 結果 5枚（43円硬貨 1枚、14円硬貨 4枚） as = array (0, n) ((0, 0) : [(i, 1 + minimum [as ! (i - j) | j <- coins, j <= i]) | i <- [1 .. n]])
! をつけまくってました！！！！！！