Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
static value random_int( value o, value max ) {
if (!val_is_int(max)) {fprintf(stderr,"std_random max is no int\n");}
else {fprintf(stderr,"std_random max is in fact an int\n");}
if (!val_is_int(o)) {fprintf(stderr,"std_random o is no int\n");}
else {fprintf(stderr,"std_random o is in fact an int\n");}
val_check_kind(o,k_random);
val_check(max,int);
if( val_int(max) <= 0 )
return alloc_int(0);
return alloc_int( (rnd_int(val_rnd(o)) & 0x3FFFFFFF) % val_int(max) );
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment