sort-partial ( x y -- x' y' )


Vocabulary
math.extras.private

Inputs
xan object
yan object


Outputs
x'an object
y'an object


Definition
USING: kernel math ;

IN: math.extras.private

: sort-partial ( x y -- x' y' )
2dup [ abs ] bi@ < [ swap ] when ; inline