diff options
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index a982c76..6e0122d 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -44,7 +44,7 @@ findSplit :: [Double] -> Int findSplit d = findSplit' d [] 0 where findSplit' (x : ds) e i | sum ds < sum e = i - | otherwise = findSplit' ds (x : e) $ i + 1 + | otherwise = findSplit' ds (x : e) $ i + 1 findSplit' _ _ i = i cfmap :: Functor f => (t -> a -> b) -> t -> f a -> f b |