2 lines
89 B
Haskell
2 lines
89 B
Haskell
ellipticX b y = Elliptic (qroot (y^2 - b)) y
|
|
where qroot x = signum x * abs x ** (1/3)
|