Post History
Haskell, 37 bytes f(h:t)=max(1+f[x|x<-t,x>h])$f t f _=0 Try it online!
#1: Initial revision
by
xnor
·
2020-11-30T09:56:51Z (almost 6 years ago)
# [Haskell], 37 bytes
f(h:t)=max(1+f[x|x<-t,x>h])$f t
f _=0
[Try it online!][TIO-ki4docz4]
[Haskell]: https://www.haskell.org/
[TIO-ki4docz4]: https://tio.run/##LYpNDsIgEIX3nmIWLiBOTVHrX8QbeAJCDGmc0ggNsSxYeHYRiZt53/veWDM/H87lTMyeI5feJCZWpNI7XZqI6Wo1XxLEBcFdttmbcQIJ3oQbsPAap7gmDkoJjaA2CDUFQsHtD7uKRez@4lDbsdy2GIQTQlfXffnUOn96cmaYc9OH8AU "Haskell – Try It Online"