Return to Answer

edited body

edited Mar 8, 2018 at 18:21

edited Mar 8, 2018 at 18:21

Haskell, 50 bytes

-7 bytes thanks to H.PWiz.

(==)<*>map(map((0-)<$>)).foldr(zipWith(:))e
e=[]:e

-7 bytes thanks to H.PWiz.

(==)<*>map(map((0-)<$>)).foldr(zipWith(:))e
e=[]:e

-7 bytes thanks to H.PWiz.

(==)<*>map(map((0-)<$>)).foldr(zipWith(:))e
e=[]:e

added 20 characters in body

edited Feb 26, 2018 at 17:01

edited Feb 26, 2018 at 17:01

-7 bytes thanks to H.PWiz.

(==)<*>map(map(\[a,b]->[a,(0-b])<$>)).foldr(zipWith(:))e
e=[]:e

(==)<*>map(map(\[a,b]->[a,-b])).foldr(zipWith(:))e
e=[]:e

-7 bytes thanks to H.PWiz.

(==)<*>map(map((0-)<$>)).foldr(zipWith(:))e
e=[]:e

answered Feb 26, 2018 at 16:30

answered Feb 26, 2018 at 16:30

(==)<*>map(map(\[a,b]->[a,-b])).foldr(zipWith(:))e
e=[]:e