twiddle ( a b -- a b step )


Vocabulary
ranges.private

Inputs
aan object
ban object


Outputs
aan object
ban object
stepan object


Definition
USING: kernel math ;

IN: ranges.private

: twiddle ( a b -- a b step ) 2dup > -1 1 ? ; inline