(two-digit) ( num accum -- num' accum )

Vocabulary

math.parser.private

Inputs

num	an object
accum	an object

Outputs

num'	an object
accum	an object

Definition

USING: kernel math sequences sequences.private ;

IN: math.parser.private

: (two-digit) ( num accum -- num' accum )
    [ 100 /mod [ TENS nth-unsafe ] [ ONES nth-unsafe ] bi ] dip
    [ push ] keep [ push ] keep ; inline