test/clib/randtest.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <stdio.h>
   7 #include <stdlib.h>
   8
   9 int main(void)
  10 {
  11   int c = 0;
  12   int array[20];
  13   unsigned short param[7] = {4,5,0,1,2,1,0x2};
  14   unsigned short seed16v[3] = {1,2,3};
  15   unsigned short xsubi[3] = {1,2,3};
  16   unsigned short *sptr;
  17   srand48(0x1);
  18
  19   c = 0 ;
  20   while (c < 20)
  21   {
  22     array[c] = lrand48();
  23     c++;
  24   }
  25
  26   printf("---\n");
  27
  28   srand48(0x1);
  29   c = 0 ;
  30   while (c < 20)
  31   {
  32     union {
  33         double d;
  34         int i[2];
  35     } tmp;
  36     tmp.d = drand48();
  37     int a = tmp.i[0];
  38     int b = tmp.i[1];
  39
  40     printf("%d. %e  (%x %x) %x\n",c,tmp.d,a,b,array[c]);
  41     c++;
  42   }
  43
  44   lcong48(param);
  45   c = 0 ;
  46   while (c < 30)
  47   {
  48     printf("%d. %lx\n",c,lrand48());
  49
  50     c++;
  51   }
  52
  53   sptr = seed48(seed16v);
  54   printf("---\n %x,%x,%x\n",sptr[0],sptr[1],sptr[2]);
  55   c = 0 ;
  56   while (c < 30)
  57   {
  58     printf("%d. %lx\n",c,lrand48());
  59     c++;
  60   }
  61   printf("---\n");
  62
  63   c = 0 ;
  64   while (c < 10)
  65   {
  66     printf("%d. %e (%x,%x,%x)\n",c,erand48(xsubi),xsubi[0],xsubi[1],xsubi[2]);
  67     c++;
  68   }
  69   printf("---\n");
  70
  71   c = 0 ;
  72   xsubi[0] = 0;
  73   xsubi[1] = 1;
  74   xsubi[2] = 0;
  75   while (c < 10)
  76   {
  77     printf("%d. %lx (%x,%x,%x)\n",c,nrand48(xsubi),xsubi[0],xsubi[1],xsubi[2]);
  78     c++;
  79   }
  80   printf("---\n");
  81
  82   c = 0 ;
  83   while (c < 10)
  84   {
  85     printf("%d. %lx (%x,%x,%x)\n",c,jrand48(xsubi),xsubi[0],xsubi[1],xsubi[2]);
  86     c++;
  87   }
  88
  89
  90   return 0;
  91 }