One-dimensional cellular automata: Difference between revisions

One-dimensional cellular automata (view source)

Revision as of 22:15, 28 November 2020

170 bytes added , 3 years ago

Updated to compile with Nim 1.4. Changed indentation and identifiers to conform to guidelines. Added missing call to procedure.

Anonymous user

rosettacode>Lscrd

Revision as of 22:02, 28 November 2020 (view source) rosettacode>Lscrd (Updated to compile with Nim 1.4: replaced "repeatChar" by "repeat" from module "strutils".) ← Older edit		Revision as of 22:15, 28 November 2020 (view source) rosettacode>Lscrd (Updated to compile with Nim 1.4. Changed indentation and identifiers to conform to guidelines. Added missing call to procedure.) Newer edit →
Line 3,320: '''Using nested functions and method calling style:''' <lang Nim>proc cellAutomata = ~~<pre>~~ proc ~~evolve_into~~evolveInto(Xx, Tt : var string) =▼ ~~proc cell_automata =~~ for i in Xx.low..Xx.high:▼ ▲ proc evolve_into(X, T : var string) = let ▲ for i in X.low..X.high: alive = x[i] == ~~let~~ 'o' left = if i == x.low: ~~alive~~false =else: Xx[i - 1] == 'o' ~~left~~ right = if i == Xx.~~low~~high: false else: Xx[i -+ 1] == 'o' t[i] = ~~right = if i == X.high: false else: X[i + 1] == 'o'~~ if alive: (if left ~~T[i]~~xor =right: 'o' else: '.') else: ~~if alive:~~ (if left ~~xor~~and right: 'o' else: '.') ~~else: if left and right: 'o' else: '.'~~ var Xx = ".ooo.oo.o.o.o.o..o.." Tt = Xx for i in 1..10: Xx.echo Xx.~~evolve_into~~evolveInto Tt swap t, ~~T.swap X~~x </pre>▼ cellAutomata() ▲</~~pre~~lang> {{out}} <pre>.ooo.oo.o.o.o.o..o.. .o.ooooo.o.o.o...... ..oo...oo.o.o....... ..oo...ooo.o........ ..oo...o.oo......... ..oo....ooo......... ..oo....o.o......... ..oo.....o.......... ..oo................ ..oo................</pre> =={{header\|OCaml}}==