HypergraphNeighborhoodVolumes=ResourceFunction["HypergraphNeighborhoodVolumes"];
HypergraphNeighborhoodVolumes
In[]:=
hyps=;
In[]:=
hyps=Map[Hash,hyps,{3}];
In[]:=
HypergraphPlot/@%
Out[]=
In[]:=
ParallelMapMonitored[HypergraphNeighborhoodVolumes,hyps]
Out[]=
In[]:=
Sort[Values[#]]&/@%
Out[]=
In[]:=
Hash/@%
Out[]=
{2212216835515813647,2212216835515813647,9031494639042857958,2212216835515813647,2212216835515813647,9031494639042857958,2212216835515813647,9031494639042857958,2212216835515813647,9031494639042857958,9031494639042857958,2212216835515813647,2212216835515813647,2212216835515813647,2212216835515813647,9031494639042857958,9031494639042857958,2212216835515813647,2212216835515813647,9031494639042857958,9031494639042857958,2212216835515813647,2212216835515813647,9031494639042857958,9031494639042857958,2212216835515813647,9031494639042857958,9031494639042857958,9031494639042857958,2212216835515813647,9031494639042857958,9031494639042857958}
In[]:=
Counts[%]
Out[]=
221221683551581364716,903149463904285795816