Rok1 https://blog.hatena.ne.jp/Rok1/ Rokiのチラ裏 https://roki.hateblo.jp/ algorithm haskell M系列に関する学習メモ*1。 import Test.HUnit import System.IO mulcon :: Int -> Int mulcon 0 = 1 mulcon n = (a * mulcon(n - 1) + b) `mod` m where a = 3 b = 0 m = 7 mc :: [Int] -> [Int] mc = map mulcon main :: IO (Counts, Int) main = runTestText (putTextToHandle stderr False) tests where x = mc [0 .. 11] tests = … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Froki.hateblo.jp%2Fentry%2F2018%2F01%2F26%2Fmaximal_length_sequence" title="maximal length sequence - Rokiのチラ裏" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://chart.apis.google.com/chart?cht=tx&chl=%20%5Cbigoplus Hatena Blog https://hatena.blog 2018-01-27 01:30:00 rich https://roki.hateblo.jp/entry/2018/01/26/maximal_length_sequence 1.0 100%