Skip to content

Instantly share code, notes, and snippets.

@gimKondo

gimKondo/oden.hs

Created June 9, 2015 15:01
Show Gist options
  • Save gimKondo/ab1227c4b75a969e5dfc to your computer and use it in GitHub Desktop.
Save gimKondo/ab1227c4b75a969e5dfc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
oden.hs
-- Ordering and De-maybe Evaluating Nonsense operator
(-#@|>) :: Maybe a -> (a->b) -> Maybe b
Just x -#@|> f = Just (f x)
Nothing -#@|> _ = Nothing
main :: IO()
main = do
print $ Nothing -#@|> (+ 3)
print $ Just 2 -#@|> (+ 3)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment