make-cumulative ( freq -- chars: byte-array floats: double-array )

Vocabulary

benchmark.fasta

Inputs

freq

an object

Outputs

chars	a byte-array
floats	a double-array

Definition

USING: alien.c-types alien.data assocs byte-arrays kernel math
sequences typed ;

IN: benchmark.fasta

TYPED: make-cumulative
    ( freq -- chars: byte-array floats: double-array )
    [ keys >byte-array ]
    [ values double >c-array 0.0 [ + ] accumulate* ] bi ;