From a63cf8702c604482fc2465a238e19b5032212c9d Mon Sep 17 00:00:00 2001 From: Ulli Kehrle Date: Wed, 7 Nov 2018 15:37:40 +0100 Subject: Removed dead code --- subgroupladder.g | 8 +++----- 1 file 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; -- cgit v1.2.3-24-g4f1b