part1Tests :: Vector Bool
part1Tests = V.zipWith3 (\np mp s -> s == part1 (make np mp)) ps lm ss
 where
  ps = V.fromList [10, 13, 17, 21, 30]
  lm = V.fromList [1618, 7999, 1104, 6111, 5807]
  ss = V.fromList [8317, 146373, 2764, 54718, 37305]
part1Tests :: Vector Bool
part1Tests = V.zipWith3 (\np mp s -> s == part1 (make np mp)) ps lm ss
 where
  ps = V.fromList [10, 13, 17, 21, 30]
  lm = V.fromList [1618, 7999, 1104, 6111, 5807]
  ss = V.fromList [8317, 146373, 2764, 54718, 37305]
part1Tests = V.zipWith3 (\np mp s -> s == part1 (make np mp)) ps lm ss
 where
  ps = V.fromList [10, 13, 17, 21, 30]
  lm = V.fromList [1618, 7999, 1104, 6111, 5807]
  ss = V.fromList [8317, 146373, 2764, 54718, 37305]