discriminant ( c b -- b d )

Vocabulary

math.quadratic

Inputs

c	an object
b	an object

Outputs

b	an object
d	an object

Definition

USING: kernel math math.functions ;

IN: math.quadratic

: discriminant ( c b -- b d )
    [ nip ] [ sq 4 / swap - sqrt ] 2bi ;