From 6fd89c5a61943afe42c4ff4ac9493fd6f48a2f66 Mon Sep 17 00:00:00 2001
From: kalmarek <kalmar@amu.edu.pl>
Date: Thu, 12 Mar 2020 18:35:53 -0500
Subject: [PATCH] tweak the reduce! constant

---
 src/AutGroup.jl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/AutGroup.jl b/src/AutGroup.jl
index 939b837..f8caac3 100644
--- a/src/AutGroup.jl
+++ b/src/AutGroup.jl
@@ -225,7 +225,9 @@ end
 function (F::Automorphism{N})(v::NTuple{N, T}) where {N, T}
     for (i, f) in enumerate(F.symbols)
         v = f(v)::NTuple{N, T}
-        i % 5 == 0 && reduce!.(v)
+        if i % 2 == 0
+            freereduce!.(v)
+        end
     end
     return v
 end