projectPartners :: Integer -> Integer
projectPartners = (`div` 2) . uncurry (*) . (id &&& pred)
projectPartners :: Integer -> Integer
projectPartners = (`div` 2) . uncurry (*) . (id &&& pred)
projectPartners = (`div` 2) . uncurry (*) . (id &&& pred)