|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T r
Length: 658 (0x292)
Types: TextFile
Names: »roll.c«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/X/Xmille/roll.c«
/*
* This routine rolls ndie nside-sided dice.
*
* @(#)roll.c 1.1 (Berkeley) 4/1/82
*
*/
# define reg register
# ifndef vax
# define MAXRAND 32767L
roll(ndie, nsides)
int ndie, nsides; {
reg long tot;
reg unsigned n, r;
tot = 0;
n = ndie;
#ifndef sun
while (n--)
tot += rand();
return (int) ((tot * (long) nsides) / ((long) MAXRAND + 1)) + ndie;
#else
while (n--)
tot += random() % nsides + 1;
return tot;
#endif
}
# else
roll(ndie, nsides)
reg int ndie, nsides; {
reg int tot, r;
reg double num_sides;
num_sides = nsides;
tot = 0;
while (ndie--)
tot += (r = rand()) * (num_sides / 017777777777) + 1;
return tot;
}
# endif