One-dimensional cellular automata: Difference between revisions

Content added Content deleted
m (→‎{{header|Ring}}: Remove vanity tags)
Line 880: Line 880:


=={{header|Ceylon}}==
=={{header|Ceylon}}==
<lang ceylon>shared void run() {
<lang ceylon>shared abstract class Cell(character) of alive | dead {
shared Character character;
string => character.string;
shared formal Cell opposite;
}

shared object alive extends Cell('#') {
opposite => dead;
}
shared object dead extends Cell('_') {
opposite => alive;
}

shared Map<Character, Cell> cellsByCharacter = map { for (cell in `Cell`.caseValues) cell.character->cell };

shared class Automata1D({Cell*} initialCells) {
value permanentFirstCell = initialCells.first else dead;
value permanentLastCell = initialCells.last else dead;
value cells = Array { *initialCells.rest.exceptLast };
shared Boolean evolve() {
class Automata1D<Cell>({Cell*} data, Cell alive, Cell dead)
given Cell satisfies Object {
value newCells = Array {
assert(data.every((Cell element) => element == alive || element == dead));
for (index->cell in cells.indexed)
let (left = cells[index - 1] else permanentFirstCell,
right = cells[index + 1] else permanentLastCell,
neighbours = [left, right],
bothAlive = neighbours.every(alive.equals),
bothDead = neighbours.every(dead.equals))
if (bothAlive)
then cell.opposite
else if (cell == alive && bothDead)
then dead
else cell
};
if (newCells == cells) {
value imaginaryFirstCell = data.first else dead;
return false;
value imaginaryLastCell = data.last else dead;

value cells = Array {*data.rest.exceptLast};
function isAlive(Cell c) => c == alive;
function flipped(Cell c) => c == alive then dead else alive;
shared Boolean evolve() {
value buffer = Array {
*cells.indexed.map((Integer->Cell element) {
value index->cell = element;
value left = cells[index - 1] else imaginaryFirstCell;
value right = cells[index + 1] else imaginaryLastCell;
if(isAlive(left) && isAlive(right)) {
return flipped(cell);
}
if(isAlive(cell) && !isAlive(left) && !isAlive(right)) {
return dead;
}
return cell;
}
)};
value changed = buffer != cells;
buffer.copyTo(cells);
return changed;
}
}
newCells.copyTo(cells);
string => imaginaryFirstCell.string + "".join(cells) + imaginaryLastCell.string;
return true;
}
}
string => permanentFirstCell.string + "".join(cells) + permanentLastCell.string;
}


shared Automata1D? automata1d(String string) =>
value automata = Automata1D("_###_##_#_#_#_#__#__", '#', '_');
let (cells = string.map((Character element) => cellsByCharacter[element]))
if (cells.every((Cell? element) => element exists))
then Automata1D(cells.coalesced)
else null;

shared void run() {

assert (exists automata = automata1d("__###__##_#_##_###__######_###_#####_#__##_____#_#_#######__"));
variable value generation = 0;
variable value generation = 0;
print("generation ``generation`` ``automata``");
print("generation ``generation`` ``automata``");
while(automata.evolve() && generation < 10) {
while (automata.evolve() && generation<10) {
print("generation ``++generation`` ``automata``");
print("generation `` ++generation `` ``automata``");
}
}
}</lang>
}</lang>