Quelle  6.7.2   Sprache: unbekannt

D:=[[1,[2,4]],[2,[3,3]],[3,[4,3]],[4,[5,0]],[5,[6,4], [7,4]]];;
R:=ResolutionArtinGroup(D,100);;
for n in [0..7] do
 Print("H^",n,"=",Cohomology(HomToIntegers(R),n),"\n");
od;

[ Dauer der Verarbeitung: 0.16 Sekunden  (vorverarbeitet)  ]