deleted 1 character in body

Source Link

edited May 5, 2020 at 20:21

Wolfram Language (Mathematica), 53 46 bytes

Tr[1^{0}~Union~Accumulate@Sign@Differences@#]&

Thanks to J42161217@J42161217 for pointing out usingthat Tr[1^list] as anis a 1-character-shorter alternative to Length@list.

Tr[1^{0}~Union~Accumulate@Sign@Differences@#]&

Thanks to J42161217 for pointing out using Tr[1^list] as an 1-character-shorter alternative to Length@list.

Tr[1^{0}~Union~Accumulate@Sign@Differences@#]&

Thanks to @J42161217 for pointing out that Tr[1^list] is a 1-character-shorter alternative to Length@list.

added 112 characters in body

Source Link

edited May 5, 2020 at 20:03

Wolfram Language (Mathematica), 5353 46 bytes

Length@Union@Append[Accumulate@Sign@Differences@#,0]&Tr[1^{0}~Union~Accumulate@Sign@Differences@#]&

Thanks to J42161217 for pointing out using Tr[1^list] as an 1-character-shorter alternative to Length@list.

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

Tr[1^{0}~Union~Accumulate@Sign@Differences@#]&

Thanks to J42161217 for pointing out using Tr[1^list] as an 1-character-shorter alternative to Length@list.

Source Link

created May 5, 2020 at 2:39

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