ParallelEvaluate[1]
In[]:=
{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}
Out[]=
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]
In[]:=
{{12}}
Out[]=
EnumerateRuleSignatures[6]
In[]:=
{{11,11,11},{11,22},{12,12},{22,11},{33},{11,13},{13,11},{24},{15}}
Out[]=
EnumerateRuleSignatures[7,1]
In[]:=
{{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}}
Out[]=
#->FindMinPaths[#,"A",5]&/@ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]
In[]:=
{{AAA}{∞,∞,2,∞,∞,∞,3,∞,∞,∞,∞,∞,∞,∞,4,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,5,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞},{AAB}{∞,∞,∞,2,∞,∞,∞,∞,∞,3,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,4,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,5,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞},{ABB}{∞,∞,∞,∞,∞,2,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞}}
Out[]=
Directory[]
In[]:=
/Users/sw
Out[]=
SetDirectory["/Users/sw/Dropbox/Physics/Data/Metamathematics/ProofLengths"]
In[]:=
/Users/sw/Dropbox/Physics/Data/Metamathematics/ProofLengths
Out[]=
doall[n_]:=Export["A-"<>ToString[n]<>".wxf",((#->FindMinPathsX[#,"A",5])&/@ResourceFunction["EnumerateSubstitutionSystemRules"][#,2])&/@EnumerateRuleSignatures[n,1]]
In[]:=
doall[1]
In[]:=
A-1.wxf
Out[]=
doall[3]
In[]:=
A-3.wxf
Out[]=
Now
In[]:=
Out[]=
doall[4]
In[]:=
A-4.wxf
Out[]=
Now
In[]:=
Out[]=
doall[5]
In[]:=
A-5.wxf
Out[]=
Now
In[]:=
Out[]=
doall[6]
In[]:=
A-6.wxf
Out[]=
Now
In[]:=
Out[]=
doall[7]
In[]:=
A-7.wxf
Out[]=
Now
In[]:=
Out[]=
doall[8]
In[]:=
[[[ overnight run timed out ]]]
Now
doall[9]
Now
EnumerateRuleSignatures[9]
In[]:=
{{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}}
Out[]=
doallABB[n_]:=Export["ABB-"<>ToString[n]<>".wxf",((#->FindMinPathsX[#,"ABB",5])&/@ResourceFunction["EnumerateSubstitutionSystemRules"][#,2])&/@EnumerateRuleSignatures[n,3]]
doallABB[1]
A-1.wxf
Out[]=
doallABB[3]
Now
In[]:=
Out[]=
doallABB[4]
4.wxf
Out[]=
Now
In[]:=
Out[]=
doallABB[5]
Now
doallABB[6]
Now
doallABB[7]
Now
doallABB[8]
Now
doallABB[9]
Now