Untitled
unknown
plain_text
a year ago
394 B
6
Indexable
LoadPackage("smallgrp"); LoadPackage("digraphs"); for i in [1 .. NrSmallGroups(100)] do K := Range(MinimalFaithfulPermutationRepresentation(SmallGroup(100, i))); # Might not be deterministic N := NrMovedPoints(K); for j in [1 .. N] do for k in [j .. N] do D := EdgeOrbitsDigraph(K, [j, k]); Print(IsEdgeTransitive(D), "\n"); od; od; od;
Editor is loading...
Leave a Comment