MWEvolve[rule_,init_,t_]:=Nest[MWStep[rule,#]&,init,t]
MWEvolveSS[rule_,init_,t_,max_:300]:=Catch[Nest[If[Length[#]>max,Throw[#],MWStep[rule,#]]&,init,t]]
Show[GraphicsRow[RPadGraphics[Sort[FromChars/@Last[MWEvolveList[#1,{#2},10]]]]&@@@{{{"A""AB","B""A"},"A"},{{"B""AA","B""BB"},"B"}}]];
Show[GraphicsRow[RPadGraphics[Sort[FromChars/@Last[MWEvolveList[#1,{#2},200]]]]&@@@{{{"ABA""BBAA","BAA""AAB"},"BABBAAB"},{{"AA""BABBBBA","BAB""A"},"ABAAB"}}]];
Show[RPadGraphics[Sort[FromChars/@Last[MWEvolveList[{"BAB""A","BAAA""B","BAAB""BABBBAA"},{"BAABBBA"},300]]]]];
Show[RPadGraphics[Sort[FromChars/@Last[MWEvolveList[{"BA"->"AAA","BA"->"BBBB","BAAAA"->""},{"BBBBAAAA"},50]]]]];
The following is used in Chapter 12:
Show[RPadGraphics[Sort[FromChars/@Last[MWEvolveList[{"BBA""BAAA","BAAAAA""BBBB","BAAAAA"""},{"BBBAAA"},200]]]]];
RPadGraphics[Sort[FromChars/@Last[MWEvolveList[#1,{"BABBA"},8]]]]
Show[RPadGraphics[Sort[FromChars/@MWEvolve[{"B""BA","AAA""AA"},{"BABBA"},8]]]];
Show[RPadGraphics[Sort[FromChars/@MWEvolve[{"BA""ABBB","BBBB""A"},{"BABBA"},8]]]];
Show[RPadGraphics[Sort[FromChars/@MWEvolve[{"BA""ABBB","BBBB""A"},{"BABBA"},10]]]];
