longmult ( x y -- z )

Vocabulary

rosetta-code.long-multiplication

Inputs

x	an object
y	an object

Outputs

z

an object

Definition

USING: kernel ;

IN: rosetta-code.long-multiplication

: longmult ( x y -- z )
    [ integer->digits ] bi@ longmult-seq digits->integer ;