- where qDimensions = V.zipWith3 sameSigns (position particle) (velocity particle) (acceleration particle)
- sameSigns !p !v !a = if a == 0 && v == 0
- then True
- else if a == 0
- then signum p == signum v
- else signum p == signum v && signum v == signum a
+ where qDimensions = V.zipWith3 sameSigns (position particle)
+ (velocity particle)
+ (acceleration particle)
+ sameSigns p v a = if a == 0 && v == 0
+ then True
+ else if a == 0
+ then signum p == signum v
+ else signum p == signum v
+ && signum v == signum a