bits ( seq -- n )

Vocabulary

project-euler.265

Inputs

seq

an object

Outputs

n

an object

Definition

USING: kernel math sequences ;

IN: project-euler.265

: bits ( seq -- n ) 0 [ [ 2 * ] [ + ] bi* ] reduce ;