collect-tops ( samples max-depth depth -- node )

Vocabulary

tools.profiler.sampling.private

Inputs

samples	an object
max-depth	an object
depth	an object

Outputs

node

an object

Definition

USING: assocs kernel math sequences tools.profiler.sampling ;

IN: tools.profiler.sampling.private

:: collect-tops ( samples max-depth depth -- node )
    samples H{ } clone [
        [ [ unclip-callstack ] ] dip [ push-at ] curry compose
        each
    ] keep [
        [ sum-counts ] [
            max-depth depth
            [ max-depth depth 1 + collect-tops ]
            (collect-subtrees)
        ] bi depth <profile-node>
    ] assoc-map ;