digits->integer ( xs -- x )

Vocabulary

rosetta-code.long-multiplication

Inputs

xs

an object

Outputs

x

an object

Definition

USING: kernel math sequences ;

IN: rosetta-code.long-multiplication

: digits->integer ( xs -- x ) 0 [ swap 10 * + ] reduce ;