{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Data.PQueue.Prio.Internals (
MinPQueue(..),
BinomForest(..),
BinomHeap,
BinomTree(..),
Zero(..),
Succ(..),
empty,
null,
size,
singleton,
insert,
insertBehind,
insertEager,
union,
getMin,
adjustMinWithKey,
adjustMinWithKeyA',
updateMinWithKey,
updateMinWithKeyA',
minViewWithKey,
mapWithKey,
mapKeysMonotonic,
mapMaybeWithKey,
mapEitherWithKey,
foldrWithKey,
foldlWithKey,
foldrU,
toAscList,
toDescList,
toListU,
insertMin,
insertMin',
insertMax',
fromList,
fromAscList,
foldrWithKeyU,
foldMapWithKeyU,
foldlWithKeyU,
foldlWithKeyU',
traverseWithKey,
mapMWithKey,
traverseWithKeyU,
seqSpine,
unions
) where
import Control.Applicative (liftA2, liftA3, Const (..))
import Control.DeepSeq (NFData(rnf), deepseq)
import Data.Coerce (coerce)
import Data.Functor.Identity (Identity(Identity, runIdentity))
import qualified Data.List as List
#if MIN_VERSION_base(4,9,0)
import Data.Semigroup (Semigroup(..), stimesMonoid, Endo (..), Dual (..))
#else
import Data.Monoid ((<>), Endo (..), Dual (..))
#endif
import Prelude hiding (null, map)
#ifdef __GLASGOW_HASKELL__
import Data.Data
import GHC.Exts (build, inline)
import Text.Read (Lexeme(Ident), lexP, parens, prec,
readPrec, readListPrec, readListPrecDefault)
#endif
import Data.Functor.WithIndex
import Data.Foldable.WithIndex
import Data.Traversable.WithIndex
import Nattish (Nattish (..))
#ifndef __GLASGOW_HASKELL__
build :: ((a -> [a] -> [a]) -> [a] -> [a]) -> [a]
build f = f (:) []
#endif
#if __GLASGOW_HASKELL__
instance (Ord k, Data k, Data a) => Data (MinPQueue k a) where
gfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> MinPQueue k a -> c (MinPQueue k a)
gfoldl forall d b. Data d => c (d -> b) -> d -> c b
f forall g. g -> c g
z MinPQueue k a
q = case MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
forall k a. Ord k => MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
minViewWithKey MinPQueue k a
q of
Maybe ((k, a), MinPQueue k a)
Nothing -> MinPQueue k a -> c (MinPQueue k a)
forall g. g -> c g
z MinPQueue k a
forall k a. MinPQueue k a
Empty
Just ((k, a)
x, MinPQueue k a
q') -> ((k, a) -> MinPQueue k a -> MinPQueue k a)
-> c ((k, a) -> MinPQueue k a -> MinPQueue k a)
forall g. g -> c g
z (\(k
k, a
a) -> k -> a -> MinPQueue k a -> MinPQueue k a
forall k a. Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insert k
k a
a) c ((k, a) -> MinPQueue k a -> MinPQueue k a)
-> (k, a) -> c (MinPQueue k a -> MinPQueue k a)
forall d b. Data d => c (d -> b) -> d -> c b
`f` (k, a)
x c (MinPQueue k a -> MinPQueue k a)
-> MinPQueue k a -> c (MinPQueue k a)
forall d b. Data d => c (d -> b) -> d -> c b
`f` MinPQueue k a
q'
gunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c (MinPQueue k a)
gunfold forall b r. Data b => c (b -> r) -> c r
k forall r. r -> c r
z Constr
c = case Constr -> Int
constrIndex Constr
c of
Int
1 -> MinPQueue k a -> c (MinPQueue k a)
forall r. r -> c r
z MinPQueue k a
forall k a. MinPQueue k a
Empty
Int
2 -> c (MinPQueue k a -> MinPQueue k a) -> c (MinPQueue k a)
forall b r. Data b => c (b -> r) -> c r
k (c ((k, a) -> MinPQueue k a -> MinPQueue k a)
-> c (MinPQueue k a -> MinPQueue k a)
forall b r. Data b => c (b -> r) -> c r
k (((k, a) -> MinPQueue k a -> MinPQueue k a)
-> c ((k, a) -> MinPQueue k a -> MinPQueue k a)
forall r. r -> c r
z (\(k
key, a
val) -> k -> a -> MinPQueue k a -> MinPQueue k a
forall k a. Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insert k
key a
val)))
Int
_ -> [Char] -> c (MinPQueue k a)
forall a. HasCallStack => [Char] -> a
error [Char]
"gunfold: invalid constructor for MinPQueue"
toConstr :: MinPQueue k a -> Constr
toConstr MinPQueue k a
q
| MinPQueue k a -> Bool
forall k a. MinPQueue k a -> Bool
null MinPQueue k a
q = Constr
emptyConstr
| Bool
otherwise = Constr
consConstr
dataTypeOf :: MinPQueue k a -> DataType
dataTypeOf MinPQueue k a
_ = DataType
queueDataType
dataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c (MinPQueue k a))
dataCast1 forall d. Data d => c (t d)
f = c (t a) -> Maybe (c (MinPQueue k a))
forall {k1} {k2} (c :: k1 -> *) (t :: k2 -> k1) (t' :: k2 -> k1)
(a :: k2).
(Typeable t, Typeable t') =>
c (t a) -> Maybe (c (t' a))
gcast1 c (t a)
forall d. Data d => c (t d)
f
dataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c (MinPQueue k a))
dataCast2 forall d e. (Data d, Data e) => c (t d e)
f = c (t k a) -> Maybe (c (MinPQueue k a))
forall {k1} {k2} {k3} (c :: k1 -> *) (t :: k2 -> k3 -> k1)
(t' :: k2 -> k3 -> k1) (a :: k2) (b :: k3).
(Typeable t, Typeable t') =>
c (t a b) -> Maybe (c (t' a b))
gcast2 c (t k a)
forall d e. (Data d, Data e) => c (t d e)
f
queueDataType :: DataType
queueDataType :: DataType
queueDataType = [Char] -> [Constr] -> DataType
mkDataType [Char]
"Data.PQueue.Prio.Min.MinPQueue" [Constr
emptyConstr, Constr
consConstr]
emptyConstr, consConstr :: Constr
emptyConstr :: Constr
emptyConstr = DataType -> [Char] -> [[Char]] -> Fixity -> Constr
mkConstr DataType
queueDataType [Char]
"Empty" [] Fixity
Prefix
consConstr :: Constr
consConstr = DataType -> [Char] -> [[Char]] -> Fixity -> Constr
mkConstr DataType
queueDataType [Char]
":<" [] Fixity
Infix
#endif
#if MIN_VERSION_base(4,9,0)
instance Ord k => Semigroup (MinPQueue k a) where
<> :: MinPQueue k a -> MinPQueue k a -> MinPQueue k a
(<>) = MinPQueue k a -> MinPQueue k a -> MinPQueue k a
forall k a.
Ord k =>
MinPQueue k a -> MinPQueue k a -> MinPQueue k a
union
stimes :: forall b. Integral b => b -> MinPQueue k a -> MinPQueue k a
stimes = b -> MinPQueue k a -> MinPQueue k a
forall b a. (Integral b, Monoid a) => b -> a -> a
stimesMonoid
{-# INLINABLE stimes #-}
#endif
instance Ord k => Monoid (MinPQueue k a) where
mempty :: MinPQueue k a
mempty = MinPQueue k a
forall k a. MinPQueue k a
empty
#if !MIN_VERSION_base(4,11,0)
mappend = union
#endif
mconcat :: [MinPQueue k a] -> MinPQueue k a
mconcat = [MinPQueue k a] -> MinPQueue k a
forall k a. Ord k => [MinPQueue k a] -> MinPQueue k a
unions
instance (Ord k, Show k, Show a) => Show (MinPQueue k a) where
showsPrec :: Int -> MinPQueue k a -> ShowS
showsPrec Int
p MinPQueue k a
xs = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
> Int
10) (ShowS -> ShowS) -> ShowS -> ShowS
forall a b. (a -> b) -> a -> b
$
[Char] -> ShowS
showString [Char]
"fromAscList " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [(k, a)] -> ShowS
forall a. Show a => a -> ShowS
shows (MinPQueue k a -> [(k, a)]
forall k a. Ord k => MinPQueue k a -> [(k, a)]
toAscList MinPQueue k a
xs)
instance (Read k, Read a) => Read (MinPQueue k a) where
#ifdef __GLASGOW_HASKELL__
readPrec :: ReadPrec (MinPQueue k a)
readPrec = ReadPrec (MinPQueue k a) -> ReadPrec (MinPQueue k a)
forall a. ReadPrec a -> ReadPrec a
parens (ReadPrec (MinPQueue k a) -> ReadPrec (MinPQueue k a))
-> ReadPrec (MinPQueue k a) -> ReadPrec (MinPQueue k a)
forall a b. (a -> b) -> a -> b
$ Int -> ReadPrec (MinPQueue k a) -> ReadPrec (MinPQueue k a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10 (ReadPrec (MinPQueue k a) -> ReadPrec (MinPQueue k a))
-> ReadPrec (MinPQueue k a) -> ReadPrec (MinPQueue k a)
forall a b. (a -> b) -> a -> b
$ do
Ident [Char]
"fromAscList" <- ReadPrec Lexeme
lexP
[(k, a)]
xs <- ReadPrec [(k, a)]
forall a. Read a => ReadPrec a
readPrec
MinPQueue k a -> ReadPrec (MinPQueue k a)
forall a. a -> ReadPrec a
forall (m :: * -> *) a. Monad m => a -> m a
return ([(k, a)] -> MinPQueue k a
forall k a. [(k, a)] -> MinPQueue k a
fromAscList [(k, a)]
xs)
readListPrec :: ReadPrec [MinPQueue k a]
readListPrec = ReadPrec [MinPQueue k a]
forall a. Read a => ReadPrec [a]
readListPrecDefault
#else
readsPrec p = readParen (p > 10) $ \r -> do
("fromAscList",s) <- lex r
(xs,t) <- reads s
return (fromAscList xs,t)
#endif
unions :: Ord k => [MinPQueue k a] -> MinPQueue k a
unions :: forall k a. Ord k => [MinPQueue k a] -> MinPQueue k a
unions = (MinPQueue k a -> MinPQueue k a -> MinPQueue k a)
-> MinPQueue k a -> [MinPQueue k a] -> MinPQueue k a
forall b a. (b -> a -> b) -> b -> [a] -> b
forall (t :: * -> *) b a.
Foldable t =>
(b -> a -> b) -> b -> t a -> b
List.foldl' MinPQueue k a -> MinPQueue k a -> MinPQueue k a
forall k a.
Ord k =>
MinPQueue k a -> MinPQueue k a -> MinPQueue k a
union MinPQueue k a
forall k a. MinPQueue k a
empty
(.:) :: (c -> d) -> (a -> b -> c) -> a -> b -> d
(c -> d
f .: :: forall c d a b. (c -> d) -> (a -> b -> c) -> a -> b -> d
.: a -> b -> c
g) a
x b
y = c -> d
f (a -> b -> c
g a
x b
y)
infixr 8 .:
data MinPQueue k a = Empty | MinPQ {-# UNPACK #-} !Int !k a !(BinomHeap k a)
data BinomForest rk k a =
Nil |
Skip (BinomForest (Succ rk) k a) |
Cons {-# UNPACK #-} !(BinomTree rk k a) (BinomForest (Succ rk) k a)
type BinomHeap = BinomForest Zero
data BinomTree rk k a = BinomTree !k (rk k a)
newtype Zero k a = Zero a
data Succ rk k a = Succ {-# UNPACK #-} !(BinomTree rk k a) (rk k a)
instance (Ord k, Eq a) => Eq (MinPQueue k a) where
MinPQ Int
n1 k
k1 a
a1 BinomHeap k a
ts1 == :: MinPQueue k a -> MinPQueue k a -> Bool
== MinPQ Int
n2 k
k2 a
a2 BinomHeap k a
ts2 =
Int
n1 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
== Int
n2 Bool -> Bool -> Bool
&& k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Bool
forall k a.
(Ord k, Eq a) =>
k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Bool
eqExtract k
k1 a
a1 BinomHeap k a
ts1 k
k2 a
a2 BinomHeap k a
ts2
MinPQueue k a
Empty == MinPQueue k a
Empty = Bool
True
MinPQueue k a
_ == MinPQueue k a
_ = Bool
False
eqExtract :: (Ord k, Eq a) => k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Bool
k
k10 a
a10 BinomHeap k a
ts10 k
k20 a
a20 BinomHeap k a
ts20 =
k
k10 k -> k -> Bool
forall a. Eq a => a -> a -> Bool
== k
k20 Bool -> Bool -> Bool
&& a
a10 a -> a -> Bool
forall a. Eq a => a -> a -> Bool
== a
a20 Bool -> Bool -> Bool
&&
case (BinomHeap k a -> MExtract Zero k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
extract BinomHeap k a
ts10, BinomHeap k a -> MExtract Zero k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
extract BinomHeap k a
ts20) of
(Yes (Extract k
k1 (Zero a
a1) BinomHeap k a
ts1'), Yes (Extract k
k2 (Zero a
a2) BinomHeap k a
ts2'))
-> k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Bool
forall k a.
(Ord k, Eq a) =>
k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Bool
eqExtract k
k1 a
a1 BinomHeap k a
ts1' k
k2 a
a2 BinomHeap k a
ts2'
(MExtract Zero k a
No, MExtract Zero k a
No) -> Bool
True
(MExtract Zero k a, MExtract Zero k a)
_ -> Bool
False
instance (Ord k, Ord a) => Ord (MinPQueue k a) where
MinPQ Int
_n1 k
k10 a
a10 BinomHeap k a
ts10 compare :: MinPQueue k a -> MinPQueue k a -> Ordering
`compare` MinPQ Int
_n2 k
k20 a
a20 BinomHeap k a
ts20 =
k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Ordering
forall k a.
(Ord k, Ord a) =>
k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Ordering
cmpExtract k
k10 a
a10 BinomHeap k a
ts10 k
k20 a
a20 BinomHeap k a
ts20
MinPQueue k a
Empty `compare` MinPQueue k a
Empty = Ordering
EQ
MinPQueue k a
Empty `compare` MinPQ{} = Ordering
LT
MinPQ{} `compare` MinPQueue k a
Empty = Ordering
GT
cmpExtract :: (Ord k, Ord a) => k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Ordering
k
k10 a
a10 BinomHeap k a
ts10 k
k20 a
a20 BinomHeap k a
ts20 =
k
k10 k -> k -> Ordering
forall a. Ord a => a -> a -> Ordering
`compare` k
k20 Ordering -> Ordering -> Ordering
forall a. Semigroup a => a -> a -> a
<> a
a10 a -> a -> Ordering
forall a. Ord a => a -> a -> Ordering
`compare` a
a20 Ordering -> Ordering -> Ordering
forall a. Semigroup a => a -> a -> a
<>
case (BinomHeap k a -> MExtract Zero k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
extract BinomHeap k a
ts10, BinomHeap k a -> MExtract Zero k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
extract BinomHeap k a
ts20) of
(Yes (Extract k
k1 (Zero a
a1) BinomHeap k a
ts1'), Yes (Extract k
k2 (Zero a
a2) BinomHeap k a
ts2'))
-> k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Ordering
forall k a.
(Ord k, Ord a) =>
k -> a -> BinomHeap k a -> k -> a -> BinomHeap k a -> Ordering
cmpExtract k
k1 a
a1 BinomHeap k a
ts1' k
k2 a
a2 BinomHeap k a
ts2'
(MExtract Zero k a
No, Yes{}) -> Ordering
LT
(Yes{}, MExtract Zero k a
No) -> Ordering
GT
(MExtract Zero k a
No, MExtract Zero k a
No) -> Ordering
EQ
empty :: MinPQueue k a
empty :: forall k a. MinPQueue k a
empty = MinPQueue k a
forall k a. MinPQueue k a
Empty
null :: MinPQueue k a -> Bool
null :: forall k a. MinPQueue k a -> Bool
null MinPQueue k a
Empty = Bool
True
null MinPQueue k a
_ = Bool
False
size :: MinPQueue k a -> Int
size :: forall k a. MinPQueue k a -> Int
size MinPQueue k a
Empty = Int
0
size (MinPQ Int
n k
_ a
_ BinomHeap k a
_) = Int
n
singleton :: k -> a -> MinPQueue k a
singleton :: forall k a. k -> a -> MinPQueue k a
singleton k
k a
a = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
1 k
k a
a BinomHeap k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
insert :: Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insert :: forall k a. Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insert k
k a
a MinPQueue k a
Empty = k -> a -> MinPQueue k a
forall k a. k -> a -> MinPQueue k a
singleton k
k a
a
insert k
k a
a (MinPQ Int
n k
k' a
a' BinomHeap k a
ts)
| k
k k -> k -> Bool
forall a. Ord a => a -> a -> Bool
<= k
k' = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) k
k a
a (BinomTree Zero k a -> BinomHeap k a -> BinomHeap k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMin (k -> a -> BinomTree Zero k a
forall k a. k -> a -> BinomTree Zero k a
tip k
k' a
a') BinomHeap k a
ts)
| Bool
otherwise = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) k
k' a
a' (BinomTree Zero k a -> BinomHeap k a -> BinomHeap k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr (k -> a -> BinomTree Zero k a
forall k a. k -> a -> BinomTree Zero k a
tip k
k a
a ) BinomHeap k a
ts)
insertEager :: Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insertEager :: forall k a. Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insertEager k
k a
a MinPQueue k a
Empty = k -> a -> MinPQueue k a
forall k a. k -> a -> MinPQueue k a
singleton k
k a
a
insertEager k
k a
a (MinPQ Int
n k
k' a
a' BinomHeap k a
ts)
| k
k k -> k -> Bool
forall a. Ord a => a -> a -> Bool
<= k
k' = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) k
k a
a (k -> a -> BinomHeap k a -> BinomHeap k a
forall k a. Ord k => k -> a -> BinomHeap k a -> BinomHeap k a
insertEagerHeap k
k' a
a' BinomHeap k a
ts)
| Bool
otherwise = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) k
k' a
a' (k -> a -> BinomHeap k a -> BinomHeap k a
forall k a. Ord k => k -> a -> BinomHeap k a -> BinomHeap k a
insertEagerHeap k
k a
a BinomHeap k a
ts)
{-# DEPRECATED insertBehind "This function is not reliable." #-}
insertBehind :: Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insertBehind :: forall k a. Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insertBehind k
k a
v MinPQueue k a
q =
let ([(k, a)]
smaller, MinPQueue k a
larger) = (k -> Bool) -> MinPQueue k a -> ([(k, a)], MinPQueue k a)
forall k a.
Ord k =>
(k -> Bool) -> MinPQueue k a -> ([(k, a)], MinPQueue k a)
spanKey (k -> k -> Bool
forall a. Ord a => a -> a -> Bool
<= k
k) MinPQueue k a
q
in ((k, a) -> MinPQueue k a -> MinPQueue k a)
-> MinPQueue k a -> [(k, a)] -> MinPQueue k a
forall a b. (a -> b -> b) -> b -> [a] -> b
forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr ((k -> a -> MinPQueue k a -> MinPQueue k a)
-> (k, a) -> MinPQueue k a -> MinPQueue k a
forall a b c. (a -> b -> c) -> (a, b) -> c
uncurry k -> a -> MinPQueue k a -> MinPQueue k a
forall k a. Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insert) (k -> a -> MinPQueue k a -> MinPQueue k a
forall k a. Ord k => k -> a -> MinPQueue k a -> MinPQueue k a
insert k
k a
v MinPQueue k a
larger) [(k, a)]
smaller
spanKey :: Ord k => (k -> Bool) -> MinPQueue k a -> ([(k, a)], MinPQueue k a)
spanKey :: forall k a.
Ord k =>
(k -> Bool) -> MinPQueue k a -> ([(k, a)], MinPQueue k a)
spanKey k -> Bool
p MinPQueue k a
q = case MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
forall k a. Ord k => MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
minViewWithKey MinPQueue k a
q of
Just (t :: (k, a)
t@(k
k, a
_), MinPQueue k a
q') | k -> Bool
p k
k ->
let ([(k, a)]
kas, MinPQueue k a
q'') = (k -> Bool) -> MinPQueue k a -> ([(k, a)], MinPQueue k a)
forall k a.
Ord k =>
(k -> Bool) -> MinPQueue k a -> ([(k, a)], MinPQueue k a)
spanKey k -> Bool
p MinPQueue k a
q' in ((k, a)
t (k, a) -> [(k, a)] -> [(k, a)]
forall a. a -> [a] -> [a]
: [(k, a)]
kas, MinPQueue k a
q'')
Maybe ((k, a), MinPQueue k a)
_ -> ([], MinPQueue k a
q)
union :: Ord k => MinPQueue k a -> MinPQueue k a -> MinPQueue k a
union :: forall k a.
Ord k =>
MinPQueue k a -> MinPQueue k a -> MinPQueue k a
union (MinPQ Int
n1 k
k1 a
a1 BinomHeap k a
ts1) (MinPQ Int
n2 k
k2 a
a2 BinomHeap k a
ts2)
| k
k1 k -> k -> Bool
forall a. Ord a => a -> a -> Bool
<= k
k2 = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n1 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
n2) k
k1 a
a1 (k -> a -> BinomHeap k a
insMerge k
k2 a
a2)
| Bool
otherwise = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n1 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
n2) k
k2 a
a2 (k -> a -> BinomHeap k a
insMerge k
k1 a
a1)
where insMerge :: k -> a -> BinomHeap k a
insMerge k
k a
a = BinomTree Zero k a
-> BinomHeap k a -> BinomHeap k a -> BinomHeap k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a
-> BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
carryForest (k -> a -> BinomTree Zero k a
forall k a. k -> a -> BinomTree Zero k a
tip k
k a
a) BinomHeap k a
ts1 BinomHeap k a
ts2
union MinPQueue k a
Empty MinPQueue k a
q2 = MinPQueue k a
q2
union MinPQueue k a
q1 MinPQueue k a
Empty = MinPQueue k a
q1
getMin :: MinPQueue k a -> Maybe (k, a)
getMin :: forall k a. MinPQueue k a -> Maybe (k, a)
getMin (MinPQ Int
_ k
k a
a BinomHeap k a
_) = (k, a) -> Maybe (k, a)
forall a. a -> Maybe a
Just (k
k, a
a)
getMin MinPQueue k a
_ = Maybe (k, a)
forall a. Maybe a
Nothing
adjustMinWithKey :: (k -> a -> a) -> MinPQueue k a -> MinPQueue k a
adjustMinWithKey :: forall k a. (k -> a -> a) -> MinPQueue k a -> MinPQueue k a
adjustMinWithKey k -> a -> a
_ MinPQueue k a
Empty = MinPQueue k a
forall k a. MinPQueue k a
Empty
adjustMinWithKey k -> a -> a
f (MinPQ Int
n k
k a
a BinomHeap k a
ts) = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
n k
k (k -> a -> a
f k
k a
a) BinomHeap k a
ts
adjustMinWithKeyA' :: Applicative f => (MinPQueue k a -> r) -> (k -> a -> f a) -> MinPQueue k a -> f r
adjustMinWithKeyA' :: forall (f :: * -> *) k a r.
Applicative f =>
(MinPQueue k a -> r) -> (k -> a -> f a) -> MinPQueue k a -> f r
adjustMinWithKeyA' MinPQueue k a -> r
g k -> a -> f a
_ MinPQueue k a
Empty = r -> f r
forall a. a -> f a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (MinPQueue k a -> r
g MinPQueue k a
forall k a. MinPQueue k a
Empty)
adjustMinWithKeyA' MinPQueue k a -> r
g k -> a -> f a
f (MinPQ Int
n k
k a
a BinomHeap k a
ts) = (a -> r) -> f a -> f r
forall a b. (a -> b) -> f a -> f b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (\a
a' -> MinPQueue k a -> r
g (Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
n k
k a
a' BinomHeap k a
ts)) (k -> a -> f a
f k
k a
a)
updateMinWithKey :: Ord k => (k -> a -> Maybe a) -> MinPQueue k a -> MinPQueue k a
updateMinWithKey :: forall k a.
Ord k =>
(k -> a -> Maybe a) -> MinPQueue k a -> MinPQueue k a
updateMinWithKey k -> a -> Maybe a
_ MinPQueue k a
Empty = MinPQueue k a
forall k a. MinPQueue k a
Empty
updateMinWithKey k -> a -> Maybe a
f (MinPQ Int
n k
k a
a BinomHeap k a
ts) = case k -> a -> Maybe a
f k
k a
a of
Maybe a
Nothing -> Int -> BinomHeap k a -> MinPQueue k a
forall k a. Ord k => Int -> BinomHeap k a -> MinPQueue k a
extractHeap Int
n BinomHeap k a
ts
Just a
a' -> Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
n k
k a
a' BinomHeap k a
ts
updateMinWithKeyA'
:: (Applicative f, Ord k)
=> (MinPQueue k a -> r)
-> (k -> a -> f (Maybe a))
-> MinPQueue k a
-> f r
updateMinWithKeyA' :: forall (f :: * -> *) k a r.
(Applicative f, Ord k) =>
(MinPQueue k a -> r)
-> (k -> a -> f (Maybe a)) -> MinPQueue k a -> f r
updateMinWithKeyA' MinPQueue k a -> r
g k -> a -> f (Maybe a)
_ MinPQueue k a
Empty = r -> f r
forall a. a -> f a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (MinPQueue k a -> r
g MinPQueue k a
forall k a. MinPQueue k a
Empty)
updateMinWithKeyA' MinPQueue k a -> r
g k -> a -> f (Maybe a)
f (MinPQ Int
n k
k a
a BinomHeap k a
ts) = (Maybe a -> r) -> f (Maybe a) -> f r
forall a b. (a -> b) -> f a -> f b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (MinPQueue k a -> r
g (MinPQueue k a -> r) -> (Maybe a -> MinPQueue k a) -> Maybe a -> r
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Maybe a -> MinPQueue k a
tweak) (k -> a -> f (Maybe a)
f k
k a
a)
where
tweak :: Maybe a -> MinPQueue k a
tweak Maybe a
Nothing = Int -> BinomHeap k a -> MinPQueue k a
forall k a. Ord k => Int -> BinomHeap k a -> MinPQueue k a
extractHeap Int
n BinomHeap k a
ts
tweak (Just a
a') = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
n k
k a
a' BinomHeap k a
ts
minViewWithKey :: Ord k => MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
minViewWithKey :: forall k a. Ord k => MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
minViewWithKey MinPQueue k a
Empty = Maybe ((k, a), MinPQueue k a)
forall a. Maybe a
Nothing
minViewWithKey (MinPQ Int
n k
k a
a BinomHeap k a
ts) = ((k, a), MinPQueue k a) -> Maybe ((k, a), MinPQueue k a)
forall a. a -> Maybe a
Just ((k
k, a
a), Int -> BinomHeap k a -> MinPQueue k a
forall k a. Ord k => Int -> BinomHeap k a -> MinPQueue k a
extractHeap Int
n BinomHeap k a
ts)
mapWithKey :: (k -> a -> b) -> MinPQueue k a -> MinPQueue k b
mapWithKey :: forall k a b. (k -> a -> b) -> MinPQueue k a -> MinPQueue k b
mapWithKey k -> a -> b
f = Identity (MinPQueue k b) -> MinPQueue k b
forall a. Identity a -> a
runIdentity (Identity (MinPQueue k b) -> MinPQueue k b)
-> (MinPQueue k a -> Identity (MinPQueue k b))
-> MinPQueue k a
-> MinPQueue k b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (k -> a -> Identity b) -> MinPQueue k a -> Identity (MinPQueue k b)
forall (f :: * -> *) k a b.
Applicative f =>
(k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKeyU ((k -> a -> b) -> k -> a -> Identity b
forall a b. Coercible a b => a -> b
coerce k -> a -> b
f)
mapKeysMonotonic :: (k -> k') -> MinPQueue k a -> MinPQueue k' a
mapKeysMonotonic :: forall k k' a. (k -> k') -> MinPQueue k a -> MinPQueue k' a
mapKeysMonotonic k -> k'
_ MinPQueue k a
Empty = MinPQueue k' a
forall k a. MinPQueue k a
Empty
mapKeysMonotonic k -> k'
f (MinPQ Int
n k
k a
a BinomHeap k a
ts) = Int -> k' -> a -> BinomHeap k' a -> MinPQueue k' a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
n (k -> k'
f k
k) a
a (BinomHeap k' a -> MinPQueue k' a)
-> BinomHeap k' a -> MinPQueue k' a
forall a b. (a -> b) -> a -> b
$! (k -> k') -> BinomHeap k a -> BinomHeap k' a
forall k k' a. (k -> k') -> BinomHeap k a -> BinomHeap k' a
mapKeysMonoHeap k -> k'
f BinomHeap k a
ts
mapKeysMonoHeap :: forall k k' a. (k -> k') -> BinomHeap k a -> BinomHeap k' a
mapKeysMonoHeap :: forall k k' a. (k -> k') -> BinomHeap k a -> BinomHeap k' a
mapKeysMonoHeap k -> k'
f = Ranky Zero -> BinomForest Zero k a -> BinomForest Zero k' a
forall (rk :: * -> * -> *).
Ranky rk -> BinomForest rk k a -> BinomForest rk k' a
mapKeysMonoForest Ranky Zero
forall {k} (zero :: k) (succ :: k -> k) (n :: k).
(n ~ zero) =>
Nattish zero succ n
Zeroy
where
mapKeysMonoForest :: Ranky rk -> BinomForest rk k a -> BinomForest rk k' a
mapKeysMonoForest :: forall (rk :: * -> * -> *).
Ranky rk -> BinomForest rk k a -> BinomForest rk k' a
mapKeysMonoForest !Ranky rk
_rky BinomForest rk k a
Nil = BinomForest rk k' a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
mapKeysMonoForest !Ranky rk
rky (Skip BinomForest (Succ rk) k a
rest) = BinomForest (Succ rk) k' a -> BinomForest rk k' a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k' a -> BinomForest rk k' a)
-> BinomForest (Succ rk) k' a -> BinomForest rk k' a
forall a b. (a -> b) -> a -> b
$! Ranky (Succ rk)
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k' a
forall (rk :: * -> * -> *).
Ranky rk -> BinomForest rk k a -> BinomForest rk k' a
mapKeysMonoForest (Ranky rk -> Ranky (Succ rk)
forall {k} (zero :: k) (succ :: k -> k) (n :: k) (n' :: k).
(n ~ succ n') =>
Nattish zero succ n' -> Nattish zero succ n
Succy Ranky rk
rky) BinomForest (Succ rk) k a
rest
mapKeysMonoForest !Ranky rk
rky (Cons BinomTree rk k a
t BinomForest (Succ rk) k a
rest) = BinomTree rk k' a
-> BinomForest (Succ rk) k' a -> BinomForest rk k' a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons (Ranky rk -> BinomTree rk k a -> BinomTree rk k' a
forall (rk :: * -> * -> *).
Ranky rk -> BinomTree rk k a -> BinomTree rk k' a
mapKeysMonoTree Ranky rk
rky BinomTree rk k a
t) (BinomForest (Succ rk) k' a -> BinomForest rk k' a)
-> BinomForest (Succ rk) k' a -> BinomForest rk k' a
forall a b. (a -> b) -> a -> b
$! Ranky (Succ rk)
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k' a
forall (rk :: * -> * -> *).
Ranky rk -> BinomForest rk k a -> BinomForest rk k' a
mapKeysMonoForest (Ranky rk -> Ranky (Succ rk)
forall {k} (zero :: k) (succ :: k -> k) (n :: k) (n' :: k).
(n ~ succ n') =>
Nattish zero succ n' -> Nattish zero succ n
Succy Ranky rk
rky) BinomForest (Succ rk) k a
rest
{-# INLINE mapKeysMonoTree #-}
mapKeysMonoTree :: Ranky rk -> BinomTree rk k a -> BinomTree rk k' a
mapKeysMonoTree :: forall (rk :: * -> * -> *).
Ranky rk -> BinomTree rk k a -> BinomTree rk k' a
mapKeysMonoTree Nattish Zero Succ rk
Zeroy (BinomTree k
k (Zero a
a)) =
k' -> rk k' a -> BinomTree rk k' a
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree (k -> k'
f k
k) (a -> Zero k' a
forall k a. a -> Zero k a
Zero a
a)
mapKeysMonoTree (Succy Nattish Zero Succ n'
rky) (BinomTree k
k rk k a
ts) = k' -> rk k' a -> BinomTree rk k' a
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree (k -> k'
f k
k) (rk k' a -> BinomTree rk k' a) -> rk k' a -> BinomTree rk k' a
forall a b. (a -> b) -> a -> b
$! Nattish Zero Succ n' -> Succ n' k a -> Succ n' k' a
forall (rk :: * -> * -> *). Ranky rk -> Succ rk k a -> Succ rk k' a
mapKeysMonoTrees Nattish Zero Succ n'
rky rk k a
Succ n' k a
ts
mapKeysMonoTrees :: Ranky rk -> Succ rk k a -> Succ rk k' a
mapKeysMonoTrees :: forall (rk :: * -> * -> *). Ranky rk -> Succ rk k a -> Succ rk k' a
mapKeysMonoTrees Nattish Zero Succ rk
Zeroy (Succ BinomTree rk k a
t (Zero a
a)) =
BinomTree rk k' a -> rk k' a -> Succ rk k' a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> rk k a -> Succ rk k a
Succ (Nattish Zero Succ rk -> BinomTree rk k a -> BinomTree rk k' a
forall (rk :: * -> * -> *).
Ranky rk -> BinomTree rk k a -> BinomTree rk k' a
mapKeysMonoTree Nattish Zero Succ rk
forall {k} (zero :: k) (succ :: k -> k) (n :: k).
(n ~ zero) =>
Nattish zero succ n
Zeroy BinomTree rk k a
t) (a -> Zero k' a
forall k a. a -> Zero k a
Zero a
a)
mapKeysMonoTrees (Succy Nattish Zero Succ n'
rky) (Succ BinomTree rk k a
t rk k a
ts) =
BinomTree rk k' a -> rk k' a -> Succ rk k' a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> rk k a -> Succ rk k a
Succ (Nattish Zero Succ rk -> BinomTree rk k a -> BinomTree rk k' a
forall (rk :: * -> * -> *).
Ranky rk -> BinomTree rk k a -> BinomTree rk k' a
mapKeysMonoTree (Nattish Zero Succ n' -> Nattish Zero Succ rk
forall {k} (zero :: k) (succ :: k -> k) (n :: k) (n' :: k).
(n ~ succ n') =>
Nattish zero succ n' -> Nattish zero succ n
Succy Nattish Zero Succ n'
rky) BinomTree rk k a
t) (rk k' a -> Succ rk k' a) -> rk k' a -> Succ rk k' a
forall a b. (a -> b) -> a -> b
$! Nattish Zero Succ n' -> Succ n' k a -> Succ n' k' a
forall (rk :: * -> * -> *). Ranky rk -> Succ rk k a -> Succ rk k' a
mapKeysMonoTrees Nattish Zero Succ n'
rky rk k a
Succ n' k a
ts
mapMaybeWithKey :: Ord k => (k -> a -> Maybe b) -> MinPQueue k a -> MinPQueue k b
mapMaybeWithKey :: forall k a b.
Ord k =>
(k -> a -> Maybe b) -> MinPQueue k a -> MinPQueue k b
mapMaybeWithKey k -> a -> Maybe b
f = BinomHeap k b -> MinPQueue k b
forall k a. Ord k => BinomHeap k a -> MinPQueue k a
fromBare (BinomHeap k b -> MinPQueue k b)
-> (MinPQueue k a -> BinomHeap k b)
-> MinPQueue k a
-> MinPQueue k b
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
(BinomHeap k b -> k -> a -> BinomHeap k b)
-> BinomHeap k b -> MinPQueue k a -> BinomHeap k b
forall b k a. (b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKeyU'
(\BinomHeap k b
q k
k a
a -> case k -> a -> Maybe b
f k
k a
a of
Maybe b
Nothing -> BinomHeap k b
q
Just b
b -> k -> b -> BinomHeap k b -> BinomHeap k b
forall k a. Ord k => k -> a -> BinomHeap k a -> BinomHeap k a
insertEagerHeap k
k b
b BinomHeap k b
q)
BinomHeap k b
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
{-# INLINABLE mapMaybeWithKey #-}
mapEitherWithKey :: Ord k => (k -> a -> Either b c) -> MinPQueue k a -> (MinPQueue k b, MinPQueue k c)
mapEitherWithKey :: forall k a b c.
Ord k =>
(k -> a -> Either b c)
-> MinPQueue k a -> (MinPQueue k b, MinPQueue k c)
mapEitherWithKey k -> a -> Either b c
f MinPQueue k a
q
| (BinomHeap k b
l, BinomHeap k c
r) <- (k -> a -> Either b c)
-> MinPQueue k a -> (BinomHeap k b, BinomHeap k c)
forall k a b c.
Ord k =>
(k -> a -> Either b c)
-> MinPQueue k a -> (BinomHeap k b, BinomHeap k c)
mapEitherHeap k -> a -> Either b c
f MinPQueue k a
q
, let
!l' :: MinPQueue k b
l' = BinomHeap k b -> MinPQueue k b
forall k a. Ord k => BinomHeap k a -> MinPQueue k a
fromBare BinomHeap k b
l
!r' :: MinPQueue k c
r' = BinomHeap k c -> MinPQueue k c
forall k a. Ord k => BinomHeap k a -> MinPQueue k a
fromBare BinomHeap k c
r
= (MinPQueue k b
l', MinPQueue k c
r')
{-# INLINABLE mapEitherWithKey #-}
data Partition k a b = Partition !(BinomHeap k a) !(BinomHeap k b)
fromPartition :: Partition k a b -> (BinomHeap k a, BinomHeap k b)
fromPartition :: forall k a b. Partition k a b -> (BinomHeap k a, BinomHeap k b)
fromPartition (Partition BinomHeap k a
p BinomHeap k b
q) = (BinomHeap k a
p, BinomHeap k b
q)
mapEitherHeap :: Ord k => (k -> a -> Either b c) -> MinPQueue k a -> (BinomHeap k b, BinomHeap k c)
mapEitherHeap :: forall k a b c.
Ord k =>
(k -> a -> Either b c)
-> MinPQueue k a -> (BinomHeap k b, BinomHeap k c)
mapEitherHeap k -> a -> Either b c
f = Partition k b c -> (BinomHeap k b, BinomHeap k c)
forall k a b. Partition k a b -> (BinomHeap k a, BinomHeap k b)
fromPartition (Partition k b c -> (BinomHeap k b, BinomHeap k c))
-> (MinPQueue k a -> Partition k b c)
-> MinPQueue k a
-> (BinomHeap k b, BinomHeap k c)
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
(Partition k b c -> k -> a -> Partition k b c)
-> Partition k b c -> MinPQueue k a -> Partition k b c
forall b k a. (b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKeyU'
(\(Partition BinomHeap k b
ls BinomHeap k c
rs) k
k a
a ->
case k -> a -> Either b c
f k
k a
a of
Left b
b -> BinomHeap k b -> BinomHeap k c -> Partition k b c
forall k a b. BinomHeap k a -> BinomHeap k b -> Partition k a b
Partition (k -> b -> BinomHeap k b -> BinomHeap k b
forall k a. Ord k => k -> a -> BinomHeap k a -> BinomHeap k a
insertEagerHeap k
k b
b BinomHeap k b
ls) BinomHeap k c
rs
Right c
b -> BinomHeap k b -> BinomHeap k c -> Partition k b c
forall k a b. BinomHeap k a -> BinomHeap k b -> Partition k a b
Partition BinomHeap k b
ls (k -> c -> BinomHeap k c -> BinomHeap k c
forall k a. Ord k => k -> a -> BinomHeap k a -> BinomHeap k a
insertEagerHeap k
k c
b BinomHeap k c
rs))
(BinomHeap k b -> BinomHeap k c -> Partition k b c
forall k a b. BinomHeap k a -> BinomHeap k b -> Partition k a b
Partition BinomHeap k b
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil BinomHeap k c
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil)
insertEagerHeap :: Ord k => k -> a -> BinomHeap k a -> BinomHeap k a
insertEagerHeap :: forall k a. Ord k => k -> a -> BinomHeap k a -> BinomHeap k a
insertEagerHeap k
k a
a BinomHeap k a
h = BinomTree Zero k a -> BinomHeap k a -> BinomHeap k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr' (k -> a -> BinomTree Zero k a
forall k a. k -> a -> BinomTree Zero k a
tip k
k a
a) BinomHeap k a
h
{-# INLINE insertEagerHeap #-}
foldrWithKey :: Ord k => (k -> a -> b -> b) -> b -> MinPQueue k a -> b
foldrWithKey :: forall k a b.
Ord k =>
(k -> a -> b -> b) -> b -> MinPQueue k a -> b
foldrWithKey k -> a -> b -> b
_ b
z MinPQueue k a
Empty = b
z
foldrWithKey k -> a -> b -> b
f b
z (MinPQ Int
_ k
k0 a
a0 BinomHeap k a
ts0) = k -> a -> b -> b
f k
k0 a
a0 (BinomHeap k a -> b
foldF BinomHeap k a
ts0) where
foldF :: BinomHeap k a -> b
foldF BinomHeap k a
ts = case BinomHeap k a -> MExtract Zero k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
extract BinomHeap k a
ts of
Yes (Extract k
k (Zero a
a) BinomHeap k a
ts') -> k -> a -> b -> b
f k
k a
a (BinomHeap k a -> b
foldF BinomHeap k a
ts')
MExtract Zero k a
No -> b
z
foldlWithKey :: Ord k => (b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKey :: forall k b a.
Ord k =>
(b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKey b -> k -> a -> b
_ b
z MinPQueue k a
Empty = b
z
foldlWithKey b -> k -> a -> b
f b
z0 (MinPQ Int
_ k
k0 a
a0 BinomHeap k a
ts0) = b -> BinomHeap k a -> b
foldF (b -> k -> a -> b
f b
z0 k
k0 a
a0) BinomHeap k a
ts0 where
foldF :: b -> BinomHeap k a -> b
foldF b
z BinomHeap k a
ts = case BinomHeap k a -> MExtract Zero k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
extract BinomHeap k a
ts of
Yes (Extract k
k (Zero a
a) BinomHeap k a
ts') -> b -> BinomHeap k a -> b
foldF (b -> k -> a -> b
f b
z k
k a
a) BinomHeap k a
ts'
MExtract Zero k a
No -> b
z
{-# INLINABLE [1] toAscList #-}
toAscList :: Ord k => MinPQueue k a -> [(k, a)]
toAscList :: forall k a. Ord k => MinPQueue k a -> [(k, a)]
toAscList = (k -> a -> [(k, a)] -> [(k, a)])
-> [(k, a)] -> MinPQueue k a -> [(k, a)]
forall k a b.
Ord k =>
(k -> a -> b -> b) -> b -> MinPQueue k a -> b
foldrWithKey (((k, a) -> [(k, a)] -> [(k, a)]) -> k -> a -> [(k, a)] -> [(k, a)]
forall a b c. ((a, b) -> c) -> a -> b -> c
curry (:)) []
{-# INLINABLE [1] toDescList #-}
toDescList :: Ord k => MinPQueue k a -> [(k, a)]
toDescList :: forall k a. Ord k => MinPQueue k a -> [(k, a)]
toDescList = ([(k, a)] -> k -> a -> [(k, a)])
-> [(k, a)] -> MinPQueue k a -> [(k, a)]
forall k b a.
Ord k =>
(b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKey (\[(k, a)]
z k
k a
a -> (k
k, a
a) (k, a) -> [(k, a)] -> [(k, a)]
forall a. a -> [a] -> [a]
: [(k, a)]
z) []
fromAscList :: [(k, a)] -> MinPQueue k a
{-# INLINE fromAscList #-}
fromAscList :: forall k a. [(k, a)] -> MinPQueue k a
fromAscList [(k, a)]
xs = (MinPQueue k a -> (k, a) -> MinPQueue k a)
-> MinPQueue k a -> [(k, a)] -> MinPQueue k a
forall b a. (b -> a -> b) -> b -> [a] -> b
forall (t :: * -> *) b a.
Foldable t =>
(b -> a -> b) -> b -> t a -> b
List.foldl' (\MinPQueue k a
q (k
k, a
a) -> k -> a -> MinPQueue k a -> MinPQueue k a
forall k a. k -> a -> MinPQueue k a -> MinPQueue k a
insertMax' k
k a
a MinPQueue k a
q) MinPQueue k a
forall k a. MinPQueue k a
empty [(k, a)]
xs
{-# RULES
"toAscList" toAscList = \q -> build (\c n -> foldrWithKey (curry c) n q);
"toDescList" toDescList = \q -> build (\c n -> foldlWithKey (\z k a -> (k, a) `c` z) n q);
"toListU" toListU = \q -> build (\c n -> foldrWithKeyU (curry c) n q);
#-}
{-# NOINLINE toListU #-}
toListU :: MinPQueue k a -> [(k, a)]
toListU :: forall k a. MinPQueue k a -> [(k, a)]
toListU = (k -> a -> [(k, a)] -> [(k, a)])
-> [(k, a)] -> MinPQueue k a -> [(k, a)]
forall k a b. (k -> a -> b -> b) -> b -> MinPQueue k a -> b
foldrWithKeyU (((k, a) -> [(k, a)] -> [(k, a)]) -> k -> a -> [(k, a)] -> [(k, a)]
forall a b c. ((a, b) -> c) -> a -> b -> c
curry (:)) []
foldrU :: (a -> b -> b) -> b -> MinPQueue k a -> b
foldrU :: forall a b k. (a -> b -> b) -> b -> MinPQueue k a -> b
foldrU = (k -> a -> b -> b) -> b -> MinPQueue k a -> b
forall k a b. (k -> a -> b -> b) -> b -> MinPQueue k a -> b
foldrWithKeyU ((k -> a -> b -> b) -> b -> MinPQueue k a -> b)
-> ((a -> b -> b) -> k -> a -> b -> b)
-> (a -> b -> b)
-> b
-> MinPQueue k a
-> b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (a -> b -> b) -> k -> a -> b -> b
forall a b. a -> b -> a
const
insertMin :: k -> a -> MinPQueue k a -> MinPQueue k a
insertMin :: forall k a. k -> a -> MinPQueue k a -> MinPQueue k a
insertMin k
k a
a MinPQueue k a
Empty = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
1 k
k a
a BinomHeap k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
insertMin k
k a
a (MinPQ Int
n k
k' a
a' BinomHeap k a
ts) = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) k
k a
a (BinomTree Zero k a -> BinomHeap k a -> BinomHeap k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMin (k -> a -> BinomTree Zero k a
forall k a. k -> a -> BinomTree Zero k a
tip k
k' a
a') BinomHeap k a
ts)
insertMin' :: k -> a -> MinPQueue k a -> MinPQueue k a
insertMin' :: forall k a. k -> a -> MinPQueue k a -> MinPQueue k a
insertMin' k
k a
a MinPQueue k a
Empty = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
1 k
k a
a BinomHeap k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
insertMin' k
k a
a (MinPQ Int
n k
k' a
a' BinomHeap k a
ts) = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) k
k a
a (BinomTree Zero k a -> BinomHeap k a -> BinomHeap k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMin' (k -> a -> BinomTree Zero k a
forall k a. k -> a -> BinomTree Zero k a
tip k
k' a
a') BinomHeap k a
ts)
insertMax' :: k -> a -> MinPQueue k a -> MinPQueue k a
insertMax' :: forall k a. k -> a -> MinPQueue k a -> MinPQueue k a
insertMax' k
k a
a MinPQueue k a
Empty = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
1 k
k a
a BinomHeap k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
insertMax' k
k a
a (MinPQ Int
n k
k' a
a' BinomHeap k a
ts) = Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) k
k' a
a' (BinomTree Zero k a -> BinomHeap k a -> BinomHeap k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMax' (k -> a -> BinomTree Zero k a
forall k a. k -> a -> BinomTree Zero k a
tip k
k a
a) BinomHeap k a
ts)
{-# INLINE fromList #-}
fromList :: Ord k => [(k, a)] -> MinPQueue k a
fromList :: forall k a. Ord k => [(k, a)] -> MinPQueue k a
fromList [(k, a)]
xs = BinomHeap k a -> MinPQueue k a
forall k a. Ord k => BinomHeap k a -> MinPQueue k a
fromBare ([(k, a)] -> BinomHeap k a
forall k a. Ord k => [(k, a)] -> BinomHeap k a
fromListHeap [(k, a)]
xs)
fromBare :: Ord k => BinomHeap k a -> MinPQueue k a
fromBare :: forall k a. Ord k => BinomHeap k a -> MinPQueue k a
fromBare BinomHeap k a
xs = case BinomHeap k a -> MExtract Zero k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
extract BinomHeap k a
xs of
MExtract Zero k a
No -> MinPQueue k a
forall k a. MinPQueue k a
Empty
Yes (Extract k
k (Zero a
v) BinomHeap k a
f) -> Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (BinomHeap k a -> Int
forall k a. BinomHeap k a -> Int
sizeHeap BinomHeap k a
f Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) k
k a
v BinomHeap k a
f
{-# INLINE fromListHeap #-}
fromListHeap :: Ord k => [(k, a)] -> BinomHeap k a
fromListHeap :: forall k a. Ord k => [(k, a)] -> BinomHeap k a
fromListHeap [(k, a)]
xs = (BinomHeap k a -> (k, a) -> BinomHeap k a)
-> BinomHeap k a -> [(k, a)] -> BinomHeap k a
forall b a. (b -> a -> b) -> b -> [a] -> b
forall (t :: * -> *) b a.
Foldable t =>
(b -> a -> b) -> b -> t a -> b
List.foldl' BinomHeap k a -> (k, a) -> BinomHeap k a
forall {k} {a}. Ord k => BinomHeap k a -> (k, a) -> BinomHeap k a
go BinomHeap k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil [(k, a)]
xs
where
go :: BinomHeap k a -> (k, a) -> BinomHeap k a
go BinomHeap k a
fr (k
k, a
a) = k -> a -> BinomHeap k a -> BinomHeap k a
forall k a. Ord k => k -> a -> BinomHeap k a -> BinomHeap k a
insertEagerHeap k
k a
a BinomHeap k a
fr
sizeHeap :: BinomHeap k a -> Int
sizeHeap :: forall k a. BinomHeap k a -> Int
sizeHeap = Int -> Int -> BinomForest Zero k a -> Int
forall (rk :: * -> * -> *) k a.
Int -> Int -> BinomForest rk k a -> Int
go Int
0 Int
1
where
go :: Int -> Int -> BinomForest rk k a -> Int
go :: forall (rk :: * -> * -> *) k a.
Int -> Int -> BinomForest rk k a -> Int
go Int
acc Int
rk BinomForest rk k a
Nil = Int
rk Int -> Int -> Int
forall a b. a -> b -> b
`seq` Int
acc
go Int
acc Int
rk (Skip BinomForest (Succ rk) k a
f) = Int -> Int -> BinomForest (Succ rk) k a -> Int
forall (rk :: * -> * -> *) k a.
Int -> Int -> BinomForest rk k a -> Int
go Int
acc (Int
2 Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
rk) BinomForest (Succ rk) k a
f
go Int
acc Int
rk (Cons BinomTree rk k a
_t BinomForest (Succ rk) k a
f) = Int -> Int -> BinomForest (Succ rk) k a -> Int
forall (rk :: * -> * -> *) k a.
Int -> Int -> BinomForest rk k a -> Int
go (Int
acc Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
rk) (Int
2 Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
rk) BinomForest (Succ rk) k a
f
tip :: k -> a -> BinomTree Zero k a
tip :: forall k a. k -> a -> BinomTree Zero k a
tip k
k a
a = k -> Zero k a -> BinomTree Zero k a
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree k
k (a -> Zero k a
forall k a. a -> Zero k a
Zero a
a)
meld :: Ord k => BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
meld :: forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
meld t1 :: BinomTree rk k a
t1@(BinomTree k
k1 rk k a
ts1) t2 :: BinomTree rk k a
t2@(BinomTree k
k2 rk k a
ts2)
| k
k1 k -> k -> Bool
forall a. Ord a => a -> a -> Bool
<= k
k2 = k -> Succ rk k a -> BinomTree (Succ rk) k a
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree k
k1 (BinomTree rk k a -> rk k a -> Succ rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> rk k a -> Succ rk k a
Succ BinomTree rk k a
t2 rk k a
ts1)
| Bool
otherwise = k -> Succ rk k a -> BinomTree (Succ rk) k a
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree k
k2 (BinomTree rk k a -> rk k a -> Succ rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> rk k a -> Succ rk k a
Succ BinomTree rk k a
t1 rk k a
ts2)
mergeForest :: Ord k => BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
mergeForest :: forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
mergeForest BinomForest rk k a
f1 BinomForest rk k a
f2 = case (BinomForest rk k a
f1, BinomForest rk k a
f2) of
(Skip BinomForest (Succ rk) k a
ts1, Skip BinomForest (Succ rk) k a
ts2) -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
mergeForest BinomForest (Succ rk) k a
ts1 BinomForest (Succ rk) k a
ts2
(Skip BinomForest (Succ rk) k a
ts1, Cons BinomTree rk k a
t2 BinomForest (Succ rk) k a
ts2) -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t2 (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
mergeForest BinomForest (Succ rk) k a
ts1 BinomForest (Succ rk) k a
ts2
(Cons BinomTree rk k a
t1 BinomForest (Succ rk) k a
ts1, Skip BinomForest (Succ rk) k a
ts2) -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t1 (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
mergeForest BinomForest (Succ rk) k a
ts1 BinomForest (Succ rk) k a
ts2
(Cons BinomTree rk k a
t1 BinomForest (Succ rk) k a
ts1, Cons BinomTree rk k a
t2 BinomForest (Succ rk) k a
ts2) -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomTree (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a
-> BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
carryForest (BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
meld BinomTree rk k a
t1 BinomTree rk k a
t2) BinomForest (Succ rk) k a
ts1 BinomForest (Succ rk) k a
ts2
(BinomForest rk k a
Nil, BinomForest rk k a
_) -> BinomForest rk k a
f2
(BinomForest rk k a
_, BinomForest rk k a
Nil) -> BinomForest rk k a
f1
carryForest :: Ord k => BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
carryForest :: forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a
-> BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
carryForest BinomTree rk k a
t0 BinomForest rk k a
f1 BinomForest rk k a
f2 = BinomTree rk k a
t0 BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
forall a b. a -> b -> b
`seq` case (BinomForest rk k a
f1, BinomForest rk k a
f2) of
(Cons BinomTree rk k a
t1 BinomForest (Succ rk) k a
ts1, Cons BinomTree rk k a
t2 BinomForest (Succ rk) k a
ts2) -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t0 (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomTree rk k a
-> BinomTree rk k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
forall {rk :: * -> * -> *} {a}.
BinomTree rk k a
-> BinomTree rk k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
carryMeld BinomTree rk k a
t1 BinomTree rk k a
t2 BinomForest (Succ rk) k a
ts1 BinomForest (Succ rk) k a
ts2
(Cons BinomTree rk k a
t1 BinomForest (Succ rk) k a
ts1, Skip BinomForest (Succ rk) k a
ts2) -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomTree rk k a
-> BinomTree rk k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
forall {rk :: * -> * -> *} {a}.
BinomTree rk k a
-> BinomTree rk k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
carryMeld BinomTree rk k a
t0 BinomTree rk k a
t1 BinomForest (Succ rk) k a
ts1 BinomForest (Succ rk) k a
ts2
(Skip BinomForest (Succ rk) k a
ts1, Cons BinomTree rk k a
t2 BinomForest (Succ rk) k a
ts2) -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomTree rk k a
-> BinomTree rk k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
forall {rk :: * -> * -> *} {a}.
BinomTree rk k a
-> BinomTree rk k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
carryMeld BinomTree rk k a
t0 BinomTree rk k a
t2 BinomForest (Succ rk) k a
ts1 BinomForest (Succ rk) k a
ts2
(Skip BinomForest (Succ rk) k a
ts1, Skip BinomForest (Succ rk) k a
ts2) -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t0 (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
mergeForest BinomForest (Succ rk) k a
ts1 BinomForest (Succ rk) k a
ts2
(BinomForest rk k a
Nil, BinomForest rk k a
_) -> BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr BinomTree rk k a
t0 BinomForest rk k a
f2
(BinomForest rk k a
_, BinomForest rk k a
Nil) -> BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr BinomTree rk k a
t0 BinomForest rk k a
f1
where carryMeld :: BinomTree rk k a
-> BinomTree rk k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
carryMeld = BinomTree (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a
-> BinomForest rk k a -> BinomForest rk k a -> BinomForest rk k a
carryForest (BinomTree (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a)
-> (BinomTree rk k a
-> BinomTree rk k a -> BinomTree (Succ rk) k a)
-> BinomTree rk k a
-> BinomTree rk k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
-> BinomForest (Succ rk) k a
forall c d a b. (c -> d) -> (a -> b -> c) -> a -> b -> d
.: BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
meld
incr :: Ord k => BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr :: forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr BinomTree rk k a
t BinomForest rk k a
ts = BinomTree rk k a
t BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
forall a b. a -> b -> b
`seq` case BinomForest rk k a
ts of
BinomForest rk k a
Nil -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
Skip BinomForest (Succ rk) k a
ts' -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
ts'
Cons BinomTree rk k a
t' BinomForest (Succ rk) k a
ts' -> BinomForest (Succ rk) k a
ts' BinomForest (Succ rk) k a
-> BinomForest rk k a -> BinomForest rk k a
forall a b. a -> b -> b
`seq` BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomTree (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr (BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
meld BinomTree rk k a
t BinomTree rk k a
t') BinomForest (Succ rk) k a
ts')
incr' :: Ord k => BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr' :: forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr' BinomTree rk k a
t BinomForest rk k a
ts = BinomTree rk k a
t BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
forall a b. a -> b -> b
`seq` case BinomForest rk k a
ts of
BinomForest rk k a
Nil -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
Skip BinomForest (Succ rk) k a
ts' -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
ts'
Cons BinomTree rk k a
t' BinomForest (Succ rk) k a
ts' -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomTree (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr' (BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
meld BinomTree rk k a
t BinomTree rk k a
t') BinomForest (Succ rk) k a
ts'
incrMin :: BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMin :: forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMin t :: BinomTree rk k a
t@(BinomTree k
k rk k a
ts) BinomForest rk k a
tss = case BinomForest rk k a
tss of
BinomForest rk k a
Nil -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
Skip BinomForest (Succ rk) k a
tss' -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
tss'
Cons BinomTree rk k a
t' BinomForest (Succ rk) k a
tss' -> BinomForest (Succ rk) k a
tss' BinomForest (Succ rk) k a
-> BinomForest rk k a -> BinomForest rk k a
forall a b. a -> b -> b
`seq` BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomTree (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMin (k -> Succ rk k a -> BinomTree (Succ rk) k a
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree k
k (BinomTree rk k a -> rk k a -> Succ rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> rk k a -> Succ rk k a
Succ BinomTree rk k a
t' rk k a
ts)) BinomForest (Succ rk) k a
tss')
incrMin' :: BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMin' :: forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMin' t :: BinomTree rk k a
t@(BinomTree k
k rk k a
ts) BinomForest rk k a
tss = case BinomForest rk k a
tss of
BinomForest rk k a
Nil -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
Skip BinomForest (Succ rk) k a
tss' -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
tss'
Cons BinomTree rk k a
t' BinomForest (Succ rk) k a
tss' -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomTree (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMin' (k -> Succ rk k a -> BinomTree (Succ rk) k a
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree k
k (BinomTree rk k a -> rk k a -> Succ rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> rk k a -> Succ rk k a
Succ BinomTree rk k a
t' rk k a
ts)) BinomForest (Succ rk) k a
tss'
incrMax' :: BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMax' :: forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMax' BinomTree rk k a
t BinomForest rk k a
tss = BinomTree rk k a
t BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
forall a b. a -> b -> b
`seq` case BinomForest rk k a
tss of
BinomForest rk k a
Nil -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
Skip BinomForest (Succ rk) k a
tss' -> BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
t BinomForest (Succ rk) k a
tss'
Cons (BinomTree k
k rk k a
ts) BinomForest (Succ rk) k a
tss' -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomTree (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incrMax' (k -> Succ rk k a -> BinomTree (Succ rk) k a
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree k
k (BinomTree rk k a -> rk k a -> Succ rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> rk k a -> Succ rk k a
Succ BinomTree rk k a
t rk k a
ts)) BinomForest (Succ rk) k a
tss'
extractHeap :: Ord k => Int -> BinomHeap k a -> MinPQueue k a
Int
n BinomHeap k a
ts = Int
n Int -> MinPQueue k a -> MinPQueue k a
forall a b. a -> b -> b
`seq` case BinomHeap k a -> MExtract Zero k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
extract BinomHeap k a
ts of
MExtract Zero k a
No -> MinPQueue k a
forall k a. MinPQueue k a
Empty
Yes (Extract k
k (Zero a
a) BinomHeap k a
ts') -> Int -> k -> a -> BinomHeap k a -> MinPQueue k a
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ (Int
n Int -> Int -> Int
forall a. Num a => a -> a -> a
- Int
1) k
k a
a BinomHeap k a
ts'
data rk k a = !k (rk k a) !(BinomForest rk k a)
data rk k a = No | Yes {-# UNPACK #-} !(Extract rk k a)
incrExtract :: Extract (Succ rk) k a -> Extract rk k a
(Extract k
minKey (Succ BinomTree rk k a
kChild rk k a
kChildren) BinomForest (Succ rk) k a
ts)
= k -> rk k a -> BinomForest rk k a -> Extract rk k a
forall (rk :: * -> * -> *) k a.
k -> rk k a -> BinomForest rk k a -> Extract rk k a
Extract k
minKey rk k a
kChildren (BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k a
kChild BinomForest (Succ rk) k a
ts)
incrExtract' :: Ord k => BinomTree rk k a -> Extract (Succ rk) k a -> Extract rk k a
BinomTree rk k a
t (Extract k
minKey (Succ BinomTree rk k a
kChild rk k a
kChildren) BinomForest (Succ rk) k a
ts)
= k -> rk k a -> BinomForest rk k a -> Extract rk k a
forall (rk :: * -> * -> *) k a.
k -> rk k a -> BinomForest rk k a -> Extract rk k a
Extract k
minKey rk k a
kChildren (BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k a -> BinomForest rk k a)
-> BinomForest (Succ rk) k a -> BinomForest rk k a
forall a b. (a -> b) -> a -> b
$! BinomTree (Succ rk) k a
-> BinomForest (Succ rk) k a -> BinomForest (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomForest rk k a -> BinomForest rk k a
incr' (BinomTree rk k a
t BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> BinomTree rk k a -> BinomTree (Succ rk) k a
`meld` BinomTree rk k a
kChild) BinomForest (Succ rk) k a
ts)
extract :: Ord k => BinomForest rk k a -> MExtract rk k a
= BinomForest rk k a -> MExtract rk k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
start
where
start :: Ord k => BinomForest rk k a -> MExtract rk k a
start :: forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
start BinomForest rk k a
Nil = MExtract rk k a
forall (rk :: * -> * -> *) k a. MExtract rk k a
No
start (Skip BinomForest (Succ rk) k a
f) = case BinomForest (Succ rk) k a -> MExtract (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomForest rk k a -> MExtract rk k a
start BinomForest (Succ rk) k a
f of
MExtract (Succ rk) k a
No -> MExtract rk k a
forall (rk :: * -> * -> *) k a. MExtract rk k a
No
Yes Extract (Succ rk) k a
ex -> Extract rk k a -> MExtract rk k a
forall (rk :: * -> * -> *) k a. Extract rk k a -> MExtract rk k a
Yes (Extract (Succ rk) k a -> Extract rk k a
forall (rk :: * -> * -> *) k a.
Extract (Succ rk) k a -> Extract rk k a
incrExtract Extract (Succ rk) k a
ex)
start (Cons t :: BinomTree rk k a
t@(BinomTree k
k rk k a
ts) BinomForest (Succ rk) k a
f) = Extract rk k a -> MExtract rk k a
forall (rk :: * -> * -> *) k a. Extract rk k a -> MExtract rk k a
Yes (Extract rk k a -> MExtract rk k a)
-> Extract rk k a -> MExtract rk k a
forall a b. (a -> b) -> a -> b
$ case k -> BinomForest (Succ rk) k a -> MExtract (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
k -> BinomForest rk k a -> MExtract rk k a
go k
k BinomForest (Succ rk) k a
f of
MExtract (Succ rk) k a
No -> k -> rk k a -> BinomForest rk k a -> Extract rk k a
forall (rk :: * -> * -> *) k a.
k -> rk k a -> BinomForest rk k a -> Extract rk k a
Extract k
k rk k a
ts (BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
skip BinomForest (Succ rk) k a
f)
Yes Extract (Succ rk) k a
ex -> BinomTree rk k a -> Extract (Succ rk) k a -> Extract rk k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> Extract (Succ rk) k a -> Extract rk k a
incrExtract' BinomTree rk k a
t Extract (Succ rk) k a
ex
go :: Ord k => k -> BinomForest rk k a -> MExtract rk k a
go :: forall k (rk :: * -> * -> *) a.
Ord k =>
k -> BinomForest rk k a -> MExtract rk k a
go k
_min_above BinomForest rk k a
Nil = k
_min_above k -> MExtract rk k a -> MExtract rk k a
forall a b. a -> b -> b
`seq` MExtract rk k a
forall (rk :: * -> * -> *) k a. MExtract rk k a
No
go k
min_above (Skip BinomForest (Succ rk) k a
f) = case k -> BinomForest (Succ rk) k a -> MExtract (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
k -> BinomForest rk k a -> MExtract rk k a
go k
min_above BinomForest (Succ rk) k a
f of
MExtract (Succ rk) k a
No -> MExtract rk k a
forall (rk :: * -> * -> *) k a. MExtract rk k a
No
Yes Extract (Succ rk) k a
ex -> Extract rk k a -> MExtract rk k a
forall (rk :: * -> * -> *) k a. Extract rk k a -> MExtract rk k a
Yes (Extract (Succ rk) k a -> Extract rk k a
forall (rk :: * -> * -> *) k a.
Extract (Succ rk) k a -> Extract rk k a
incrExtract Extract (Succ rk) k a
ex)
go k
min_above (Cons t :: BinomTree rk k a
t@(BinomTree k
k rk k a
ts) BinomForest (Succ rk) k a
f)
| k
min_above k -> k -> Bool
forall a. Ord a => a -> a -> Bool
<= k
k = case k -> BinomForest (Succ rk) k a -> MExtract (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
k -> BinomForest rk k a -> MExtract rk k a
go k
min_above BinomForest (Succ rk) k a
f of
MExtract (Succ rk) k a
No -> MExtract rk k a
forall (rk :: * -> * -> *) k a. MExtract rk k a
No
Yes Extract (Succ rk) k a
ex -> Extract rk k a -> MExtract rk k a
forall (rk :: * -> * -> *) k a. Extract rk k a -> MExtract rk k a
Yes (BinomTree rk k a -> Extract (Succ rk) k a -> Extract rk k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> Extract (Succ rk) k a -> Extract rk k a
incrExtract' BinomTree rk k a
t Extract (Succ rk) k a
ex)
| Bool
otherwise = case k -> BinomForest (Succ rk) k a -> MExtract (Succ rk) k a
forall k (rk :: * -> * -> *) a.
Ord k =>
k -> BinomForest rk k a -> MExtract rk k a
go k
k BinomForest (Succ rk) k a
f of
MExtract (Succ rk) k a
No -> Extract rk k a -> MExtract rk k a
forall (rk :: * -> * -> *) k a. Extract rk k a -> MExtract rk k a
Yes (k -> rk k a -> BinomForest rk k a -> Extract rk k a
forall (rk :: * -> * -> *) k a.
k -> rk k a -> BinomForest rk k a -> Extract rk k a
Extract k
k rk k a
ts (BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
skip BinomForest (Succ rk) k a
f))
Yes Extract (Succ rk) k a
ex -> Extract rk k a -> MExtract rk k a
forall (rk :: * -> * -> *) k a. Extract rk k a -> MExtract rk k a
Yes (BinomTree rk k a -> Extract (Succ rk) k a -> Extract rk k a
forall k (rk :: * -> * -> *) a.
Ord k =>
BinomTree rk k a -> Extract (Succ rk) k a -> Extract rk k a
incrExtract' BinomTree rk k a
t Extract (Succ rk) k a
ex)
skip :: BinomForest (Succ rk) k a -> BinomForest rk k a
skip :: forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
skip BinomForest (Succ rk) k a
Nil = BinomForest rk k a
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
skip BinomForest (Succ rk) k a
f = BinomForest (Succ rk) k a -> BinomForest rk k a
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip BinomForest (Succ rk) k a
f
{-# INLINE skip #-}
foldrWithKeyU :: (k -> a -> b -> b) -> b -> MinPQueue k a -> b
foldrWithKeyU :: forall k a b. (k -> a -> b -> b) -> b -> MinPQueue k a -> b
foldrWithKeyU k -> a -> b -> b
c b
n = (Endo b -> b -> b) -> b -> Endo b -> b
forall a b c. (a -> b -> c) -> b -> a -> c
flip Endo b -> b -> b
forall a. Endo a -> a -> a
appEndo b
n (Endo b -> b) -> (MinPQueue k a -> Endo b) -> MinPQueue k a -> b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ((k -> a -> Endo b) -> MinPQueue k a -> Endo b)
-> (k -> a -> Endo b) -> MinPQueue k a -> Endo b
forall a. a -> a
inline (k -> a -> Endo b) -> MinPQueue k a -> Endo b
forall m k a. Monoid m => (k -> a -> m) -> MinPQueue k a -> m
foldMapWithKeyU ((k -> a -> b -> b) -> k -> a -> Endo b
forall a b. Coercible a b => a -> b
coerce k -> a -> b -> b
c)
foldMapWithKeyU :: forall m k a. Monoid m => (k -> a -> m) -> MinPQueue k a -> m
foldMapWithKeyU :: forall m k a. Monoid m => (k -> a -> m) -> MinPQueue k a -> m
foldMapWithKeyU = ((k -> a -> Const m ())
-> MinPQueue k a -> Const m (MinPQueue k ()))
-> (k -> a -> m) -> MinPQueue k a -> m
forall a b. Coercible a b => a -> b
coerce
(((k -> a -> Const m ())
-> MinPQueue k a -> Const m (MinPQueue k ()))
-> (k -> a -> Const m ())
-> MinPQueue k a
-> Const m (MinPQueue k ())
forall a. a -> a
inline (k -> a -> Const m ()) -> MinPQueue k a -> Const m (MinPQueue k ())
forall (f :: * -> *) k a b.
Applicative f =>
(k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKeyU :: (k -> a -> Const m ()) -> MinPQueue k a -> Const m (MinPQueue k ()))
foldlWithKeyU :: (b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKeyU :: forall b k a. (b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKeyU b -> k -> a -> b
f b
b = (Endo b -> b -> b) -> b -> Endo b -> b
forall a b c. (a -> b -> c) -> b -> a -> c
flip Endo b -> b -> b
forall a. Endo a -> a -> a
appEndo b
b (Endo b -> b) -> (MinPQueue k a -> Endo b) -> MinPQueue k a -> b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Dual (Endo b) -> Endo b
forall a. Dual a -> a
getDual (Dual (Endo b) -> Endo b)
-> (MinPQueue k a -> Dual (Endo b)) -> MinPQueue k a -> Endo b
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
(k -> a -> Dual (Endo b)) -> MinPQueue k a -> Dual (Endo b)
forall m k a. Monoid m => (k -> a -> m) -> MinPQueue k a -> m
foldMapWithKeyU (\k
k a
a -> Endo b -> Dual (Endo b)
forall a. a -> Dual a
Dual (Endo b -> Dual (Endo b)) -> Endo b -> Dual (Endo b)
forall a b. (a -> b) -> a -> b
$ (b -> b) -> Endo b
forall a. (a -> a) -> Endo a
Endo ((b -> b) -> Endo b) -> (b -> b) -> Endo b
forall a b. (a -> b) -> a -> b
$ \b
r -> b -> k -> a -> b
f b
r k
k a
a)
foldlWithKeyU' :: (b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKeyU' :: forall b k a. (b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKeyU' b -> k -> a -> b
f !b
b MinPQueue k a
q =
case MinPQueue k a
q of
MinPQueue k a
Empty -> b
b
MinPQ Int
_n k
k a
a BinomHeap k a
ts -> (b -> k -> a -> b) -> b -> BinomHeap k a -> b
forall k a b. (b -> k -> a -> b) -> b -> BinomHeap k a -> b
foldlHeapU' b -> k -> a -> b
f (b -> k -> a -> b
f b
b k
k a
a) BinomHeap k a
ts
foldlHeapU' :: forall k a b. (b -> k -> a -> b) -> b -> BinomHeap k a -> b
foldlHeapU' :: forall k a b. (b -> k -> a -> b) -> b -> BinomHeap k a -> b
foldlHeapU' b -> k -> a -> b
f = \b
b -> Ranky Zero -> b -> BinomHeap k a -> b
forall (rk :: * -> * -> *).
Ranky rk -> b -> BinomForest rk k a -> b
foldlForest' Ranky Zero
forall {k} (zero :: k) (succ :: k -> k) (n :: k).
(n ~ zero) =>
Nattish zero succ n
Zeroy b
b
where
foldlForest' :: Ranky rk -> b -> BinomForest rk k a -> b
foldlForest' :: forall (rk :: * -> * -> *).
Ranky rk -> b -> BinomForest rk k a -> b
foldlForest' !Ranky rk
_rky !b
acc BinomForest rk k a
Nil = b
acc
foldlForest' !Ranky rk
rky !b
acc (Skip BinomForest (Succ rk) k a
rest) = Ranky (Succ rk) -> b -> BinomForest (Succ rk) k a -> b
forall (rk :: * -> * -> *).
Ranky rk -> b -> BinomForest rk k a -> b
foldlForest' (Ranky rk -> Ranky (Succ rk)
forall {k} (zero :: k) (succ :: k -> k) (n :: k) (n' :: k).
(n ~ succ n') =>
Nattish zero succ n' -> Nattish zero succ n
Succy Ranky rk
rky) b
acc BinomForest (Succ rk) k a
rest
foldlForest' !Ranky rk
rky !b
acc (Cons BinomTree rk k a
t BinomForest (Succ rk) k a
rest) =
Ranky (Succ rk) -> b -> BinomForest (Succ rk) k a -> b
forall (rk :: * -> * -> *).
Ranky rk -> b -> BinomForest rk k a -> b
foldlForest' (Ranky rk -> Ranky (Succ rk)
forall {k} (zero :: k) (succ :: k -> k) (n :: k) (n' :: k).
(n ~ succ n') =>
Nattish zero succ n' -> Nattish zero succ n
Succy Ranky rk
rky) (Ranky rk -> b -> BinomTree rk k a -> b
forall (rk :: * -> * -> *). Ranky rk -> b -> BinomTree rk k a -> b
foldlTree' Ranky rk
rky b
acc BinomTree rk k a
t) BinomForest (Succ rk) k a
rest
{-# INLINE foldlTree' #-}
foldlTree' :: Ranky rk -> b -> BinomTree rk k a -> b
foldlTree' :: forall (rk :: * -> * -> *). Ranky rk -> b -> BinomTree rk k a -> b
foldlTree' !Ranky rk
rky !b
acc (BinomTree k
k rk k a
ts) = Ranky rk -> b -> k -> rk k a -> b
forall (rk :: * -> * -> *). Ranky rk -> b -> k -> rk k a -> b
foldlTrees' Ranky rk
rky b
acc k
k rk k a
ts
foldlTrees' :: Ranky rk -> b -> k -> rk k a -> b
foldlTrees' :: forall (rk :: * -> * -> *). Ranky rk -> b -> k -> rk k a -> b
foldlTrees' Nattish Zero Succ rk
Zeroy !b
acc !k
k (Zero a
a) = b -> k -> a -> b
f b
acc k
k a
a
foldlTrees' (Succy Nattish Zero Succ n'
rky) !b
acc !k
k (Succ BinomTree n' k a
t n' k a
ts) =
Nattish Zero Succ n' -> b -> k -> n' k a -> b
forall (rk :: * -> * -> *). Ranky rk -> b -> k -> rk k a -> b
foldlTrees' Nattish Zero Succ n'
rky (Nattish Zero Succ n' -> b -> BinomTree n' k a -> b
forall (rk :: * -> * -> *). Ranky rk -> b -> BinomTree rk k a -> b
foldlTree' Nattish Zero Succ n'
rky b
acc BinomTree n' k a
t) k
k n' k a
ts
traverseWithKey :: (Ord k, Applicative f) => (k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKey :: forall k (f :: * -> *) a b.
(Ord k, Applicative f) =>
(k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKey k -> a -> f b
f MinPQueue k a
q = case MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
forall k a. Ord k => MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
minViewWithKey MinPQueue k a
q of
Maybe ((k, a), MinPQueue k a)
Nothing -> MinPQueue k b -> f (MinPQueue k b)
forall a. a -> f a
forall (f :: * -> *) a. Applicative f => a -> f a
pure MinPQueue k b
forall k a. MinPQueue k a
empty
Just ((k
k, a
a), MinPQueue k a
q') -> (b -> MinPQueue k b -> MinPQueue k b)
-> f b -> f (MinPQueue k b) -> f (MinPQueue k b)
forall a b c. (a -> b -> c) -> f a -> f b -> f c
forall (f :: * -> *) a b c.
Applicative f =>
(a -> b -> c) -> f a -> f b -> f c
liftA2 (k -> b -> MinPQueue k b -> MinPQueue k b
forall k a. k -> a -> MinPQueue k a -> MinPQueue k a
insertMin k
k) (k -> a -> f b
f k
k a
a) ((k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
forall k (f :: * -> *) a b.
(Ord k, Applicative f) =>
(k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKey k -> a -> f b
f MinPQueue k a
q')
mapMWithKey :: (Ord k, Monad m) => (k -> a -> m b) -> MinPQueue k a -> m (MinPQueue k b)
mapMWithKey :: forall k (m :: * -> *) a b.
(Ord k, Monad m) =>
(k -> a -> m b) -> MinPQueue k a -> m (MinPQueue k b)
mapMWithKey k -> a -> m b
f = MinPQueue k b -> MinPQueue k a -> m (MinPQueue k b)
go MinPQueue k b
forall k a. MinPQueue k a
empty
where
go :: MinPQueue k b -> MinPQueue k a -> m (MinPQueue k b)
go !MinPQueue k b
acc MinPQueue k a
q =
case MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
forall k a. Ord k => MinPQueue k a -> Maybe ((k, a), MinPQueue k a)
minViewWithKey MinPQueue k a
q of
Maybe ((k, a), MinPQueue k a)
Nothing -> MinPQueue k b -> m (MinPQueue k b)
forall a. a -> m a
forall (f :: * -> *) a. Applicative f => a -> f a
pure MinPQueue k b
acc
Just ((k
k, a
a), MinPQueue k a
q') -> do
b
b <- k -> a -> m b
f k
k a
a
let !acc' :: MinPQueue k b
acc' = k -> b -> MinPQueue k b -> MinPQueue k b
forall k a. k -> a -> MinPQueue k a -> MinPQueue k a
insertMax' k
k b
b MinPQueue k b
acc
MinPQueue k b -> MinPQueue k a -> m (MinPQueue k b)
go MinPQueue k b
acc' MinPQueue k a
q'
type Ranky = Nattish Zero Succ
{-# INLINABLE traverseWithKeyU #-}
traverseWithKeyU :: forall f k a b. Applicative f => (k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKeyU :: forall (f :: * -> *) k a b.
Applicative f =>
(k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKeyU k -> a -> f b
_ MinPQueue k a
Empty = MinPQueue k b -> f (MinPQueue k b)
forall a. a -> f a
forall (f :: * -> *) a. Applicative f => a -> f a
pure MinPQueue k b
forall k a. MinPQueue k a
Empty
traverseWithKeyU k -> a -> f b
f (MinPQ Int
n k
k a
a BinomHeap k a
ts) = (b -> BinomHeap k b -> MinPQueue k b)
-> f b -> f (BinomHeap k b) -> f (MinPQueue k b)
forall a b c. (a -> b -> c) -> f a -> f b -> f c
forall (f :: * -> *) a b c.
Applicative f =>
(a -> b -> c) -> f a -> f b -> f c
liftA2 (\b
a' !BinomHeap k b
ts' -> Int -> k -> b -> BinomHeap k b -> MinPQueue k b
forall k a. Int -> k -> a -> BinomHeap k a -> MinPQueue k a
MinPQ Int
n k
k b
a' BinomHeap k b
ts') (k -> a -> f b
f k
k a
a) ((k -> a -> f b) -> BinomHeap k a -> f (BinomHeap k b)
forall (f :: * -> *) k a b.
Applicative f =>
(k -> a -> f b) -> BinomHeap k a -> f (BinomHeap k b)
traverseHeapU k -> a -> f b
f BinomHeap k a
ts)
{-# INLINABLE traverseHeapU #-}
traverseHeapU :: forall f k a b. Applicative f => (k -> a -> f b) -> BinomHeap k a -> f (BinomHeap k b)
traverseHeapU :: forall (f :: * -> *) k a b.
Applicative f =>
(k -> a -> f b) -> BinomHeap k a -> f (BinomHeap k b)
traverseHeapU k -> a -> f b
f = Ranky Zero -> BinomForest Zero k a -> f (BinomForest Zero k b)
forall (rk :: * -> * -> *).
Ranky rk -> BinomForest rk k a -> f (BinomForest rk k b)
traverseForest Ranky Zero
forall {k} (zero :: k) (succ :: k -> k) (n :: k).
(n ~ zero) =>
Nattish zero succ n
Zeroy
where
traverseForest :: Ranky rk -> BinomForest rk k a -> f (BinomForest rk k b)
traverseForest :: forall (rk :: * -> * -> *).
Ranky rk -> BinomForest rk k a -> f (BinomForest rk k b)
traverseForest !Ranky rk
_rky BinomForest rk k a
Nil = BinomForest rk k b -> f (BinomForest rk k b)
forall a. a -> f a
forall (f :: * -> *) a. Applicative f => a -> f a
pure BinomForest rk k b
forall (rk :: * -> * -> *) k a. BinomForest rk k a
Nil
traverseForest !Ranky rk
rky (Skip BinomForest (Succ rk) k a
rest) = (BinomForest (Succ rk) k b -> BinomForest rk k b
forall (rk :: * -> * -> *) k a.
BinomForest (Succ rk) k a -> BinomForest rk k a
Skip (BinomForest (Succ rk) k b -> BinomForest rk k b)
-> BinomForest (Succ rk) k b -> BinomForest rk k b
forall a b. (a -> b) -> a -> b
$!) (BinomForest (Succ rk) k b -> BinomForest rk k b)
-> f (BinomForest (Succ rk) k b) -> f (BinomForest rk k b)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Ranky (Succ rk)
-> BinomForest (Succ rk) k a -> f (BinomForest (Succ rk) k b)
forall (rk :: * -> * -> *).
Ranky rk -> BinomForest rk k a -> f (BinomForest rk k b)
traverseForest (Ranky rk -> Ranky (Succ rk)
forall {k} (zero :: k) (succ :: k -> k) (n :: k) (n' :: k).
(n ~ succ n') =>
Nattish zero succ n' -> Nattish zero succ n
Succy Ranky rk
rky) BinomForest (Succ rk) k a
rest
traverseForest !Ranky rk
rky (Cons BinomTree rk k a
t BinomForest (Succ rk) k a
rest) =
(BinomTree rk k b
-> BinomForest (Succ rk) k b -> BinomForest rk k b)
-> f (BinomTree rk k b)
-> f (BinomForest (Succ rk) k b)
-> f (BinomForest rk k b)
forall a b c. (a -> b -> c) -> f a -> f b -> f c
forall (f :: * -> *) a b c.
Applicative f =>
(a -> b -> c) -> f a -> f b -> f c
liftA2 (\ !BinomTree rk k b
t' !BinomForest (Succ rk) k b
rest' -> BinomTree rk k b -> BinomForest (Succ rk) k b -> BinomForest rk k b
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> BinomForest (Succ rk) k a -> BinomForest rk k a
Cons BinomTree rk k b
t' BinomForest (Succ rk) k b
rest') (Ranky rk -> BinomTree rk k a -> f (BinomTree rk k b)
forall (rk :: * -> * -> *).
Ranky rk -> BinomTree rk k a -> f (BinomTree rk k b)
traverseTree Ranky rk
rky BinomTree rk k a
t) (Ranky (Succ rk)
-> BinomForest (Succ rk) k a -> f (BinomForest (Succ rk) k b)
forall (rk :: * -> * -> *).
Ranky rk -> BinomForest rk k a -> f (BinomForest rk k b)
traverseForest (Ranky rk -> Ranky (Succ rk)
forall {k} (zero :: k) (succ :: k -> k) (n :: k) (n' :: k).
(n ~ succ n') =>
Nattish zero succ n' -> Nattish zero succ n
Succy Ranky rk
rky) BinomForest (Succ rk) k a
rest)
{-# INLINE traverseTree #-}
traverseTree :: Ranky rk -> BinomTree rk k a -> f (BinomTree rk k b)
traverseTree :: forall (rk :: * -> * -> *).
Ranky rk -> BinomTree rk k a -> f (BinomTree rk k b)
traverseTree Nattish Zero Succ rk
Zeroy (BinomTree k
k (Zero a
a)) =
k -> rk k b -> BinomTree rk k b
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree k
k (rk k b -> BinomTree rk k b)
-> (b -> rk k b) -> b -> BinomTree rk k b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. b -> rk k b
b -> Zero k b
forall k a. a -> Zero k a
Zero (b -> BinomTree rk k b) -> f b -> f (BinomTree rk k b)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> k -> a -> f b
f k
k a
a
traverseTree (Succy Nattish Zero Succ n'
rky) (BinomTree k
k rk k a
ts) =
(k -> rk k b -> BinomTree rk k b
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree k
k (rk k b -> BinomTree rk k b) -> rk k b -> BinomTree rk k b
forall a b. (a -> b) -> a -> b
$!) (rk k b -> BinomTree rk k b) -> f (rk k b) -> f (BinomTree rk k b)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Nattish Zero Succ n' -> k -> Succ n' k a -> f (Succ n' k b)
forall (rk :: * -> * -> *).
Ranky rk -> k -> Succ rk k a -> f (Succ rk k b)
traverseTrees Nattish Zero Succ n'
rky k
k rk k a
Succ n' k a
ts
traverseTrees :: Ranky rk -> k -> Succ rk k a -> f (Succ rk k b)
traverseTrees :: forall (rk :: * -> * -> *).
Ranky rk -> k -> Succ rk k a -> f (Succ rk k b)
traverseTrees Nattish Zero Succ rk
Zeroy !k
k2 (Succ (BinomTree k
k1 (Zero a
a1)) (Zero a
a2)) =
(b -> b -> Succ rk k b) -> f b -> f b -> f (Succ rk k b)
forall a b c. (a -> b -> c) -> f a -> f b -> f c
forall (f :: * -> *) a b c.
Applicative f =>
(a -> b -> c) -> f a -> f b -> f c
liftA2 (\b
b1 b
b2 -> BinomTree rk k b -> rk k b -> Succ rk k b
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> rk k a -> Succ rk k a
Succ (k -> rk k b -> BinomTree rk k b
forall (rk :: * -> * -> *) k a. k -> rk k a -> BinomTree rk k a
BinomTree k
k1 (b -> Zero k b
forall k a. a -> Zero k a
Zero b
b1)) (b -> Zero k b
forall k a. a -> Zero k a
Zero b
b2)) (k -> a -> f b
f k
k1 a
a1) (k -> a -> f b
f k
k2 a
a2)
traverseTrees (Succy Nattish Zero Succ n'
rky) !k
k (Succ BinomTree rk k a
t rk k a
ts) =
(BinomTree rk k b -> rk k b -> Succ rk k b)
-> f (BinomTree rk k b) -> f (rk k b) -> f (Succ rk k b)
forall a b c. (a -> b -> c) -> f a -> f b -> f c
forall (f :: * -> *) a b c.
Applicative f =>
(a -> b -> c) -> f a -> f b -> f c
liftA2 (\ !BinomTree rk k b
t' !rk k b
ts' -> BinomTree rk k b -> rk k b -> Succ rk k b
forall (rk :: * -> * -> *) k a.
BinomTree rk k a -> rk k a -> Succ rk k a
Succ BinomTree rk k b
t' rk k b
ts') (Nattish Zero Succ rk -> BinomTree rk k a -> f (BinomTree rk k b)
forall (rk :: * -> * -> *).
Ranky rk -> BinomTree rk k a -> f (BinomTree rk k b)
traverseTree (Nattish Zero Succ n' -> Nattish Zero Succ rk
forall {k} (zero :: k) (succ :: k -> k) (n :: k) (n' :: k).
(n ~ succ n') =>
Nattish zero succ n' -> Nattish zero succ n
Succy Nattish Zero Succ n'
rky) BinomTree rk k a
t) (Nattish Zero Succ n' -> k -> Succ n' k a -> f (Succ n' k b)
forall (rk :: * -> * -> *).
Ranky rk -> k -> Succ rk k a -> f (Succ rk k b)
traverseTrees Nattish Zero Succ n'
rky k
k rk k a
Succ n' k a
ts)
{-# DEPRECATED seqSpine "This function is no longer necessary or useful." #-}
seqSpine :: MinPQueue k a -> b -> b
seqSpine :: forall k a b. MinPQueue k a -> b -> b
seqSpine MinPQueue k a
Empty b
z0 = b
z0
seqSpine (MinPQ Int
_ k
_ a
_ BinomHeap k a
ts0) b
z0 = BinomHeap k a
ts0 BinomHeap k a -> b -> b
forall (rk :: * -> * -> *) k a b. BinomForest rk k a -> b -> b
`seqSpineF` b
z0 where
seqSpineF :: BinomForest rk k a -> b -> b
seqSpineF :: forall (rk :: * -> * -> *) k a b. BinomForest rk k a -> b -> b
seqSpineF BinomForest rk k a
ts b
z = case BinomForest rk k a
ts of
BinomForest rk k a
Nil -> b
z
Skip BinomForest (Succ rk) k a
ts' -> BinomForest (Succ rk) k a -> b -> b
forall (rk :: * -> * -> *) k a b. BinomForest rk k a -> b -> b
seqSpineF BinomForest (Succ rk) k a
ts' b
z
Cons BinomTree rk k a
_ BinomForest (Succ rk) k a
ts' -> BinomForest (Succ rk) k a -> b -> b
forall (rk :: * -> * -> *) k a b. BinomForest rk k a -> b -> b
seqSpineF BinomForest (Succ rk) k a
ts' b
z
class NFRank rk where
rnfRk :: (NFData k, NFData a) => rk k a -> ()
instance NFRank Zero where
rnfRk :: forall k a. (NFData k, NFData a) => Zero k a -> ()
rnfRk (Zero a
a) = a -> ()
forall a. NFData a => a -> ()
rnf a
a
instance NFRank rk => NFRank (Succ rk) where
rnfRk :: forall k a. (NFData k, NFData a) => Succ rk k a -> ()
rnfRk (Succ BinomTree rk k a
t rk k a
ts) = BinomTree rk k a
t BinomTree rk k a -> () -> ()
forall a b. NFData a => a -> b -> b
`deepseq` rk k a -> ()
forall k a. (NFData k, NFData a) => rk k a -> ()
forall (rk :: * -> * -> *) k a.
(NFRank rk, NFData k, NFData a) =>
rk k a -> ()
rnfRk rk k a
ts
instance (NFData k, NFData a, NFRank rk) => NFData (BinomTree rk k a) where
rnf :: BinomTree rk k a -> ()
rnf (BinomTree k
k rk k a
ts) = k
k k -> () -> ()
forall a b. NFData a => a -> b -> b
`deepseq` rk k a -> ()
forall k a. (NFData k, NFData a) => rk k a -> ()
forall (rk :: * -> * -> *) k a.
(NFRank rk, NFData k, NFData a) =>
rk k a -> ()
rnfRk rk k a
ts
instance (NFData k, NFData a, NFRank rk) => NFData (BinomForest rk k a) where
rnf :: BinomForest rk k a -> ()
rnf BinomForest rk k a
Nil = ()
rnf (Skip BinomForest (Succ rk) k a
tss) = BinomForest (Succ rk) k a -> ()
forall a. NFData a => a -> ()
rnf BinomForest (Succ rk) k a
tss
rnf (Cons BinomTree rk k a
t BinomForest (Succ rk) k a
tss) = BinomTree rk k a
t BinomTree rk k a -> () -> ()
forall a b. NFData a => a -> b -> b
`deepseq` BinomForest (Succ rk) k a -> ()
forall a. NFData a => a -> ()
rnf BinomForest (Succ rk) k a
tss
instance (NFData k, NFData a) => NFData (MinPQueue k a) where
rnf :: MinPQueue k a -> ()
rnf MinPQueue k a
Empty = ()
rnf (MinPQ Int
_ k
k a
a BinomHeap k a
ts) = k
k k -> () -> ()
forall a b. NFData a => a -> b -> b
`deepseq` a
a a -> () -> ()
forall a b. NFData a => a -> b -> b
`deepseq` BinomHeap k a -> ()
forall a. NFData a => a -> ()
rnf BinomHeap k a
ts
instance Functor (MinPQueue k) where
fmap :: forall a b. (a -> b) -> MinPQueue k a -> MinPQueue k b
fmap = (k -> a -> b) -> MinPQueue k a -> MinPQueue k b
forall a b. (k -> a -> b) -> MinPQueue k a -> MinPQueue k b
forall i (f :: * -> *) a b.
FunctorWithIndex i f =>
(i -> a -> b) -> f a -> f b
imap ((k -> a -> b) -> MinPQueue k a -> MinPQueue k b)
-> ((a -> b) -> k -> a -> b)
-> (a -> b)
-> MinPQueue k a
-> MinPQueue k b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (a -> b) -> k -> a -> b
forall a b. a -> b -> a
const
instance FunctorWithIndex k (MinPQueue k) where
imap :: forall a b. (k -> a -> b) -> MinPQueue k a -> MinPQueue k b
imap = ((k -> a -> Identity b)
-> MinPQueue k a -> Identity (MinPQueue k b))
-> (k -> a -> b) -> MinPQueue k a -> MinPQueue k b
forall a b. Coercible a b => a -> b
coerce
((k -> a -> Identity b) -> MinPQueue k a -> Identity (MinPQueue k b)
forall {a} {b}.
(k -> a -> Identity b) -> MinPQueue k a -> Identity (MinPQueue k b)
forall (f :: * -> *) k a b.
Applicative f =>
(k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKeyU :: (k -> a -> Identity b) -> MinPQueue k a -> Identity (MinPQueue k b))
instance Ord k => Foldable (MinPQueue k) where
foldr :: forall a b. (a -> b -> b) -> b -> MinPQueue k a -> b
foldr = (k -> a -> b -> b) -> b -> MinPQueue k a -> b
forall k a b.
Ord k =>
(k -> a -> b -> b) -> b -> MinPQueue k a -> b
foldrWithKey ((k -> a -> b -> b) -> b -> MinPQueue k a -> b)
-> ((a -> b -> b) -> k -> a -> b -> b)
-> (a -> b -> b)
-> b
-> MinPQueue k a
-> b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (a -> b -> b) -> k -> a -> b -> b
forall a b. a -> b -> a
const
foldl :: forall b a. (b -> a -> b) -> b -> MinPQueue k a -> b
foldl b -> a -> b
f = (b -> k -> a -> b) -> b -> MinPQueue k a -> b
forall k b a.
Ord k =>
(b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKey ((a -> b) -> k -> a -> b
forall a b. a -> b -> a
const ((a -> b) -> k -> a -> b) -> (b -> a -> b) -> b -> k -> a -> b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. b -> a -> b
f)
length :: forall a. MinPQueue k a -> Int
length = MinPQueue k a -> Int
forall k a. MinPQueue k a -> Int
size
null :: forall a. MinPQueue k a -> Bool
null = MinPQueue k a -> Bool
forall k a. MinPQueue k a -> Bool
null
instance Ord k => FoldableWithIndex k (MinPQueue k) where
ifoldr :: forall a b. (k -> a -> b -> b) -> b -> MinPQueue k a -> b
ifoldr = (k -> a -> b -> b) -> b -> MinPQueue k a -> b
forall k a b.
Ord k =>
(k -> a -> b -> b) -> b -> MinPQueue k a -> b
foldrWithKey
ifoldl :: forall b a. (k -> b -> a -> b) -> b -> MinPQueue k a -> b
ifoldl k -> b -> a -> b
f = (b -> k -> a -> b) -> b -> MinPQueue k a -> b
forall k b a.
Ord k =>
(b -> k -> a -> b) -> b -> MinPQueue k a -> b
foldlWithKey ((k -> b -> a -> b) -> b -> k -> a -> b
forall a b c. (a -> b -> c) -> b -> a -> c
flip k -> b -> a -> b
f)
instance Ord k => Traversable (MinPQueue k) where
traverse :: forall (f :: * -> *) a b.
Applicative f =>
(a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverse = (k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
forall k (f :: * -> *) a b.
(Ord k, Applicative f) =>
(k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKey ((k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b))
-> ((a -> f b) -> k -> a -> f b)
-> (a -> f b)
-> MinPQueue k a
-> f (MinPQueue k b)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (a -> f b) -> k -> a -> f b
forall a b. a -> b -> a
const
mapM :: forall (m :: * -> *) a b.
Monad m =>
(a -> m b) -> MinPQueue k a -> m (MinPQueue k b)
mapM = (k -> a -> m b) -> MinPQueue k a -> m (MinPQueue k b)
forall k (m :: * -> *) a b.
(Ord k, Monad m) =>
(k -> a -> m b) -> MinPQueue k a -> m (MinPQueue k b)
mapMWithKey ((k -> a -> m b) -> MinPQueue k a -> m (MinPQueue k b))
-> ((a -> m b) -> k -> a -> m b)
-> (a -> m b)
-> MinPQueue k a
-> m (MinPQueue k b)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (a -> m b) -> k -> a -> m b
forall a b. a -> b -> a
const
sequence :: forall (m :: * -> *) a.
Monad m =>
MinPQueue k (m a) -> m (MinPQueue k a)
sequence = (m a -> m a) -> MinPQueue k (m a) -> m (MinPQueue k a)
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b.
Monad m =>
(a -> m b) -> MinPQueue k a -> m (MinPQueue k b)
mapM m a -> m a
forall a. a -> a
id
instance Ord k => TraversableWithIndex k (MinPQueue k) where
itraverse :: forall (f :: * -> *) a b.
Applicative f =>
(k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
itraverse = (k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
forall k (f :: * -> *) a b.
(Ord k, Applicative f) =>
(k -> a -> f b) -> MinPQueue k a -> f (MinPQueue k b)
traverseWithKey