In[]:=
ParallelEvaluate[1]
Out[]=
{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}
In[]:=
FindMinPathsX[ru_,init_,maxlen_]:=ResourceFunction["ParallelMapMonitored"][If[Head[#]===Failure,Infinity,Length[#]]&[FindStringReplacePath[ru,init,#]]&,Catenate[Table[ResourceFunction["StringTuples"]["AB",i],{i,maxlen}]]]
In[]:=
EnumerateRuleSignatures[3]
Out[]=
{{12}}
In[]:=
EnumerateRuleSignatures[6]
Out[]=
{{11,11,11},{11,22},{12,12},{22,11},{33},{11,13},{13,11},{24},{15}}
In[]:=
EnumerateRuleSignatures[7,1]
Out[]=
{{12,22},{22,12},{11,11,12},{11,12,11},{12,11,11},{11,23},{12,13},{13,12},{23,11},{11,14},{14,11},{16}}
In[]:=
#->FindMinPaths[#,"A",5]&/@ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]
Out[]=
{{AAA}{∞,∞,2,∞,∞,∞,3,∞,∞,∞,∞,∞,∞,∞,4,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,5,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞},{AAB}{∞,∞,∞,2,∞,∞,∞,∞,∞,3,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,4,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,5,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞},{ABB}{∞,∞,∞,∞,∞,2,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞}}
In[]:=
Directory[]
Out[]=
/Users/sw
In[]:=
SetDirectory["/Users/sw/Dropbox/Physics/Data/Metamathematics/ProofLengths"]
Out[]=
/Users/sw/Dropbox/Physics/Data/Metamathematics/ProofLengths
In[]:=
doall[n_]:=Export["A-"<>ToString[n]<>".wxf",((#->FindMinPathsX[#,"A",5])&/@ResourceFunction["EnumerateSubstitutionSystemRules"][#,2])&/@EnumerateRuleSignatures[n,1]]
In[]:=
doall[1]
Out[]=
A-1.wxf
In[]:=
doall[3]
Out[]=
A-3.wxf
In[]:=
Now
Out[]=
In[]:=
doall[4]
Out[]=
A-4.wxf
In[]:=
Now
Out[]=
In[]:=
doall[5]
Out[]=
A-5.wxf
In[]:=
Now
Out[]=
In[]:=
doall[6]
Out[]=
A-6.wxf
In[]:=
Now
Out[]=
In[]:=
doall[7]
Out[]=
A-7.wxf
In[]:=
Now
Out[]=
In[]:=
doall[8]
[[[ overnight run timed out ]]]
Now
doall[9]
Now
In[]:=
EnumerateRuleSignatures[9]
Out[]=
{{11,12,22},{11,22,12},{12,11,22},{12,12,12},{12,22,11},{22,11,12},{22,12,11},{11,11,11,12},{11,11,12,11},{11,12,11,11},{12,11,11,11},{12,33},{13,23},{22,23},{23,13},{23,22},{33,12},{11,11,23},{11,12,13},{11,13,12},{11,23,11},{12,11,13},{12,13,11},{13,11,12},{13,12,11},{23,11,11},{11,34},{12,24},{13,14},{14,13},{14,22},{22,14},{24,12},{34,11},{11,11,14},{11,14,11},{14,11,11},{45},{11,25},{12,15},{15,12},{25,11},{36},{11,16},{16,11},{27},{18}}
doallABB[n_]:=Export["ABB-"<>ToString[n]<>".wxf",((#->FindMinPathsX[#,"ABB",5])&/@ResourceFunction["EnumerateSubstitutionSystemRules"][#,2])&/@EnumerateRuleSignatures[n,3]]
doallABB[1]
Out[]=
A-1.wxf
doallABB[3]
In[]:=
Now
Out[]=
doallABB[4]
Out[]=
4.wxf
In[]:=
Now
Out[]=
doallABB[5]
Now
doallABB[6]
Now
doallABB[7]
Now
doallABB[8]
Now
doallABB[9]
Now