Jump to content

One-dimensional cellular automata: Difference between revisions

One-dimensional cellular automata (view source)

Revision as of 10:12, 18 October 2020

67 bytes removed ,  3 years ago
→‎{{header|Haskell}}: Minor tidying
(add FreeBASIC)
(→‎{{header|Haskell}}: Minor tidying)
Line 2,373:
 
bnd :: String -> Char
bnd bs"_##" = '#'
bnd "#_#_" ->= '#'▼
case bs of
bnd "_##_" ->= '#'
bnd "#_#" ->= '#_'
▲ "##_" -> '#'
_ -> '_'
 
donxtnxt :: String -> String
nxt = unfoldr go . ('_' :) . (<> "_")
donxt xs =
unfoldrwhere
go [_, _] ->= Nothing▼
(\xs ->
go xs = Just case(bnd $ take 3 xs, ofdrop 1 xs)
▲ [_, _] -> Nothing
_ -> Just (bnd $ take 3 xs, drop 1 xs)) $
'_' : xs ++ "_"
 
lahmahgaan :: String -> [String]
lahmahgaan xs =
init . until ((==) . last <*> (last . init)) ((++<>) <*> (return . donxtnxt . last)) $▼
init .
[xs, donxtnxt xs]▼
▲ until ((==) . last <*> (last . init)) ((++) <*> (return . donxt . last)) $
▲ [xs, donxt xs]
 
main :: IO ()
Hout
9,655

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/85101"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information