12 lines
482 B
C
12 lines
482 B
C
case OP_RANDOM_INT: {
|
|
Value hi = pop_value(vm);
|
|
Value lo = pop_value(vm);
|
|
if (lo.type != VAL_INT || hi.type != VAL_INT) { fprintf(stderr, "RANDOM_INT expects (int, int)\n"); exit(1); }
|
|
int64_t a = lo.i, b = hi.i;
|
|
if (b <= a) { push_value(vm, make_int((int64_t)a)); free_value(lo); free_value(hi); break; }
|
|
int64_t span = b - a;
|
|
int64_t r = (int64_t)(rand() % (span));
|
|
push_value(vm, make_int(a + r));
|
|
free_value(lo); free_value(hi);
|
|
break;
|
|
}
|