diff options
| author | Ulli Kehrle <ulli.kehrle@rwth-aachen.de> | 2018-11-07 15:37:40 +0100 |
|---|---|---|
| committer | Ulli Kehrle <ulli.kehrle@rwth-aachen.de> | 2018-11-07 15:37:40 +0100 |
| commit | a63cf8702c604482fc2465a238e19b5032212c9d (patch) | |
| tree | 3ec224d0c817c9a06fea75f585f87b1bce1ad480 | |
| parent | b945ae022a84a812bd7bdce86fd9b4a7020225b3 (diff) | |
| download | subgroup-ladders-a63cf8702c604482fc2465a238e19b5032212c9d.tar.gz subgroup-ladders-a63cf8702c604482fc2465a238e19b5032212c9d.tar.xz | |
Removed dead code
| -rw-r--r-- | subgroupladder.g | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/subgroupladder.g b/subgroupladder.g index f767794..1c26156 100644 --- a/subgroupladder.g +++ b/subgroupladder.g @@ -64,7 +64,7 @@ Subgroupladder := function(G) mapping, output, partition; - + if (not IsPermGroup(G)) then ErrorNoReturn("the argument must be a permutation group!\n"); @@ -87,7 +87,7 @@ Subgroupladder := function(G) mapping[Position(mapping, 0)] := 1; partition[1] := partition[1] + 1; Add(ladder, [List(partition, id), List(mapping, id)]); - else + else if (partition[2] = 1) then Remove(partition, 2); for i in [1..n] do @@ -97,7 +97,7 @@ Subgroupladder := function(G) od; partition[1] := partition[1] + 1; Add(ladder, [List(partition, id), List(mapping, id)]); - else + else mapping[Position(mapping, 2)] := Length(partition)+1; partition[2] := partition[2] - 1; Add(partition, 1); @@ -114,8 +114,6 @@ Subgroupladder := function(G) for pair in ladder do k := Length(pair[1]); mapping := pair[2]; - directfactors := []; - generators := []; Add(output, YoungGroupFromPartition(List([1..k], i -> Filtered([1..n], x -> i = mapping[x])))); od; |