Ensure order of operations(?)

Rather than rely on a mixture of operator precedence and constprop
to evalute and insert the value of `1/p` into the anonymous function,
just use parentheses.

Author: andrewjradcliffe

src/vdistance.jl

@@ -7,9 +7,9 @@
 
 # Distances
 _vminkowski(x, y, p::T, dims=:) where {T<:Integer} =
-    vmapreducethen((xᵢ, yᵢ) -> abs(xᵢ - yᵢ)^p, +, x -> exp(one(T)/p * log(abs(x))), x, y, dims=dims)
+    vmapreducethen((xᵢ, yᵢ) -> abs(xᵢ - yᵢ)^p, +, x -> exp((one(T)/p) * log(abs(x))), x, y, dims=dims)
 _vminkowski(x, y, p::T, dims=:) where {T<:AbstractFloat} =
-    vmapreducethen((xᵢ, yᵢ) -> exp(p * log(abs(xᵢ - yᵢ))), +, x -> exp(one(T)/p * log(abs(x))), x, y, dims=dims)
+    vmapreducethen((xᵢ, yᵢ) -> exp(p * log(abs(xᵢ - yᵢ))), +, x -> exp((one(T)/p) * log(abs(x))), x, y, dims=dims)
 _vminkowski(x, y, p::Rational{T}, dims=:) where {T} = _vminkowski(x, y, float(p), dims=dims)
 
 """
@@ -39,9 +39,9 @@ function vminkowski(x, y, p::Real; dims=:)
 end
 
 _vtminkowski(x, y, p::T, dims=:) where {T<:Integer} =
-    vtmapreducethen((xᵢ, yᵢ) -> abs(xᵢ - yᵢ)^p, +, x -> exp(one(T)/p * log(abs(x))), x, y, dims=dims)
+    vtmapreducethen((xᵢ, yᵢ) -> abs(xᵢ - yᵢ)^p, +, x -> exp((one(T)/p) * log(abs(x))), x, y, dims=dims)
 _vtminkowski(x, y, p::T, dims=:) where {T<:AbstractFloat} =
-    vtmapreducethen((xᵢ, yᵢ) -> exp(p * log(abs(xᵢ - yᵢ))), +, x -> exp(one(T)/p * log(abs(x))), x, y, dims=dims)
+    vtmapreducethen((xᵢ, yᵢ) -> exp(p * log(abs(xᵢ - yᵢ))), +, x -> exp((one(T)/p) * log(abs(x))), x, y, dims=dims)
 _vtminkowski(x, y, p::Rational{T}, dims=:) where {T} = _vtminkowski(x, y, float(p), dims=dims)
 
 """

src/vnorm.jl

@@ -27,9 +27,9 @@ Base.@constprop :aggressive function _vnorm(A, p, dims)
     end
 end
 _vnorm_impl(A, p::T, dims) where {T<:Integer} =
-    vmapreducethen(x -> abs(x)^p, +, x -> exp(one(T)/p * log(abs(x))), A, dims=dims)
+    vmapreducethen(x -> abs(x)^p, +, x -> exp((one(T)/p) * log(abs(x))), A, dims=dims)
 _vnorm_impl(A, p::T, dims) where {T<:AbstractFloat} =
-    vmapreducethen(x -> exp(p * log(abs(x))), +, x -> exp(one(T)/p * log(abs(x))), A, dims=dims)
+    vmapreducethen(x -> exp(p * log(abs(x))), +, x -> exp((one(T)/p) * log(abs(x))), A, dims=dims)
 
 """
     vnorm(A::AbstractArray, p::Real=2; dims=:)
@@ -60,9 +60,9 @@ Base.@constprop :aggressive function _vtnorm(A, p, dims)
     end
 end
 _vtnorm_impl(A, p::T, dims) where {T<:Integer} =
-    vtmapreducethen(x -> abs(x)^p, +, x -> exp(one(T)/p * log(abs(x))), A, dims=dims)
+    vtmapreducethen(x -> abs(x)^p, +, x -> exp((one(T)/p) * log(abs(x))), A, dims=dims)
 _vtnorm_impl(A, p::T, dims) where {T<:AbstractFloat} =
-    vtmapreducethen(x -> exp(p * log(abs(x))), +, x -> exp(one(T)/p * log(abs(x))), A, dims=dims)
+    vtmapreducethen(x -> exp(p * log(abs(x))), +, x -> exp((one(T)/p) * log(abs(x))), A, dims=dims)
 
 """
     vtnorm(A::AbstractArray, p::Real=2; dims=:)