declare
subtype Random_Range is Integer range A .. B;
package Rand is
new Ada.Numerics.Discrete_Random (Random_Range);
use Rand;
Gen : Generator;
Result : Random_Range;
begin
Reset (Gen);
Result := Random (Gen);
end;
int pick(int a, int b)
{
int upper_bound = b - a + 1;
int max = RAND_MAX - RAND_MAX % upper_bound;
int r;
do {
r = rand();
} while (r >= max);
r = r % upper_bound;
return a + r;
}
std::mt19937 gen;
std::uniform_int_distribution<size_t> uid (a, b);
uid (gen);
Random r = new Random();
return r.Next(a, b + 1);
Random.Shared.Next(a, b + 1)
auto x1 = uniform(a, b+1);
auto x2 = uniform!"[]"(a, b);
int pick(int a, int b) => a + Random().nextInt(b - a + 1);
a - 1 + :rand.uniform(b-a+1)
:crypto.rand_uniform(a, b)
crypto:rand_uniform(A, B)
real :: c
integer :: res
call random_number(c)
res = int((b-a+1)*c)
func pick(a, b int) int {
return a + rand.IntN(b-a+1)
}
func pick(a,b int) int {
return a + rand.Intn(b-a+1)
}
let pick (a, b) = randomRIO (a, b) :: IO Integer
in pick (1, 6) >>= print
function pick(a, b) {
return a + Math.floor(Math.random() * (b - a + 1));
}
int pick(int a, int b){
return a + new Random().nextInt(b - a + 1);
}
Random r = new Random();
int v = r.nextInt(a, b);
fun pick(a: Int, b: Int): Int {
return (a..b).random()
}
(defun r (a b)
(+ a (random (+ 1 (- b a )))))
a+arc4random_uniform(b+1)
var
_a, _b, _r: Integer;
begin
_r := RandomRange(_a, _b);
end;
my ($min, $max) = (5, 25);
my $val = $min + int(rand($max-$min));
Uniform::new_inclusive(a, b).sample(&mut rand::thread_rng())
fn pick(a: i32, b: i32) -> i32 {
let between = Range::new(a, b);
let mut rng = rand::thread_rng();
between.ind_sample(&mut rng)
}
a + Random.nextInt(b + 1)
(floor (+ a (* (add1 (- b a)) (random 1.0))))
(+ a (random (add1 (- b a))))