step :: Particle -> Particle
step particle = particle {position = p', velocity = v'}
where pv' = V.zipWith3 updatePV (position particle) (velocity particle) (acceleration particle)
step :: Particle -> Particle
step particle = particle {position = p', velocity = v'}
where pv' = V.zipWith3 updatePV (position particle) (velocity particle) (acceleration particle)