Untitled

 avatar
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