enable make([Array], ...) shortcut, without "Array"

Author: rfourquet

src/sampling.jl

@@ -370,6 +370,16 @@ find_type(A::Type{Array{T,N}},         _, ::Dims{N}) where {T, N} = Array{T, N}
 find_type(A::Type{Array{T,N} where T}, X, ::Dims{N}) where {N}    = Array{val_gentype(X), N}
 find_type(A::Type{Array},              X, ::Dims{N}) where {N}    = Array{val_gentype(X), N}
 
+# special shortcut
+
+make(X,         dims::Dims)                              = make(Array, X,                       dims)
+make(X,         d1::Integer, dims::Integer...)           = make(Array, X,                       Dims(tuple(d1, dims...)))
+make(::Type{X}, dims::Dims)           where {X}          = make(Array, X,                       dims)
+make(::Type{X}, d1::Integer, dims::Integer...) where {X} = make(Array, X,                       Dims(tuple(d1, dims...)))
+make(           dims::Integer...)                        = make(Array, default_sampling(Array), Dims(dims))
+
+# omitted: make(dims::Dims)
+# for the same reason that rand(dims::Dims) doesn't produce an array, i.e. it produces a scalar picked from the tuple
 
 #### BitArray
 

test/runtests.jl

@@ -416,6 +416,26 @@ end
 
     @test rand(make(Array, spString, 9)) isa Array{String}
     @test rand(make(BitArray, Sampler(MersenneTwister, [0, 0, 0, 1]), 9)) isa BitArray
+
+    for dims = ((), (2, 3), (0x2, 3), (2,), (0x2,)),
+        s    = ([], [Int], [1:3])
+
+        T = s == [] ? Float64 : Int
+        if dims != ()
+            a = rand(make(s..., dims...))
+            @test a isa Array{T,length(dims)}
+            if s == [1:3]
+                @test all(in(1:3), a)
+            end
+        end
+        if s != [] && dims isa Dims
+            a = rand(make(s..., dims))
+            @test a isa Array{T,length(dims)}
+            if s == [1:3]
+                @test all(in(1:3), a)
+            end
+        end
+    end
 end
 
 @testset "rand(make(Sparse...))" begin