Anonymous user
One-dimensional cellular automata: Difference between revisions
→{{header|Euphoria}}
Line 646:
function rules(integer tri)
if tri = 3 or tri = 5 or tri = 6 then
return
else
return 0
Line 653:
function next_gen(atom gen)
atom new,
new = 0
mult = 1▼
new += rules(and_bits(gen,3)*2) -- work with the first bit separately
while gen > 0 do
new +=
gen = floor(gen/2) -- shift right
end while
return new
Line 676 ⟶ 679:
end function
atom gen, prev
integer n
|