count-ones ( int-array -- n )


Vocabulary
benchmark.dawes

Inputs
int-arrayan object


Outputs
nan object


Definition
USING: kernel sequences ;

IN: benchmark.dawes

: count-ones ( int-array -- n ) [ 1 = ] count ; inline