challenge HP50G RPL

[compsystems]

It works fine, but it seems you're using another formula? and not '-B±√(B^2-4*A*C)/2*A'

Someone break to lower the Record of Gerson =), SysRPL is accepted

Code:

« 
  PICK3 / UNROT
  SWAP / -2 / DUP SQ
  ROT - √ DUP2 -
  UNROT +
» 
'QUADRATIC3' STO

1. -3. 2. QUADRATIC3 returns 1 2 // ok

1. 2. 3. QUADRATIC3 returns (-1.,1.41421356238) (-1., -1.41421356238) // ok

(1,0) (-1,-1) (0,1) QUADRATIC3 returns (1, 0) (0, 1)

'A' 'B' 'C' QUADRATIC3 EVAL returns

Code:

'B/A/-2-1/(2*ABS(A))*√-(4*C*A-B^2)' 
'B/A/-2+1/(2*ABS(A))*√-(4*C*A-B^2)'