30分プログラ
30分プログラム、その70。 StateモナドとContinuationモナドを勉強しよう。 import Control.Monad.State import Control.Monad.Cont randomUpdate :: Int->Int->Int->(Int,Int) randomUpdate p q a = let value = a*p+q in (value,value `mod` 1000) random …
30分プログラム、その70。 StateモナドとContinuationモナドを勉強しよう。 import Control.Monad.State import Control.Monad.Cont randomUpdate :: Int->Int->Int->(Int,Int) randomUpdate p q a = let value = a*p+q in (value,value `mod` 1000) random …
