diff options
| -rw-r--r-- | subgroupladder.g | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/subgroupladder.g b/subgroupladder.g index 748c1db..15e93cc 100644 --- a/subgroupladder.g +++ b/subgroupladder.g @@ -73,11 +73,14 @@ SubgroupLadder := function(G) output := []; + if (YoungGroupFromPartition(orb) <> G) then + output := [G]; + fi; + partition := List(orb, Length); mapping := List([1..n], x -> FindPos(orb, x)); ladder := [[List(partition), List(mapping)]]; - while (Length(partition) <> 1 or partition[1] < n) do if (Length(partition) = 1 and partition[1] < n) then mapping[Position(mapping, 0)] := 1; |