In[]:=
MatrixOverlap[CellularAutomaton[30,{{1},0},25],CellularAutomaton[90,{{1},0},25]]
Out[]=
714
In[]:=
ArrayPlot[1-Abs[CellularAutomaton[30,{{1},0},10]-CellularAutomaton[90,{{1},0},10]]]
Out[]=
In[]:=
With[{g1=EvolutionaryMultiwayGraph[overlapFitness[118,10],​​DistanceFunction->Function[BinaryMutationDistance[#1,#2,"Symmetric"->False]]]},​​addVertexFigures[VertexOutComponentGraph[g1,Select[VertexList[g1],MemberQ[#,{0,23}]&]],​​Association[Thread[Catenate[VertexList[g1]]->10]],{2,1},AspectRatio->1,VertexSize->1/4,​​"VertexFigures"->1,PerformanceGoal->"Quality",EdgeStyle->Gray]​​]
Out[]=
In[]:=
With[{cut=15},With[{g1=EvolutionaryMultiwayGraph[overlapFitness[30,cut],​​DistanceFunction->Function[BinaryMutationDistance[#1,#2,"Symmetric"->False]]]},​​addVertexFigures[VertexOutComponentGraph[g1,Select[VertexList[g1],MemberQ[#,{0,23}]&]],​​Association[Thread[Catenate[VertexList[g1]]->cut]],{2,1},AspectRatio->1,VertexSize->1/4,​​"VertexFigures"->1,PerformanceGoal->"Quality",EdgeStyle->Gray]​​]]
Out[]=
In[]:=
With[{cut=5},With[{g1=EvolutionaryMultiwayGraph[overlapFitness[30,cut],​​DistanceFunction->Function[BinaryMutationDistance[#1,#2,"Symmetric"->False]]]},​​addVertexFigures[VertexOutComponentGraph[g1,Select[VertexList[g1],MemberQ[#,{0,23}]&]],​​Association[Thread[Catenate[VertexList[g1]]->cut]],{2,1},AspectRatio->1,VertexSize->1/4,​​"VertexFigures"->1,PerformanceGoal->"Quality",EdgeStyle->Gray]​​]]
Out[]=
In[]:=
With[{cut=20},With[{g1=EvolutionaryMultiwayGraph[overlapFitness[30,cut],​​DistanceFunction->Function[BinaryMutationDistance[#1,#2,"Symmetric"->False]]]},​​addVertexFigures[VertexOutComponentGraph[g1,Select[VertexList[g1],MemberQ[#,{0,23}]&]],​​Association[Thread[Catenate[VertexList[g1]]->cut]],{2,1},AspectRatio->1,VertexSize->1/4,​​"VertexFigures"->1,PerformanceGoal->"Quality",EdgeStyle->Gray]​​]]

Random Evolution