wvogel00 https://blog.hatena.ne.jp/wvogel00/ wvogel日記 https://wvogel00.hatenadiary.org/ Haskell ttp://judge.u-aizu.ac.jp/onlinejudge/description.jsp?id=0502 にある問題。 本来は、連続して入力を受け付けるのですが、それは愛嬌。リストだけでも解けるけれど、Stateモナドの練習がてら。 import Control.Monad.State type PlayState = ([Int],Int) type DiceSum = Int start = ([1,2,3,4,5,6],1) main = do n <- getLine cs <-getContents print $ evalState (dice.take (read… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwvogel00.hatenadiary.org%2Fentry%2F20110905%2F1315212552" title="AOJ try!(3) - wvogel日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-09-05 17:49:12 rich https://wvogel00.hatenadiary.org/entry/20110905/1315212552 1.0 100%