add default rand(make([x])) like rand([x])

Author: rfourquet

src/sampling.jl

@@ -8,6 +8,34 @@ sampler(RNG::Type{<:AbstractRNG}, X::Sampler, n::Repetition=Val(Inf))
 
 sampler(rng::AbstractRNG, X, n::Repetition=Val(Inf)) = sampler(typeof(rng), X, n)
 
+
+## defaults
+
+### 0-arg
+
+make() = make(Float64)
+
+### type
+
+find_type(::Type{X}) where{X} = X
+
+Sampler(RNG::Type{<:AbstractRNG}, ::Make0{X}, n::Repetition) where {X} =
+    Sampler(RNG, X, n)
+
+### object
+
+# like Make1
+struct MakeWrap{T,X} <: Make{T}
+    x::X
+end
+
+# make(::Type) is intercepted in distribution.jl
+make(x) = MakeWrap{gentype(x),typeof(x)}(x)
+
+Sampler(RNG::Type{<:AbstractRNG}, x::MakeWrap, n::Repetition) =
+    Sampler(RNG, x.x, n)
+
+
 ## Uniform
 
 Sampler(RNG::Type{<:AbstractRNG}, d::Union{UniformWrap,UniformType}, n::Repetition) =

test/runtests.jl

@@ -453,3 +453,10 @@ end
     end
     @test rand(make(0.3, spString, 9)) isa SparseVector{String}
 end
+
+@testset "rand(make(default))" begin
+    @test rand(make()) isa Float64
+    @test rand(make(1:3)) isa Int
+    @test rand(make(1:3)) ∈ 1:3
+    @test rand(make(Float64)) isa Float64
+end