rule30 Haskell

rule30

codewars上挺好玩的一道题，可以用来生成随机数,
规则：好气喔markdown表格反人类，给个wiki吧

　wiki的解释

　下图为迭代过程！

题目在这里！
codewars haskell rule30

　

code x = [x!!(i-1)*4+x!!i*2+x!!(i+1)|i<-[1..(length x-2)]]
extend t = 0:t++[0]

ite :: [Int] ->[Int]
ite cells = map (\x-> if x>0&&x<5 then 1 else 0) (code $ extend $ extend cells)

rule30 :: [Int] -> Int -> [Int]
rule30 cells n  
       | n<=0 = cells
       | otherwise = rule30 (ite $ map (\x->if x/=1 then 0 else 1) cells) (n-1)