From d69831d2cb03c2e6157f75a50417c00549539401 Mon Sep 17 00:00:00 2001 From: Thorn Avery Date: Sun, 18 Apr 2021 14:15:04 +1200 Subject: [PATCH] added examples of other transition functions --- README.md | 88 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ src/Main.hs | 22 ++++++++++++++-- 2 files changed, 108 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index 1585045..96db4c4 100644 --- a/README.md +++ b/README.md @@ -101,3 +101,91 @@ as such, the functions to change our focus within the space assumes an infinite ██ █ █ ███ █ ███ █ █ ███ █ ███ █ █ █ █ ██ █ █ █ █ ██ █ █ █ ██ ``` + +example using `rule3` and a non-random starting position: + +`./cellularAutomata -w 80 -g 80` + +``` + █ + ███ + █ █ █ + ██ █ ██ + █ █ █ + ███ ███ ███ + █ █ █ █ █ + ██ ██ ███ ██ ██ + █ █ █ + ███ ███ ███ + █ █ █ █ █ █ █ █ █ + ██ █ ██ ██ █ ██ ██ █ ██ + █ █ █ █ █ + ███ ███ ███ ███ ███ + █ █ █ █ █ █ █ █ █ █ █ + ██ ██ ██ ██ ██ █ ██ ██ ██ ██ ██ + █ █ █ + ███ ███ ███ + █ █ █ █ █ █ █ █ █ + ██ █ ██ ██ █ ██ ██ █ ██ + █ █ █ █ █ █ █ █ █ + ███ ███ ███ ███ ███ ███ ███ ███ ███ + █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ + ██ ██ ███ ██ ██ ██ ██ ███ ██ ██ ██ ██ ███ ██ ██ + █ █ █ █ █ + ███ ███ ███ ███ ███ + █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ + ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ + █ █ █ █ █ █ █ █ █ █ █ + ███ ███ ███ ███ ███ ███ ███ ███ ███ ███ ███ + █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ + ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ███ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ + █ █ █ + ███ ███ ███ + █ █ █ █ █ █ █ █ █ + ██ █ ██ ██ █ ██ ██ █ ██ + █ █ █ █ █ █ █ █ █ + ███ ███ ███ ███ ███ ███ ███ ███ ███ + █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ +██ ██ ███ ██ ██ ██ ██ ███ ██ ██ ██ ██ ███ ██ ██ + █ █ █ █ █ █ █ █ +█ ███ ███ ███ ███ ███ ███ ███ ██ + █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ + ██ ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ ██ █ + █ █ █ █ █ █ █ █ █ █ █ █ +█ ███ ███ ███ ███ ███ ███ ███ ███ ███ ███ ███ ██ + █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ + ██ ██ █ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ █ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ █ ██ ██ █ + █ █ █ + ███ ███ ███ + █ █ █ █ █ █ █ █ █ + ██ █ ██ ██ █ ██ ██ █ ██ + █ █ █ █ █ █ █ █ █ + ███ ███ ███ ███ ███ ███ ███ ███ ███ + █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ +██ ██ ███ ██ ██ ██ ██ ███ ██ ██ ██ ██ ███ ██ ██ + █ █ █ █ █ █ █ + ███ ███ ███ ███ ███ ███ ███ + █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ + ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ ██ █ ██ + █ █ █ █ █ █ █ █ █ █ █ █ █ + ███ ███ ███ ███ ███ ███ ███ ███ ███ ███ ███ ███ ███ + █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ +██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ █ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ + █ + ███ + █ █ █ + ██ █ ██ + █ █ █ + ███ ███ ███ + █ █ █ █ █ + ██ ██ ███ ██ ██ + █ █ █ + ███ ███ ███ + █ █ █ █ █ █ █ █ █ + ██ █ ██ ██ █ ██ ██ █ ██ + █ █ █ █ █ + ███ ███ ███ ███ ███ + █ █ █ █ █ █ █ █ █ █ █ + ██ ██ ██ ██ ██ █ ██ ██ ██ ██ ██ + █ █ █ +``` diff --git a/src/Main.hs b/src/Main.hs index 7d4ad1c..87e3fb9 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -97,6 +97,22 @@ rule (Space (l:_) _ (r:_)) | l == r = Dead | otherwise = Alive +-- a second rule for example +rule2 :: Space CellState -> CellState +rule2 (Space (l1:l2:_) m (r1:r2:_)) + | m == Alive && numAlive == 1 = Dead + | m == Alive && numAlive == 4 = Dead + | m == Dead && numAlive == 3 = Alive + | otherwise = m + where + ns = [l1, l2, r1, r2] + numAlive = length $ filter (== Alive) ns + +rule3 :: Space CellState -> CellState +rule3 (Space (l:_) m (r:_)) + | l == r = m + | otherwise = if m == Alive then Dead else Alive + -- take a space and a rule and -- return the next space step :: (Space t -> t) -> Space t -> Space t @@ -177,7 +193,7 @@ runAutomata :: Space CellState -> Int -> Int -> IO () runAutomata s 0 w = putStrLn $ concat $ map show $ boundw w s runAutomata s n w = do putStrLn $ concat $ map show $ boundw w s - runAutomata (step rule s) (n - 1) w + runAutomata (step rule3 s) (n - 1) w main :: IO () main = do @@ -190,5 +206,7 @@ main = do let m = head cs let l = take wh $ drop 1 cs let r = take wh $ drop wh $ drop 1 cs - let s = Space (l ++ (repeat Dead)) m (r ++ (repeat Dead)) + --let s = Space (l ++ (repeat Dead)) m (r ++ (repeat Dead)) + -- non-random starting position for rule3 (the serpinski triangle) + let s = Space (repeat Dead) Alive (repeat Dead) runAutomata s h w