broaden/fix signature of nextprod

NEWS.md

@@ -143,6 +143,7 @@ Standard library changes
 ------------------------
 
 * Empty ranges now compare equal, regardless of their startpoint and step ([#32348]).
+* The `nextprod` function now accepts tuples and other array types for its first argument ([#35791]).
 * A 1-d `Zip` iterator (where `Base.IteratorSize` is `Base.HasShape{1}()`) with defined length of `n` has now also size of `(n,)` (instead of throwing an error with truncated iterators) ([#29927]).
 * The `@timed` macro now returns a `NamedTuple` ([#34149]).
 * New `supertypes(T)` function returns a tuple of all supertypes of `T` ([#34419]).

base/combinatorics.jl

@@ -290,27 +290,27 @@ invperm(P::Any16) = Tuple(invperm(collect(P)))
 
 #XXX This function should be moved to Combinatorics.jl but is currently used by Base.DSP.
 """
-    nextprod([k_1, k_2,...], n)
+    nextprod(factors::Union{Tuple,AbstractVector}, n)
 
 Next integer greater than or equal to `n` that can be written as ``\\prod k_i^{p_i}`` for integers
-``p_1``, ``p_2``, etc.
+``p_1``, ``p_2``, etcetera, for factors ``k_i`` in `factors`.
 
 # Examples
 ```jldoctest
-julia> nextprod([2, 3], 105)
+julia> nextprod((2, 3), 105)
 108
 
 julia> 2^2 * 3^3
 108
 ```
 """
-function nextprod(a::Vector{Int}, x)
+function nextprod(a::Union{Tuple{Vararg{<:Integer}},AbstractVector{<:Integer}}, x::Real)
     if x > typemax(Int)
         throw(ArgumentError("unsafe for x > typemax(Int), got $x"))
     end
     k = length(a)
     v = fill(1, k)                    # current value of each counter
-    mx = [nextpow(ai,x) for ai in a]  # maximum value of each counter
+    mx = map(a -> nextpow(a,x), a)   # maximum value of each counter
     v[1] = mx[1]                      # start at first case that is >= x
     p::widen(Int) = mx[1]             # initial value of product in this case
     best = p

test/numbers.jl

@@ -2013,8 +2013,9 @@ end
 end
 @testset "nextprod" begin
     @test_throws ArgumentError nextprod([2,3,5],Int128(typemax(Int))+1)
-    @test nextprod([2,3,5],30) == 30
+    @test nextprod([2,3,5],30) == nextprod((2,3,5),30) == 30
     @test nextprod([2,3,5],33) == 36
+    @test nextprod([3,5],33) == nextprod(3:2:5,33) == 45
 end
 @testset "nextfloat/prevfloat" begin
     @test nextfloat(0.0) == 5.0e-324