Copyright | (c) NoviSci Inc 2020 |
---|---|
License | BSD3 |
Maintainer | bsaul@novisci.com |
Stability | experimental |
Safe Haskell | Safe |
Language | Haskell2010 |
Synopsis
- combineIntervals :: (Applicative f, Ord a, Intervallic i a, Monoid (f (Interval a)), Foldable f) => f (i a) -> f (Interval a)
- combineIntervalsL :: Intervallic i a => [i a] -> [Interval a]
- rangeInterval :: (Ord a, Foldable t) => t (Interval a) -> Maybe (Interval a)
- gaps :: (IntervalCombinable i a, Traversable f, Monoid (f (Maybe (Interval a))), Applicative f) => f (i a) -> Maybe (f (Interval a))
- gapsL :: (IntervalCombinable i a, Applicative f, Monoid (f (Maybe (Interval a))), Traversable f) => f (i a) -> [Interval a]
- gapsWithin :: (Applicative f, Witherable f, Monoid (f (Interval a)), Monoid (f (Maybe (Interval a))), IntervalSizeable a b, Intervallic i0 a, IntervalCombinable i1 a) => i0 a -> f (i1 a) -> Maybe (f (Interval a))
- foldMeetingSafe :: (Eq b, Ord a, Show a) => [PairedInterval b a] -> [PairedInterval b a]
- formMeetingSequence :: (Eq b, Show a, Monoid b, IntervalSizeable a c) => [PairedInterval b a] -> [PairedInterval b a]
- nothingIf :: (Monoid (f (i a)), Filterable f) => ((i a -> Bool) -> f (i a) -> Bool) -> (i a -> Bool) -> f (i a) -> Maybe (f (i a))
- nothingIfNone :: (Monoid (f (i a)), Foldable f, Filterable f) => (i a -> Bool) -> f (i a) -> Maybe (f (i a))
- nothingIfAny :: (Monoid (f (i a)), Foldable f, Filterable f) => (i a -> Bool) -> f (i a) -> Maybe (f (i a))
- nothingIfAll :: (Monoid (f (i a)), Foldable f, Filterable f) => (i a -> Bool) -> f (i a) -> Maybe (f (i a))
- filterBefore :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterMeets :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterOverlaps :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterFinishedBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterContains :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterStarts :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterEquals :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterStartedBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterDuring :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterFinishes :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterOverlappedBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterMetBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterAfter :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterDisjoint :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterNotDisjoint :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterConcur :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterWithin :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterEnclose :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- filterEnclosedBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a)
- lookback :: (Intervallic i a, IntervalSizeable a b) => b -> i a -> Interval a
- lookahead :: (Intervallic i a, IntervalSizeable a b) => b -> i a -> Interval a
- makeGapsWithinPredicate :: (Monoid (t (Interval a)), Monoid (t (Maybe (Interval a))), Applicative t, Witherable t, IntervalSizeable a b, Intervallic i0 a, IntervalCombinable i1 a) => ((b -> Bool) -> t b -> Bool) -> (b -> b -> Bool) -> b -> i0 a -> t (i1 a) -> Bool
- pairGaps :: (Intervallic i a, IntervalSizeable a b, IntervalCombinable i a) => [i a] -> [Maybe b]
- anyGapsWithinAtLeastDuration :: (IntervalSizeable a b, Intervallic i0 a, IntervalCombinable i1 a, Monoid (t (Interval a)), Monoid (t (Maybe (Interval a))), Applicative t, Witherable t) => b -> i0 a -> t (i1 a) -> Bool
- allGapsWithinLessThanDuration :: (IntervalSizeable a b, Intervallic i0 a, IntervalCombinable i1 a, Monoid (t (Interval a)), Monoid (t (Maybe (Interval a))), Applicative t, Witherable t) => b -> i0 a -> t (i1 a) -> Bool
- relations :: (Foldable f, Applicative m, Intervallic i a, Monoid (m IntervalRelation)) => f (i a) -> m IntervalRelation
- relationsL :: (Foldable f, Intervallic i a) => f (i a) -> [IntervalRelation]
- intersect :: (Intervallic i a, IntervalSizeable a b) => i a -> i a -> Maybe (Interval a)
- clip :: (Intervallic i0 a, Intervallic i1 a, IntervalSizeable a b) => i0 a -> i1 a -> Maybe (Interval a)
- durations :: (Functor f, Intervallic i a, IntervalSizeable a b) => f (i a) -> f b
Fold over sequential intervals
combineIntervals :: (Applicative f, Ord a, Intervallic i a, Monoid (f (Interval a)), Foldable f) => f (i a) -> f (Interval a) Source #
Returns a container of intervals where any intervals that meet or share support
are combined into one interval. *To work properly, the input should
be sorted*. See combineIntervalsL
for a version that works only on lists.
>>>
combineIntervals [iv 10 0, iv 5 2, iv 2 10, iv 2 13]
[(0, 12),(13, 15)]
combineIntervalsL :: Intervallic i a => [i a] -> [Interval a] Source #
Returns a list of intervals where any intervals that meet or share support are combined into one interval. *To work properly, the input list should be sorted*.
>>>
combineIntervalsL [iv 10 0, iv 5 2, iv 2 10, iv 2 13]
[(0, 12),(13, 15)]
rangeInterval :: (Ord a, Foldable t) => t (Interval a) -> Maybe (Interval a) Source #
Maybe form an Interval a
from Control.Foldl t => t (Interval a)
spanning
the range of all intervals in the list, i.e. whose begin
is the minimum
of begin
across intervals in the list and whose end
is the maximum of
end
.
>>>
rangeInterval [beginerval 0 0, beginerval 0 (-1)]
Just (-1, 1)>>>
rangeInterval ([] :: [Interval Int])
Nothing>>>
rangeInterval (Just (beginerval 0 0))
Just (0, 1)
gaps :: (IntervalCombinable i a, Traversable f, Monoid (f (Maybe (Interval a))), Applicative f) => f (i a) -> Maybe (f (Interval a)) Source #
Returns a Maybe
container of intervals consisting of the gaps
between intervals in the input. *To work properly, the input should be
sorted*. See gapsL
for a version that always returns a list.
>>>
gaps [iv 4 1, iv 4 8, iv 3 11]
Nothing
gapsL :: (IntervalCombinable i a, Applicative f, Monoid (f (Maybe (Interval a))), Traversable f) => f (i a) -> [Interval a] Source #
Returns a (possibly empty) list of intervals consisting of the gaps between
intervals in the input container. *To work properly, the input should be
sorted*. This version outputs a list. See gaps
for a version that lifts
the result to same input structure f
.
:: (Applicative f, Witherable f, Monoid (f (Interval a)), Monoid (f (Maybe (Interval a))), IntervalSizeable a b, Intervallic i0 a, IntervalCombinable i1 a) | |
=> i0 a | i |
-> f (i1 a) | x |
-> Maybe (f (Interval a)) |
Applies gaps
to all the non-disjoint intervals in x
that are *not* disjoint
from i
. Intervals that overlaps
or are overlappedBy
i
are clip
ped
to i
, so that all the intervals are within
i
. If all of the input intervals
are disjoint from the focal interval or if the input is empty, then Nothing
is returned. When there are no gaps among the concurring intervals, then
`Just mempty` (e.g. `Just []`) is returned.
>>>
gapsWithin (iv 9 1) [iv 5 0, iv 2 7, iv 3 12]
Just [(5, 7),(9, 10)]
Operations on Meeting sequences of paired intervals
:: (Eq b, Ord a, Show a) | |
=> [PairedInterval b a] | Be sure this only contains intervals
that sequentially |
-> [PairedInterval b a] |
Folds over a list of Paired Intervals and in the case that the getPairData
is equal between two sequential meeting intervals, these two intervals are
combined into one. This function is "safe" in the sense that if the input is
invalid and contains any sequential pairs of intervals with an IntervalRelation
,
other than Meets
, then the function returns an empty list.
formMeetingSequence :: (Eq b, Show a, Monoid b, IntervalSizeable a c) => [PairedInterval b a] -> [PairedInterval b a] Source #
Convert an ordered sequence of PairedInterval b a
. that may have any interval relation
(before
, starts
, etc) into a sequence of sequentially meeting PairedInterval b a
.
That is, a sequence where one the end of one interval meets the beginning of
the subsequent event. The getPairData
of the input PairedIntervals
are
combined using the Monoid <>
function, hence the pair data must be a
Monoid
instance.
Withering functions
Clear containers based on predicate
:: (Monoid (f (i a)), Filterable f) | |
=> ((i a -> Bool) -> f (i a) -> Bool) | |
-> (i a -> Bool) | predicate to apply to each element of input list |
-> f (i a) | |
-> Maybe (f (i a)) |
Given a predicate combinator, a predicate, and list of intervals, returns
the input unchanged if the predicate combinator is True
. Otherwise, returns
an empty list. See nothingIfAny
and nothingIfNone
for examples.
:: (Monoid (f (i a)), Foldable f, Filterable f) | |
=> (i a -> Bool) | predicate to apply to each element of input list |
-> f (i a) | |
-> Maybe (f (i a)) |
Returns the Nothing
if *none* of the element of input satisfy
the predicate condition.
For example, the following returns Nothing
because none of the intervals
in the input list starts
(3, 5).
>>>
nothingIfNone (starts (iv 2 3)) [iv 1 3, iv 1 5]
Nothing
In the following, (3, 5) starts
(3, 6), so Just
the input is returned.
>>>
nothingIfNone (starts (iv 2 3)) [iv 3 3, iv 1 5]
Just [(3, 6),(5, 6)]
:: (Monoid (f (i a)), Foldable f, Filterable f) | |
=> (i a -> Bool) | predicate to apply to each element of input list |
-> f (i a) | |
-> Maybe (f (i a)) |
Returns Nothing
if *any* of the element of input satisfy the predicate condition.
>>>
nothingIfAny (startedBy (iv 2 3)) [iv 3 3, iv 1 5]
Just [(3, 6),(5, 6)]
>>>
nothingIfAny (starts (iv 2 3)) [iv 3 3, iv 1 5]
Nothing
:: (Monoid (f (i a)), Foldable f, Filterable f) | |
=> (i a -> Bool) | predicate to apply to each element of input list |
-> f (i a) | |
-> Maybe (f (i a)) |
Returns Nothing
if *all* of the element of input satisfy the predicate condition.
>>>
nothingIfAll (starts (iv 2 3)) [iv 3 3, iv 4 3]
Nothing
Filter containers based on predicate
filterBefore :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterMeets :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterOverlaps :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterFinishedBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterContains :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterStarts :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterEquals :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterStartedBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterDuring :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterFinishes :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterOverlappedBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterMetBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterAfter :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterDisjoint :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterNotDisjoint :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterConcur :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterWithin :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterEnclose :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
filterEnclosedBy :: (Filterable f, Intervallic i0 a, Intervallic i1 a) => i0 a -> f (i1 a) -> f (i1 a) Source #
Filter Filterable
containers of one
type based by comparing to
a (potentially different) Intervallic
Intervallic
type using the corresponding interval
predicate function.
Functions for manipulating intervals
:: (Intervallic i a, IntervalSizeable a b) | |
=> b | lookback duration |
-> i a | |
-> Interval a |
Creates a new Interval
of a provided lookback duration ending at the
begin
of the input interval.
>>>
lookback 4 (beginerval 10 (1 :: Int))
(-3, 1)
:: (Intervallic i a, IntervalSizeable a b) | |
=> b | lookahead duration |
-> i a | |
-> Interval a |
Creates a new Interval
of a provided lookahead duration beginning at the
end
of the input interval.
>>>
lookahead 4 (beginerval 1 (1 :: Int))
(2, 6)
Gaps
makeGapsWithinPredicate :: (Monoid (t (Interval a)), Monoid (t (Maybe (Interval a))), Applicative t, Witherable t, IntervalSizeable a b, Intervallic i0 a, IntervalCombinable i1 a) => ((b -> Bool) -> t b -> Bool) -> (b -> b -> Bool) -> b -> i0 a -> t (i1 a) -> Bool Source #
Create a predicate function that checks whether within a provided spanning interval, are there (e.g. any, all) gaps of (e.g. <=,=, >) a specified duration among the input intervals?
pairGaps :: (Intervallic i a, IntervalSizeable a b, IntervalCombinable i a) => [i a] -> [Maybe b] Source #
Gets the durations of gaps (via 'IntervalAlgebra.(><)') between all pairs of the input.
anyGapsWithinAtLeastDuration Source #
:: (IntervalSizeable a b, Intervallic i0 a, IntervalCombinable i1 a, Monoid (t (Interval a)), Monoid (t (Maybe (Interval a))), Applicative t, Witherable t) | |
=> b | duration of gap |
-> i0 a | within this interval |
-> t (i1 a) | |
-> Bool |
Within a provided spanning interval, are there any gaps of at least the specified duration among the input intervals?
allGapsWithinLessThanDuration Source #
:: (IntervalSizeable a b, Intervallic i0 a, IntervalCombinable i1 a, Monoid (t (Interval a)), Monoid (t (Maybe (Interval a))), Applicative t, Witherable t) | |
=> b | duration of gap |
-> i0 a | within this interval |
-> t (i1 a) | |
-> Bool |
Within a provided spanning interval, are all gaps less than the specified duration among the input intervals?
>>>
allGapsWithinLessThanDuration 30 (beginerval 100 (0::Int)) [beginerval 5 (-1), beginerval 99 10]
True
Misc utilities
relations :: (Foldable f, Applicative m, Intervallic i a, Monoid (m IntervalRelation)) => f (i a) -> m IntervalRelation Source #
A generic form of relations
which can output any Applicative
and
Monoid
structure.
>>>
(relations [iv 1 0,iv 1 1]) :: [IntervalRelation]
[Meets]
relationsL :: (Foldable f, Intervallic i a) => f (i a) -> [IntervalRelation] Source #
Returns a list of the IntervalRelation
between each consecutive pair
of intervals. This is just a specialized relations
which returns a list.
>>>
relationsL [iv 1 0, iv 1 1]
[Meets]
intersect :: (Intervallic i a, IntervalSizeable a b) => i a -> i a -> Maybe (Interval a) Source #
Forms a Just
new interval from the intersection of two intervals,
provided the intervals are not disjoint.
>>>
intersect (iv 5 0) (iv 2 3)
Just (3, 5)
clip :: (Intervallic i0 a, Intervallic i1 a, IntervalSizeable a b) => i0 a -> i1 a -> Maybe (Interval a) Source #
In the case that x y are not disjoint, clips y to the extent of x.
>>>
clip (iv 5 0) (iv 3 3)
Just (3, 5)
>>>
clip (iv 3 0) (iv 2 4)
Nothing
durations :: (Functor f, Intervallic i a, IntervalSizeable a b) => f (i a) -> f b Source #