From 38fbed7f76de0e44f64369915cfc48084648e102 Mon Sep 17 00:00:00 2001
From: kalmarek <kalmar@amu.edu.pl>
Date: Wed, 7 Oct 2020 02:39:00 +0200
Subject: [PATCH] improvements in freereduce

---
 src/freereduce.jl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/freereduce.jl b/src/freereduce.jl
index ef56c2c..884dd34 100644
--- a/src/freereduce.jl
+++ b/src/freereduce.jl
@@ -4,14 +4,18 @@
 #
 
 function freereduce!(::Type{Bool}, w::GWord)
+    if syllablelength(w) == 1
+        filter!(!isone, syllables(w))
+        return syllablelength(w) == 1
+    end
+
     reduced = true
-    for i in 1:syllablelength(w)-1
+    @inbounds for i in 1:syllablelength(w)-1
         s, ns = syllables(w)[i], syllables(w)[i+1]
         if isone(s)
             continue
-        elseif s.id == ns.id
+        elseif s.id === ns.id
             reduced = false
-            setmodified!(w)
             p1 = s.pow
             p2 = ns.pow
 
@@ -19,7 +23,10 @@ function freereduce!(::Type{Bool}, w::GWord)
             syllables(w)[i] = change_pow(s, 0)
         end
     end
-    filter!(!isone, syllables(w))
+    if !reduced
+        filter!(!isone, syllables(w))
+        setmodified!(w)
+    end
     return reduced
 end