patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add mwhen

Browse Source
This commit is contained in:
George Thomas 2026-01-06 22:32:40 +00:00
parent 41f0b8d511
commit d18166951b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
haskell/Pre.hs
View File

@ -39,6 +39,7 @@ module Pre (
module Text.Megaparsec.Char.Lexer, module Text.Megaparsec.Char.Lexer,
module Text.Pretty.Simple, module Text.Pretty.Simple,
Puzzle (..), Puzzle (..),
mwhen,
(<<$>>), (<<$>>),
(<<&>>), (<<&>>),
takeUntil, takeUntil,
@ -146,6 +147,9 @@ data Puzzle = forall input outputs. (KnownNat (Length outputs), NFData input) =>
(<<&>>) :: (Functor f1, Functor f2) => f1 (f2 a) -> (a -> b) -> f1 (f2 b) (<<&>>) :: (Functor f1, Functor f2) => f1 (f2 a) -> (a -> b) -> f1 (f2 b)
(<<&>>) = flip (<<$>>) (<<&>>) = flip (<<$>>)
mwhen :: (Monoid p) => Bool -> p -> p
mwhen b x = if b then x else mempty
takeUntil :: (Foldable t) => (a -> Bool) -> t a -> [a] takeUntil :: (Foldable t) => (a -> Bool) -> t a -> [a]
takeUntil p = foldr (\x xs -> x : if p x then [] else xs) [] takeUntil p = foldr (\x xs -> x : if p x then [] else xs) []