From BradK:
From BradK:
In[]:=
PairMating[rule1_,rule2_,genome_]:=With[{rep1=Union[Join[MapThread[Rule,{Tuples[{1,0},3],IntegerDigits[rule1,2,8]}],MapThread[Rule,2{Tuples[{1,0},3],IntegerDigits[rule2,2,8]}]]]},FromDigits[Tuples[Reverse@Range[0,2],{3}]/.MapThread[#1->(#1/.Part[{1->2,2->1},#2+1]/.rep1)&,{Tuples[Reverse@Range[0,2],{3}],IntegerDigits[genome,2,27]}],3]];
In[]:=
PairMating[110,6,#]&/@RandomInteger[{0,2^27-1},50]
Out[]=
{11623385517,11623215741,297553293978,287078760615,15123808617,296391203337,10461130626,282443955036,1176672651,15124460262,1176611883,296377391058,296376677850,294052212021,294067216248,287079182391,297539116638,285931439259,13962198891,285916855641,15123987465,297553521432,15109643415,282430071201,297553824285,296376674880,296391089463,4649056464,11637498954,4663933908,10461069201,296391030333,282429720960,10474703205,14409462,287092941582,287093463819,282444122463,296391800904,294052920528,283606392921,15109938123,294052160697,285916390449,297554060436,1177204638,14883549,294052397214,282444595080,296391741825}
In[]:=
ResourceFunction["InteractiveListSelector"][ArrayPlot[CellularAutomaton[{#,3},SeedRandom[24142];RandomInteger[2,400],300],Frame->False,ColorRules->{0->White,1->Blue,2->Red},PixelConstrained1]->#&/@(PairMating[110,6,#]&/@RandomInteger[{0,2^27-1},20])]
Out[]=