# Talk:One-dimensional cellular automata

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Latest comment: 7 years ago by Poulteki

I propose a different script to achieve this goal as :

```#!/usr/local/bin/gawk -f

# User defined functions
function ASCII_to_Binary(str_) {
gsub("_","0",str_); gsub("@","1",str_)
return str_
}

function Binary_to_ASCII(bit_) {
gsub("0","_",bit_); gsub("1","@",bit_)
return bit_
}

function automate(b1,b2,b3) {
a = and(b1,b2,b3)
b = or(b1,b2,b3)
c = xor(b1,b2,b3)
d = a + b + c
return d == 1 ? 1 : 0
}

# For each line in input do
{
str_=\$0
gen=0
taille=length(str_)
print "0: " str_
do {
gen ? str_previous=str_ : str_previous=""
gen=gen + 1
str_=ASCII_to_Binary(str_)
split(str_,tab,"")
str_=and(tab[1],tab[2])
for (i=1; i<=taille-2; i++) {
str_ = str_ automate(tab[i],tab[i+1],tab[i+2])
}
str_ = str_ and(tab[taille-1],tab[taille])
print gen ": " Binary_to_ASCII(str_)
} while (str_ != str_previous)
}

Then :
\$ echo ".@@@.@@.@.@.@.@..@.." | awk -f automata.awk
0: .@@@.@@.@.@.@.@..@..
1: _@_@@@@@_@_@_@______
2: __@@___@@_@_@_______
3: __@@___@@@_@________
4: __@@___@_@@_________
5: __@@____@@@_________
6: __@@____@_@_________
7: __@@_____@__________
8: __@@________________
9: __@@________________
```
Please sign your posts and try and fix formatting issues, thanks. --Paddy3118 (talk) 18:41, 17 January 2015 (UTC)