..b) ( a b step -- a' b' step )


Vocabulary
ranges.private

Inputs
aan object
ban object
stepan object


Outputs
a'an object
b'an object
stepan object


Definition
USING: kernel math ;

IN: ranges.private

: ..b) ( a b step -- a' b' step )
2over - over mod zero? [ dup [ - ] curry dip ] when ; inline