home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / HACKSRC.ZIP / RND.C < prev    next >
Text File  |  1985-10-16  |  310b  |  31 lines
  1. /* rnd.c - version 1.0.2 */
  2.  
  3. #define RND(x)    ((rand()>>3) % x)
  4.  
  5. rn1(x,y)
  6. register x,y;
  7. {
  8.     return(RND(x)+y);
  9. }
  10.  
  11. rn2(x)
  12. register x;
  13. {
  14.     return(RND(x));
  15. }
  16.  
  17. rnd(x)
  18. register x;
  19. {
  20.     return(RND(x)+1);
  21. }
  22.  
  23. d(n,x)
  24. register n,x;
  25. {
  26.     register tmp = n;
  27.  
  28.     while(n--) tmp += RND(x);
  29.     return(tmp);
  30. }
  31.