incr_map

Helpers for incremental operations on map like data structures
IN THIS PACKAGE
val of_set : ( ( 'k, 'cmp ) Core.Set.t, 'w ) Incremental.t -> ( ( 'k, unit, 'cmp ) Core.Map.t, 'w ) Incremental.t
val filter_mapi : ?data_equal:( 'v1 -> 'v1 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( key:'k -> data:'v1 -> 'v2 option ) -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t
val mapi : ?data_equal:( 'v1 -> 'v1 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( key:'k -> data:'v1 -> 'v2 ) -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t
val filter_map : ?data_equal:( 'v1 -> 'v1 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( 'v1 -> 'v2 option ) -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t
val map : ?data_equal:( 'v1 -> 'v1 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( 'v1 -> 'v2 ) -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t
val filter_mapi' : ?cutoff:'v1 Incremental.Cutoff.t -> ?data_equal:( 'v1 -> 'v1 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f: ( key:'k -> data:( 'v1, 'w ) Incremental.t -> ( 'v2 option, 'w ) Incremental.t ) -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t
val map' : ?cutoff:'v1 Incremental.Cutoff.t -> ?data_equal:( 'v1 -> 'v1 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( ( 'v1, 'w ) Incremental.t -> ( 'v2, 'w ) Incremental.t ) -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t
val filter_map' : ?cutoff:'v1 Incremental.Cutoff.t -> ?data_equal:( 'v1 -> 'v1 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( ( 'v1, 'w ) Incremental.t -> ( 'v2 option, 'w ) Incremental.t ) -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t
val mapi' : ?cutoff:'v1 Incremental.Cutoff.t -> ?data_equal:( 'v1 -> 'v1 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( key:'k -> data:( 'v1, 'w ) Incremental.t -> ( 'v2, 'w ) Incremental.t ) -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t
val partition_mapi : ?data_equal:( 'v1 -> 'v1 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( key:'k -> data:'v1 -> ( 'v2, 'v3 ) Core.Either.t ) -> ( ( 'k, 'v2, 'cmp ) Core.Map.t * ( 'k, 'v3, 'cmp ) Core.Map.t, 'w ) Incremental.t
val unordered_fold : ?data_equal:( 'v -> 'v -> bool ) -> ?update:( key:'k -> old_data:'v -> new_data:'v -> 'acc -> 'acc ) -> ?specialized_initial:( init:'acc -> ( 'k, 'v, 'cmp ) Core.Map.t -> 'acc ) -> ?revert_to_init_when_empty:bool -> ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t -> init:'acc -> add:( key:'k -> data:'v -> 'acc -> 'acc ) -> remove:( key:'k -> data:'v -> 'acc -> 'acc ) -> ( 'acc, 'w ) Incremental.t

unordered_fold i ~init ~add ~remove constructs a more incremental version of:

let%map m = i in
Map.fold m ~init ~f:add

assuming that remove is the inverse of add, and that the operations for different keys can be performed in any order. Note that data_equal defaults to phys_equal, but a more precise equality can be provided instead.

When the data for a key updates, by default remove is called on the old data and then add is called on the new data. update provides an alternative single function to call each time a key's data updates, and can be used to improve efficiency.

For the initial computation, by default add is called on all the elements in the map. As this can be inefficient, specialized_initial can be provided to perform the computation in a more effective way.

If revert_to_init_when_empty is true, then if the input map transitions from being full to empty, then instead of calling remove on every kv-pair, it will instead just set the output to whatever you've passed as init. The default value of revert_to_init_when_empty is false, so this optimization does not apply automatically.

val mapi_count : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k1, 'v, 'cmp1 ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'k2, 'cmp2 ) Core.Map.comparator -> f:( key:'k1 -> data:'v -> 'k2 ) -> ( ( 'k2, int, 'cmp2 ) Core.Map.t, 'w ) Incremental.t

Given an input map and a function mapping a kv-pair to a new value, mapi_count will compute a multi-set keyed on that new value.

Any value that would otherwise have a count of "0" is instead removed from the map.

It is assumed that f is quite fast as the function will be called more often than strictly necessary, but it does this in order to avoid allocating an extra map. If f is very slow and you don't mind the extra allocations, use Incr_map.index_byi composed with Incr_map.map ~f:Map.length

val map_count : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k1, 'v, 'cmp1 ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'k2, 'cmp2 ) Core.Map.comparator -> f:( 'v -> 'k2 ) -> ( ( 'k2, int, 'cmp2 ) Core.Map.t, 'w ) Incremental.t

The same as mapi_count but the f function only gets to see the data instead of both the key and the data.

val mapi_min : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'r, _ ) Core.Map.comparator -> f:( key:'k -> data:'v -> 'r ) -> ( 'r option, 'w ) Incremental.t

Computes the smallest r where r is computed for each kv-pair in the input map.

val mapi_max : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'r, _ ) Core.Map.comparator -> f:( key:'k -> data:'v -> 'r ) -> ( 'r option, 'w ) Incremental.t

Computes the largest r where r is computed for each kv-pair in the input map.

val mapi_mn : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'r, _ ) Core.Map.comparator -> f:( 'v -> 'r ) -> ( 'r option, 'w ) Incremental.t

Computes the smallest r where r is computed for each kv-pair in the input map.

val map_max : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'r, _ ) Core.Map.comparator -> f:( 'v -> 'r ) -> ( 'r option, 'w ) Incremental.t

Computes the largest r where r is computed for each kv-pair in the input map.

val min_value : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'v, _ ) Core.Map.comparator -> ( 'v option, 'w ) Incremental.t

Computes the smallest data value from the input map.

val max_value : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'v, _ ) Core.Map.comparator -> ( 'v option, 'w ) Incremental.t

Computes the largest data value from the input map.

val mapi_bounds : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'r, _ ) Core.Map.comparator -> f:( key:'k -> data:'v -> 'r ) -> ( ('r * 'r) option, 'w ) Incremental.t

Computes min * max where the value is computed for each kv-pair in the input map

val map_bounds : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'r, _ ) Core.Map.comparator -> f:( 'v -> 'r ) -> ( ('r * 'r) option, 'w ) Incremental.t

Computes min * max where the value is computed for each kv-pair in the input map

val value_bounds : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'v, _ ) Core.Map.comparator -> ( ('v * 'v) option, 'w ) Incremental.t

Computes the smallest and largest data value from the input map.

val merge : ?data_equal_left:( 'v1 -> 'v1 -> bool ) -> ?data_equal_right:( 'v2 -> 'v2 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( key:'k -> ( 'v1, 'v2 ) Core.Map.Merge_element.t -> 'v3 option ) -> ( ( 'k, 'v3, 'cmp ) Core.Map.t, 'w ) Incremental.t

Like merge in Base.Map.merge. Note that f is called at most once per key in any given stabilization.

val merge' : ?cutoff:( 'v1, 'v2 ) Core.Map.Merge_element.t Incremental.Cutoff.t -> ?data_equal_left:( 'v1 -> 'v1 -> bool ) -> ?data_equal_right:( 'v2 -> 'v2 -> bool ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t -> ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f: ( key:'k -> ( ( 'v1, 'v2 ) Core.Map.Merge_element.t, 'w ) Incremental.t -> ( 'v3 option, 'w ) Incremental.t ) -> ( ( 'k, 'v3, 'cmp ) Core.Map.t, 'w ) Incremental.t

Like merge, but operating using incremental nodes. This is a good use case for ppx_pattern_bind.

val unzip : ?left_result_equal:( 'a -> 'a -> bool ) -> ?right_result_equal:( 'b -> 'b -> bool ) -> ( ( 'k, 'a * 'b, 'cmp ) Core.Map.t, 'w ) Incremental.t -> ( ( 'k, 'a, 'cmp ) Core.Map.t, 'w ) Incremental.t * ( ( 'k, 'b, 'cmp ) Core.Map.t, 'w ) Incremental.t
val unzip_mapi : ?data_equal:( 'v -> 'v -> bool ) -> ?left_result_equal:( 'v1 -> 'v1 -> bool ) -> ?right_result_equal:( 'v2 -> 'v2 -> bool ) -> ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f:( key:'k -> data:'v -> 'v1 * 'v2 ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t * ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t

unzip_mapi is similar to List.unzip, but for incremental maps. Note that f may be called multiple times on a single element.

val unzip_mapi' : ?cutoff:'v Incremental.Cutoff.t -> ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t -> f: ( key:'k -> data:( 'v, 'w ) Incremental.t -> ( 'v1, 'w ) Incremental.t * ( 'v2, 'w ) Incremental.t ) -> ( ( 'k, 'v1, 'cmp ) Core.Map.t, 'w ) Incremental.t * ( ( 'k, 'v2, 'cmp ) Core.Map.t, 'w ) Incremental.t

unzip_mapi' is like unzip_mapi, but allows you to define the mapping from the input map's elements to the output maps' elements incrementally.

The naive implementation (see below) produces worse Incremental graphs.

let temp =
  Incr_map.mapi' input ~f:(fun ~key ~data ->
    f ~key ~data |> Tuple2.uncurry Incr.both)
in
let left = Incr_map.map temp ~f:Tuple2.get1 in
let right = Incr_map.map temp ~f:Tuple2.get2 in
left, right
val flatten : 'w Incremental.State.t -> ( 'k, ( 'v, 'w ) Incremental.t, 'cmp ) Core.Map.t -> ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t

This is the "easy" version of join

val join : ( ( 'k, ( 'v, 'w ) Incremental.t, 'cmp ) Core.Map.t, 'w ) Incremental.t -> ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t

The non-incremental semantics of this function is the identity function. Its purpose is to collapse the extra level of incrementality at the level of the data of the map.

val separate : ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t -> data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, ( 'v, 'w ) Incremental.t, 'cmp ) Core.Map.t, 'w ) Incremental.t
val keys : ( ( 'k, 'v, 'c ) Core.Map.t, 'w ) Incremental.t -> ( ( 'k, 'c ) Core.Set.t, 'w ) Incremental.t
val rank : ( ( 'k, 'v, 'cmp ) Base.Map.t, 'state_witness ) Incremental.t -> ( 'k, 'state_witness ) Incremental.t -> ( int option, 'state_witness ) Incremental.t

Computes the rank of a key (given incrementally) inside of a map (also incremental). The traditional Map.rank function is O(n), and this incremental rank function has the following performance characteristics:

definitions: n : the size of the map r : the time to compute Map.symmetric_diff between the two maps k : the change in rank of the key between two stabilizations

note that r and k are _much_ smaller than n for most practical purposes

  • O(log n) when the key is not in the map. This takes precedence over other every other scenario.
  • O(n) on the initial stabilization
  • O(n) when the key transitions from not being in the map to being in the map
  • O(log n + r) when the map changes
  • O(log n + k) when the key changes
  • O(log n + r + k) when both key and map change
val subrange : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t -> ( ('k Core.Maybe_bound.As_lower_bound.t * 'k Core.Maybe_bound.As_upper_bound.t) option, 'w ) Incremental.t -> ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t

subrange map (min, max) constructs an incremental submap that includes all of the keys and data from map between min and max, and none of the keys outside the range.

subrange map None is the empty map. range being None means no elements are chosen.

Note that incremental changes have a runtime of O((k + m) log n) where k is the size of the changes to the underlying map and m is the size of the changes to the elements contained by the range. The complexity of the initial computation is the same as the incremental computation, with some simplification. k = 0 because we have not made any changes to the underlying map yet, and m equals the size of the range, because the initial range is empty.

val subrange_by_rank : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t -> ( int Core.Maybe_bound.As_lower_bound.t * int Core.Maybe_bound.As_upper_bound.t, 'w ) Incremental.t -> ( ( 'k, 'v, 'cmp ) Core.Map.t, 'w ) Incremental.t

subrange_by_rank map (s, e) constructs an incremental submap that includes (e-s+1) keys between s-th and e-th, inclusive.

If s is greater or equal to map length, the result is empty. If e is greater or equal to map length, the result contains keys from s-th to the last one.

Raises for invalid indices - s < 0 or e < s.

Runtime of the initial computation is O(min(e, n-s) + log(n)), i.e. linear, but optimized for ranges close to beginning or end.

Runtime of the incremental computation is O(log(n) + k + (m+m') * log(n)) where:

  • k is the size of the diff
  • m is the total impact of map changes on the range, bounded by k (e.g. if we add 1001 keys and remove 1000 below s, then m = 1)
  • m' = O( |new s - old s| + |new e - old e| ).
val rekey : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k1, 'v, 'cmp1 ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'k2, 'cmp2 ) Core.Map.comparator -> f:( key:'k1 -> data:'v -> 'k2 ) -> ( ( 'k2, 'v, 'cmp2 ) Core.Map.t, 'w ) Incremental.t

rekey transforms a map by modifying the type of the key. The user is responsible for ensuring that f doesn't return the same output key for multiple input keys.

This function assumes f is cheap to compute and accordingly may call it multiple times.

val index_byi : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'inner_key, 'v, 'inner_cmp ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'outer_key, 'outer_cmp ) Core.Map.comparator -> index:( key:'inner_key -> data:'v -> 'outer_key option ) -> ( ( 'outer_key, ( 'inner_key, 'v, 'inner_cmp ) Core.Map.t, 'outer_cmp ) Core.Map.t, 'w ) Incremental.t

index_byi map ~comparator ~index constructs an incremental map-of-maps where each key-data pair of the input map is present in one (or none) of the inner maps. index specifies the outer map key under which each original key-data pair is found.

All of the resulting inner maps are guaranteed to be non-empty; if the inner map would otherwise be empty, then the key for that map is instead removed from the outer map.

An all-at-once version of index_by would look like:

let index_byi map ~comparator ~index =
  Map.to_alist map
  |> List.filter_map ~f:(fun (key, data) ->
    match index ~key ~data with
    | None -> None
    | Some index -> Some (index, (key, data)))
  |> Map.of_alist_multi comparator
  |> Map.map ~f:(Map.of_alist_exn (Map.comparator_s map))
;;
val index_by : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'inner_key, 'v, 'inner_cmp ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'outer_key, 'outer_cmp ) Core.Map.comparator -> index:( 'v -> 'outer_key option ) -> ( ( 'outer_key, ( 'inner_key, 'v, 'inner_cmp ) Core.Map.t, 'outer_cmp ) Core.Map.t, 'w ) Incremental.t

index_by map ~comparator ~index is like index_by map ~comparator ~index, but the index function does not take the inner map's key.

val unordered_fold_nested_maps : ?data_equal:( 'v -> 'v -> bool ) -> ?revert_to_init_when_empty:bool -> ?update: ( outer_key:'outer_key -> inner_key:'inner_key -> old_data:'v -> new_data:'v -> 'acc -> 'acc ) -> ( ( 'outer_key, ( 'inner_key, 'v, 'inner_cmp ) Core.Map.t, 'outer_cmp ) Core.Map.t, 'w ) Incremental.t -> init:'acc -> add: ( outer_key:'outer_key -> inner_key:'inner_key -> data:'v -> 'acc -> 'acc ) -> remove: ( outer_key:'outer_key -> inner_key:'inner_key -> data:'v -> 'acc -> 'acc ) -> ( 'acc, 'w ) Incremental.t
val transpose : ?data_equal:( 'v -> 'v -> bool ) -> ( 'k2, 'k2_cmp ) Core.Map.comparator -> ( ( 'k1, ( 'k2, 'v, 'k2_cmp ) Core.Map.t, 'k1_cmp ) Core.Map.t, 'w ) Incremental.t -> ( ( 'k2, ( 'k1, 'v, 'k1_cmp ) Core.Map.t, 'k2_cmp ) Core.Map.t, 'w ) Incremental.t

transpose flips the order of a doubly nested incremental map.

All inner map instances will have at least one element.

val collapse : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'outer_key, ( 'inner_key, 'v, 'inner_cmp ) Core.Map.t, 'outer_cmp ) Core.Map.t, 'w ) Incremental.t -> comparator:( 'inner_key, 'inner_cmp ) Core.Map.comparator -> ( ( 'outer_key * 'inner_key, 'v, ( 'outer_cmp, 'inner_cmp ) Core.Tuple2.comparator_witness ) Core.Map.t, 'w ) Incremental.t
val collapse_by : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'outer_key, ( 'inner_key, 'v, 'inner_cmp ) Core.Map.t, 'outer_cmp ) Core.Map.t, 'w ) Incremental.t -> merge_keys:( 'outer_key -> 'inner_key -> 'combined_key ) -> comparator:( 'combined_key, 'combined_cmp ) Core.Map.comparator -> ( ( 'combined_key, 'v, 'combined_cmp ) Core.Map.t, 'w ) Incremental.t

collapse_by is similar to collapse, but it allows the user to choose how to combine the two keys from the outer and inner maps. This does mean that it's the responsibility of the implementor of the merge_keys function to uphold this invariant:

> a merged-key being equal to another merged-key implies that the > outer-keys and inner-keys which were used to build the merged keys also > compare to be equal to one another

The ~comparator argument the first-class module of the output key, it usually looks like this: ~comparator:(module Combined_key) but make sure that the module implements the Comparator.S signature.

val expand : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'outer_key * 'inner_key, 'v, 'tuple_cmp ) Core.Map.t, 'w ) Incremental.t -> outer_comparator:( 'outer_key, 'outer_cmp ) Core.Map.comparator -> inner_comparator:( 'inner_key, 'inner_cmp ) Core.Map.comparator -> ( ( 'outer_key, ( 'inner_key, 'v, 'inner_cmp ) Core.Map.t, 'outer_cmp ) Core.Map.t, 'w ) Incremental.t

Convert a map with tuples for keys into a nested map. This operation is roughly the inverse of collapse, though if there are outer keys in the uncollapsed map that correspond to empty inner maps, the outer keys will be dropped from the expanded map.

val counti : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> f:( key:'k -> data:'v -> bool ) -> ( int, 'w ) Incremental.t
val count : ?data_equal:( 'v -> 'v -> bool ) -> ( ( _, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> f:( 'v -> bool ) -> ( int, 'w ) Incremental.t
val for_alli : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> f:( key:'k -> data:'v -> bool ) -> ( bool, 'w ) Incremental.t
val for_all : ?data_equal:( 'v -> 'v -> bool ) -> ( ( _, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> f:( 'v -> bool ) -> ( bool, 'w ) Incremental.t
val existsi : ?data_equal:( 'v -> 'v -> bool ) -> ( ( 'k, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> f:( key:'k -> data:'v -> bool ) -> ( bool, 'w ) Incremental.t
val exists : ?data_equal:( 'v -> 'v -> bool ) -> ( ( _, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> f:( 'v -> bool ) -> ( bool, 'w ) Incremental.t
val sum : ?data_equal:( 'v -> 'v -> bool ) -> ( ( _, 'v, _ ) Core.Map.t, 'w ) Incremental.t -> (module Abstract_algebra.Commutative_group.Without_sexp with type t = 'u) -> f:( 'v -> 'u ) -> ( 'u, 'w ) Incremental.t

Incrementally compute the sum of all of the values in the map.

Beware of float's negative infinities. They aren't commutative and will misbehave here.

module Lookup : sig ... end

('k, 'v) Lookup.t provides a way to lookup keys in a map which uses symmetric diffs to trigger updates of the lookups.

module For_testing : sig ... end
module type S_gen = sig ... end
module type S = sig ... end
module Make (Incr : Incremental.S) : S with type state_witness := Incr.state_witness and module Incr := Incr