add-digits ( seq -- n )

Vocabulary

rosetta-code.bulls-and-cows

Inputs

seq

an object

Outputs

n

an object

Definition

USING: kernel math math.parser sequences ;

IN: rosetta-code.bulls-and-cows

: add-digits ( seq -- n )
    0 [ swap 10 * + ] reduce number>string ;