Use tasty for tests, fix bug in circOnLine

2021-12-14 11:50:01 +00:00
parent ec51efabca
commit 47391f3850
19 changed files with 143 additions and 113 deletions
@@ -15,3 +15,13 @@ untilJustCount m = go 0
        case mayx of
            Nothing -> go (i+1)
            Just x  -> return (x,i)
+
+iterateUntil :: Monad m => (a -> Bool) -> m a -> m a
+iterateUntil t m = do
+    x <- m
+    if t x 
+        then return x
+        else iterateUntil t m
+
+iterateWhile :: Monad m => (a -> Bool) -> m a -> m a
+iterateWhile t = iterateUntil (not . t)