RosettaCodeData/Task/Elliptic-curve-arithmetic/PARI-GP/elliptic-curve-arithmetic.parigp
2023-07-01 13:44:08 -04:00

8 lines
136 B
Text

e=ellinit([0,7]);
a=[-6^(1/3),1]
b=[-3^(1/3),2]
c=elladd(e,a,b)
d=ellneg(e,c)
elladd(e,c,d)
elladd(e,elladd(e,a,b),d)
ellmul(e,a,12345)