sum-phase-times ( events phase -- n )


Vocabulary
tools.memory

Inputs
eventsan object
phasean object


Outputs
nan object


Definition
USING: accessors kernel sequences tools.memory.private ;

IN: tools.memory

: sum-phase-times ( events phase -- n )
[ [ times>> ] ] dip [ swap nth ] curry compose map-sum
nanos>string ; inline