HASKELL PROGRAMMING:

Complete all 5 parts to tuples in Haskell in HASKELLs functional programming language syntax. (FILL IN "UNDEFINED")

import Data.Ratio

import Data.Maybe

import Data.List

-Add the components of the input tuple:

p1 :: (int,int,int) ->int

p1 (a,b,c) = undefined

-Swap the components of the input tuple

p2 :: (a,b) -> (b,a)

p2 (x,y) = undefined

-add the two input tuples as vectors (so add first components, then add the second components)

p3 :: (int,int) -> (int,int) -> (int,int)

p3 (a,b) (x,y) - undefined

-break a flat tuple into two nested ones

p5 :: (a,b,c,d) -> ((a,b),(c,d))

p5 (a,b,c,d) = undefined