Pensieve header: Figuring out up-down relations.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2020-03\\OU"];
<< CountVPB.m

Print@Timing@CountVPB[3,{4,4}]; er344=$er;

Print@Timing@CountVPB[3,{4,5}]; er345=$er;

Print@Timing@CountVPB[3,{4,6}]; er346=$er;

Take[er344,32]

Take[er346,32]

FirstPosition[False][MapThread[Equal, {er344, Take[er346, Length@er344]}]]

{er344[[9520]], er346[[9520]]}

{EROPeek[er344,9520], EROPeek[er346,9520]}

VPB[3,#]& /@ {2656,2227,9520}

FirstPosition[True][MapThread[(#1==0∧#2>0)&, {er344, Take[er346, Length@er344]}]]

Count[er344,0]

Count[Take[er346, Length@er344],0]

{EROPeek[er344,12746], EROPeek[er346,12746]}

VPB[3,#]& /@ {12746,4113}