1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
|
/* File: z-rand.h */
#ifndef INCLUDED_Z_RAND_H
#define INCLUDED_Z_RAND_H
#include "h-basic.h"
/**** Available constants ****/
/*
* Random Number Generator -- Degree of "complex" RNG -- see "misc.c"
* This value is hard-coded at 63 for a wide variety of reasons.
*/
#define RAND_DEG 63
/**** Available macros ****/
/*
* Generates a random long integer X where O<=X<M.
* The integer X falls along a uniform distribution.
* For example, if M is 100, you get "percentile dice"
*/
#define rand_int(M) \
((Rand_unbiased) ? ((s32b)(Rand_num(M))) : (Rand_div(M)))
/*
* Generates a random long integer X where A<=X<=B
* The integer X falls along a uniform distribution.
* Note: rand_range(0,N-1) == rand_int(N)
*/
#define rand_range(A,B) \
((A) + (rand_int(1+(B)-(A))))
/*
* Generate a random long integer X where A-D<=X<=A+D
* The integer X falls along a uniform distribution.
* Note: rand_spread(A,D) == rand_range(A-D,A+D)
*/
#define rand_spread(A,D) \
((A) + (rand_int(1+(D)+(D))) - (D))
/*
* Generate a random long integer X where 1<=X<=M
* Also, "correctly" handle the case of M<=1
*/
#define randint(M) \
(rand_int(M) + 1)
/*
* Evaluate to TRUE "P" percent of the time
*/
#define magik(P) \
(rand_int(100) < (P))
#define one_in_(X) \
(rand_int(X) == 0)
/**** Available Variables ****/
extern bool Rand_unbiased;
extern bool Rand_quick;
extern u32b Rand_value;
extern u16b Rand_place;
extern u32b Rand_state[RAND_DEG];
/**** Available Functions ****/
extern int Rand_bit(void);
extern u32b Rand_u32b(void);
extern u32b Rand_num(u32b m);
extern void Rand_state_init(u32b seed);
extern s32b Rand_mod(s32b m);
extern s32b Rand_div(u32b m);
extern s16b randnor(int mean, int stand);
extern s16b damroll(int num, int sides);
extern s16b maxroll(int num, int sides);
#endif
|