strip-zeroes ( s -- s' d )

Vocabulary

math.parser.private

Inputs

s

an object

Outputs

s'	an object
d	an object

Definition

USING: kernel math ;

IN: math.parser.private

: strip-zeroes ( s -- s' d )
    0 [
        over 10 /mod zero?
        [ [ nipd swap 1 + ] [ drop ] if ] keep
    ] loop ; inline