handle-table ( inputs n -- )

Vocabulary

benchmark.knucleotide

Inputs

inputs	an object
n	an object

Outputs

None

Definition

USING: formatting grouping io kernel math math.statistics
sequences ;

IN: benchmark.knucleotide

: handle-table ( inputs n -- )
    clump [ sorted-histogram reverse ] [ length ] bi
    [ [ second 100 * ] ] dip [ /f "%.3f" printf nl ] curry
    compose [ [ [ first write bl ] ] ] dip [ bi ] curry compose
    each ;