数据结构
年/=
空的 ==>x*y+x*z+y*z==x*y+y*z
路径 xs==(
集团 xs::TransitiveRelation Int)
显示(1*2::TransitiveRelation Int)==“边1 2” show(1*2+2*3::TransitiveRelation Int)==“边[(1,2),(1,3),(2,3)]”
年/=
空的 ==>x*y+x*z+y*z==x*y+y*z
路径 xs==(
集团 xs::TransitiveRelation Int)
显示(1*2::TransitiveRelation Int)==“边1 2” show(1*2+2*3::TransitiveRelation Int)==“边[(1,2),(1,3),(2,3)]”