Wolfram Language (Mathematica), 14+11=25 bytes
AbsArg[#+I#2]&
AngleVector
Input [x,y]/[{r,ϕ}] and output {r,ϕ}/{x,y}.
att
- 21.7k
- 2
- 16
- 62