Summer 2026
Topics in Geometry
Units |
Appendices |
Code
This is a 1-liner that I had submitted to the WTC2023 competition. It computes the simplex generating function of an arbitrary graph using the Gauss-Bonnet theorem (134 bytes):
f[s_,x_]:=Module[{v=VertexList[s]},n=Length[v];1+Integrate[Sum[w=v[[k]];
f[VertexDelete[NeighborhoodGraph[s,w],w],t],{k,n}],{t,0,x}]];
f[RandomGraph[{100,1000}],x]