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


Vocabulary
math.parser.private

Inputs
numan object
accuman object


Outputs
num'an object
accuman 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