almost-fix (empty) → 0.0.0

raw patch · 4 files changed

+75/−0 lines, 4 filesdep +basesetup-changed

Dependencies added: base

Files

• LICENSE +30/−0
• Setup.hs +2/−0
• almost-fix.cabal +21/−0
• src/Data/Function/AlmostFix.hs +22/−0

@@ -0,0 +1,30 @@+Copyright (c) 2015, Athan Clark++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Athan Clark nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,21 @@+Name:                   almost-fix+Version:                0.0.0+Author:                 Athan Clark <athan.clark@gmail.com>+Maintainer:             Athan Clark <athan.clark@gmail.com>+License:                BSD3+License-File:           LICENSE+Synopsis:               Recurse until a predicate+-- Description:+Cabal-Version:          >= 1.10+Build-Type:             Simple++Library+  Default-Language:     Haskell2010+  HS-Source-Dirs:       src+  GHC-Options:          -Wall+  Exposed-Modules:      Data.Function.AlmostFix+  Build-Depends:        base >= 4.6 && < 5++Source-Repository head+  Type:                 git+  Location:             https://github.com/athanclark/almost-fix

@@ -0,0 +1,22 @@+module Data.Function.AlmostFix where++import Control.Monad+++-- | Applies the predicate to the input:+-- @almostFix (< 5) (+1) 0  =  @+almostFix :: (a -> Bool) -> (a -> a) -> a -> a+almostFix p f x = if p x then almostFix p f (f x)+                         else x++-- | Applies the predicate to the result.+almostFix' :: (a -> Bool) -> (a -> a) -> a -> a+almostFix' p f x = if p (f x) then almostFix' p f (f x)+                              else x++-- | Use a monadic predicate for the control flow.+almostFixM :: Monad m => m Bool -> (a -> m a) -> a -> m a+almostFixM p f x = do+  p' <- p+  if p' then almostFixM p f =<< f x+        else return x