# [R], 47 bytes

<!-- language-all: lang-r -->

    function(v,a=v[v>0],b=sort(a))all(v[a]==b&a!=b)

[Try it online!][TIO-jlnvtfpk]

[R]: https://www.r-project.org/
[TIO-jlnvtfpk]: https://tio.run/##pZKxasMwFEX3fsUrhVaiNthxyaaOXTp06RYyyM5zLFCkIMkK@XpXjuymgTi4RCAQHs657z6brmZd3arKCa2ITzjzK/@erZOSWW0c4ZRyKYlf8TVj5TN/ZCXtalKRNE9gvMvzsxif9DWnAE/fpnXNEcheW9EroIC9FspZcBp@Py6Bqw14USF4NJbTh14ROFlgTJ8JRXZNkV9VZAnkMxQfXFr8o7DB0ePyaOpFrsGdRenRRvJbAosAj3Vkp0amw4/jLm5OfJlFaaiEqVrJDbhWKZQWwqr0ATcxQRqB6eSAl7zIgINwjW4doDphwnS4RUPo3C2EWEOaJHTC3YuFr89zoLRPVNA7SbHSYm5Vw2hbjRZKPOqwOSl2wg2ruv0H/IPW/QA "R – Try It Online"