ack/lang/basic/lib/random.c
2016-12-12 21:16:32 +01:00

33 lines
401 B
C

#include <stdlib.h>
#include <stdio.h>
#if !defined(EM_WSIZE)
#define EM_WSIZE _EM_WSIZE
#endif
void _randomi(void)
{
int i;
_setchan(-1);
printf("Random number seed (-32768 to 32767) ? ");
_readint(&i);
_setrand(i);
}
void _setrand(int i)
{
srand(i);
}
double _rnd(double d)
{
double f;
f = (int)rand();
return (f /
#if EM_WSIZE == 4
2147483647.0
#else
32767.0
#endif
);
}