<<Universe-97/TimeNetworks.m
Select[Table[RandomSMW[2,5],{10000}],InterestingRuleQ]//Timing
{49.82Second,{{BBBBA,BABBA},{BBABBAB,ABAB},{ABAB,BBABBAB},{BAABBBA,BBA},{BABA,ABA},{BBAABAABB,AABBAAB},{ABA,BAAB},{BABA,ABBBAB},{AABABA,BABA},{ABBA,BABAABBA},{ABBB,BABABAAA},{AAABB,BBAA},{BAA,ABAB},{AABBB,BBAAAB},{AAAABB,BAABA},{BBBA,ABABB},{ABAABB,AAABA},{BBBBA,ABBBA},{BABBA,BBBABAA},{ABBB,BBBBBBAAB},{AAABBB,BAAAA},{AAAABB,BBA},{BBAA,ABBAB},{ABAAB,AAAAAABB},{ABABABAA,BBBABA}}}
Select[Table[RandomSMW[2,5],{100000}],InterestingRuleQ]//Timing
Select[Last[%278],SMWOverlapTest[#,"ABAAB",25]&]
{}
Select[Last[%279],SMWOverlapTest[#,"ABAAB",25]&]
{{BBABAAB,ABBA},{BBAA,ABABAAB},{AAAABBAA,BAAB},{ABBA,BBBAAB},{AABABBB,BABBAAA},{AABABB,BABABAA},{ABABAAB,BBBBA}}
MapIndexed[Show[LabelWrapper[SMWXGraphicsStreamed[SMWEvolveListX[#,"ABAAB",20]],BigFont[First[#2]]]]&,aty2];