Tuple.hs

module Data.Array.Parallel.Prelude.Tuple (
  tup2, tup3, tup4
) where
  
import Data.Array.Parallel.Lifted.Closure
import Data.Array.Parallel.Lifted.PArray
import Data.Array.Parallel.PArray.PDataInstances

tup2 :: (PA a, PA b) => a :-> b :-> (a,b)
{-# INLINE tup2 #-}
tup2 = closure2 (,) zipPA#

tup3 :: (PA a, PA b, PA c) => a :-> b :-> c :-> (a,b,c)
{-# INLINE tup3 #-}
tup3 = closure3 (,,) zip3PA#

tup4 :: (PA a, PA b, PA c, PA d) => a :-> b :-> c :-> d :-> (a,b,c,d)
{-# INLINE tup4 #-}
tup4 = closure4 (,,,) zip4PA#