diff options
| author | Tom Smeding <tom.smeding@gmail.com> | 2018-04-15 00:12:17 +0200 |
|---|---|---|
| committer | Tom Smeding <tom.smeding@gmail.com> | 2018-04-15 00:12:17 +0200 |
| commit | 446871a1ae5b7adb48e108052e2a2e5afa8dfe30 (patch) | |
| tree | 637bdce6d946c4245fa4d236ef4c2c8e6ca21901 | |
| parent | 873c294497c74e85eae5310cbf19269807c75e6d (diff) | |
(gcd v 2 == 1) == odd v
| -rw-r--r-- | Optimiser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Optimiser.hs b/Optimiser.hs index 3163c33..a381bac 100644 --- a/Optimiser.hs +++ b/Optimiser.hs @@ -123,7 +123,7 @@ specialLoops :: Optimisation specialLoops [] = [] specialLoops (ILoop [IAdd v off2] off1 : rest) | off1 /= off2 = ILoop [] off1 : specialLoops rest - | gcd v 2 == 1 = ISet 0 off1 : specialLoops rest + | odd v = ISet 0 off1 : specialLoops rest specialLoops (ILoop inss off : rest) | all isIAdd inss, sum (map (\(IAdd v _) -> v) $ filter ((== off) . offsetOf) inss) == -1 = |