challenge HP50G RPL

[compsystems]

is better to use the commands 3 ->LIST AXL

Code:

«
  3 ->LIST AXL 'X' PEVAL 'X' QUAD
»
'QUADRATIC6' STO

(1,0) (-1,-1) (0,1) // == 1 -1-i, i
QUADRATIC6 returns { 'X=(7.5E-15, 1.)' 'X=(1., -1.E-14)' }

== { 'X=i' 'X=1' }