Update FareySequencesModule.hs

andreyomatveev · web-flow · commit c7f8e338454d · 2022-08-26T20:32:55.000+05:00
diff --git a/HASKELL/src/FareySequencesModule.hs b/HASKELL/src/FareySequencesModule.hs
@@ -364,7 +364,7 @@ predecessorInFBnm n m successor
                                   successor)
                                successor))
            else (if (successor > 1 % 2) ||
-                    ((numerator successor * n - denominator successor * m) >= 1)
+                    (numerator successor * n - denominator successor * m >= 1)
                    then getNumeratorAndReturnPredecessor
                           (findNumeratorOfPredecessor
                              (m - numerator successor + 1, m)
