copysign ( x y -- x' )

Vocabulary

math.functions

Inputs

x	a number
y	a number

Outputs

x'

a number

Word description

Returns x with the sign of y, as a float.

Definition

IN: math.functions

MATH: copysign ( x y -- x' )

Methods

USING: kernel math math.functions ;

M: float copysign
    [ double>bits ] [ fp-sign ] bi*
    [ 63 2^ bitor ] [ 63 2^ bitnot bitand ] if bits>double ;


USING: math math.functions ;

M: real copysign >float copysign ;