RosettaCodeData/Task/Elliptic-curve-arithmetic/Racket/elliptic-curve-arithmetic-3.rkt
2023-07-01 13:44:08 -04:00

7 lines
251 B
Racket

p = #(-1.8171205928321397 1)
q = #(-1.4422495703074083 2)
p+q = #(10.375375389201409 -33.524509096269696)
-(p+q) = #(10.375375389201409 33.524509096269696)
(p+q)+(-(p+q)) = #(0 0)
p+(q+(-(p+q))) = 0 #t
p*12345 #(10.758570529320806 35.387434774282106)