fixed bug pointed out by LarsLouder

gap-packages · Jun 24, 2021 · d645965 · d645965 · ManuelAFDelgado · Jun 24, 2021
1 parent 6594ac0
commit d645965
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/gap/foldings.gi b/gap/foldings.gi
@@ -178,12 +178,14 @@ InstallGlobalFunction(FlowerAutomaton, function(L)
                 AddSet(T[p][q], q-1);
             fi;
         od;
-        p := Position(alph, g[Length(g)]);
-        if p <= n then
-            AddSet(T[p][q],1);
-        else
-            p := p - n;
-            AddSet(T[p][1], q);
+        if Length(g) > 1 then
+            p := Position(alph, g[Length(g)]);
+            if p <= n then
+                AddSet(T[p][q],1);
+            else
+                p := p - n;
+                AddSet(T[p][1], q);
+            fi;
         fi;
     od;