# [Wolfram Language (Mathematica)], 53 bytes

    Length@Union@Append[Accumulate@Sign@Differences@#,0]&

[Try it online!][TIO-k9tazkxi]

[Wolfram Language (Mathematica)]: https://www.wolfram.com/wolframscript/
[TIO-k9tazkxi]: https://tio.run/##VY07C8IwFIV3f0VBcMqQ1ubRQUjB0UEQp9IhxKQN2FhqOkl/e7yBVCnkcHLu47uD9L0epLdKBnMKF@0634u7sy8n6nHU7tHUSs3D/JRei5vtnDhbY/SkndJvsUe4PYTrZJ0XpvlglKW3tLtftTyirOR/kQKE038zySnKOFR5CcpBsMkqEGQGPQabNGboUQaKGXoUaAQyqZLDLCEbcpFIPJFWj@R4BSciTcTV44V8acMX "Wolfram Language (Mathematica) – Try It Online"