Rosetta Code

One-dimensional cellular automata: Difference between revisions

Page Discussion

One-dimensional cellular automata (view source)

Revision as of 18:49, 9 October 2019

37 bytes removed ,  4 years ago
m
→‎{{header|Haskell}}
(Add rust's)
Line 2,322:
=={{header|Haskell}}==
<lang haskell>import System.Random (newStdGen, randomRs)
import Control.Applicative (liftA2)
import Data.List (unfoldr)
 
Line 2,345 ⟶ 2,344:
lahmahgaan xs =
init .
until (liftA2 (==) . last <*> (last . init)) ((++) <*> (return . donxt . last)) $
[xs, donxt xs]
 
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/85095"