{- SubZero, A haskell library to provide a useful data structure Copyright (C) 2017 Tristan Wibberley This program is free software; you can redistribute it and/or modify it under the terms of version 2 of the GNU General Public License as published by the Free Software Foundation. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE FlexibleInstances #-} {- | Module : Control.Applicative.SubZero Description : SubZero type and related functions Copyright : (c) Tristan Wibberley, 2017 License : GPL-2 Maintainer : tristan.wibberley@gmail.com Stability : experimental Here is a longer description of this module, containing some commentary with @some markup@. -} module Control.Applicative.SubZero ( SubZero -- * Constructors -- $constructors , points , reveal -- * Destructors -- $destructors , flatten -- * Restructors -- $restructors , Superposition , simplify , collapse , keep ) where import Control.Applicative import Data.Monoid import Data.Maybe import Data.Function import Data.Functor.Compose {- | Converts a functor so that each point at the source has alternatives. It's just like Compose but the applicative instance appends new alternative values in the rightmost (inner/minor) functor instead of in the leftmost (outer/major) functor. The result is that two @'ZipList'@s of alternatives zip together, providing alternatives to each point. Given the immediate utility of this, I do wonder if the @'Alternative'@ instance of @'Compose'@ is the wrong one. [@f@]: The major functor, overall mapping/view [@g@]: This has a a few key useful interpretations depending on its instances, examples below. [@a@]: Transformed/contained value type. Some example instances that you might want to rely on from @g@: [@'Alternative'@]: Superposition functor. - How do individual items have a set of possible values? - How do those possible values collapse to form one optional value? - etc. [etc]: There are a lot of other utilities for this type. -} newtype SubZero f g a = SubZero { getSubZero :: Compose f g a } deriving (Show, Read, Eq, Ord, Functor, Applicative) instance (Applicative f, Alternative g) => Alternative (SubZero f g) where empty = (SubZero . Compose) $ pure empty (SubZero (Compose a)) <|> (SubZero (Compose b)) = (SubZero . Compose) $ (<|>) <$> a <*> b {- $constructors -} -- | Provides structure for values at the other end of a @'Functor'@ reveal :: (Functor f, Applicative g) => f a -- ^ Initial flat structure -> SubZero f g a -- ^ enhanced structure, albeit with no changes reveal = SubZero . Compose . (pure <$>) {- | Turns a container of values to a container of either retained or destroyed values based on a predicate The type constraint allows us to model possible outcomes so destroyed values are just "no possible outcomes" while retained values represent "the only possible outcome". To represent that "no value" is a possible outcome, @a@ should be some type like (@'Maybe' a@) or (@'Either' 'String' a@). [@f@]: This 'Functor' defines the broad scale behaviours but its 'Alternative' instance is overridden. This in particular might change during upcoming design validation. [@g@]: This 'Functor' supplies the supercedent 'Alternative' instance and thus the finer behaviours. -} points :: (Functor f, Alternative g) => (a -> Bool) -- ^ A predicate that indicates whether a point -- is occupied by its original value or vacant. -> f a -- ^ The seed points with their values. -> SubZero f g a -- ^ The constructed @'SubZero'@ value. points f = SubZero . Compose . (keep f <$>) {- $destructors -} {- | If the type constructor of the possibilities concept is @'Maybe'@ then you can use @'flatten'@ to provide default values for impossible points. - /NOTE/: This uses the applicative instance of the broad scale @'Functor'@ which means exact behaviour can vary depending on the type of @'Applicative' f@ because each has a different technique to ensure a value is found for every point: [@list of a@]: Cross-product; Providing all default values once for all points. [@'ZipList' a@]: zipWith; Providing one default value for each point until there are either no defaults remaining or no more points. [@'Data.Functor.Identity.Identity' a@]: One default must surely be provided and it is used if a default is required. [@'Maybe' a@]: Not sure exactly what this does, TBC. [@'Either' a@]: Not sure exactly what this does, TBC. -} flatten :: (Applicative f) => f a -- ^ Default values -> SubZero f Maybe a -- ^ Structured container -> f a -- ^ Destructured container flatten a (SubZero (Compose b)) = fromMaybe <$> a <*> b {- $restructors -} universal f (SubZero (Compose a)) = (SubZero . Compose) $ f <$> a -- {- | Take the alternatives embedded in the @'SubZero'@ and collapse them -- with a combining function to a single @'Alternative'@ value or empty which -- means no possible outcomes. -- It's compatible with @'Maybe'@ for further uses with @'flatten'@, but you can -- retain behaviours of more sophisticated types. A consequence of this -- is that you will probably need to state a type. -- -} {- $instructors Facilities, independent of SubZero, which are particularly useful when applied with SubZero and its specific associated functions. They provide details of how to achieve something in the other sections. -} {- | prop> collapse f empty = simplify empty prop> collapse f (pure x) = simplify (pure x) prop> collapse f (x <|> y) = pure (f x y) @g@ must form a monoid under @f@ when @'empty'@ is the monoid's identity. -} class (Alternative g, Alternative h) => Superposition g h where {- | Tries to convert from one alternative to another -} simplify :: g a -> Maybe (h a) {- | Combines many alternatives into one using a function parameter. @'empty'@ stays @'empty'@. This is quite free in the type of the result so the user can choose whether to keep the same type to re-expand the structure or to transform to a smaller type to avoid relying on instances for certain behaviours. -} collapse :: (a -> a -> a) -- ^ combining function -> g a -- ^ full structure -> h a -- ^ collapsed structure {- | Superposition within a nondeterminism list (ie, []) -} instance (Alternative h) => Superposition [] h where simplify [] = Nothing simplify (a:[]) = Just $ pure a simplify _ = Nothing collapse _ [] = empty collapse f l = pure $ foldl1 f l {- | Superposition within @'SubZero' * h@ -} instance (Applicative f, Superposition g h) => Superposition (SubZero f g) (SubZero f h) where -- | TODO: universal simplify, but if any points are @'Nothing'@ then the whole is @'Nothing'@ simplify = undefined -- | universal collapse, each point is collapsed collapse f = universal $ collapse f keep :: (Alternative f) => (a -> Bool) -> a -> f a {- ^ Turns a value "@a@" to @'Just' a@ or @'Nothing'@ based on a predicate assuming you use it in a context that wants @'Maybe' a@ instead of some other representation of @'Alternative'@s -} keep f x | f x = pure x | otherwise = empty