home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / RLaB 1.18c / examples / primes.r < prev    next >
Encoding:
Text File  |  1994-09-20  |  330 b   |  26 lines  |  [TEXT/ttxt]
  1. //
  2. // An example that finds all primes less than limit
  3. //
  4.  
  5. primes = function (limit) 
  6. {
  7.   local (limit)
  8.  
  9.   i = 1; j = 0; cnt = 0;
  10.   for(k in 2:limit) 
  11.   {
  12.     j = 2;
  13.     while(mod(k,j) != 0) 
  14.     {
  15.       j++;
  16.     }
  17.     if(j == k)     // Found prime
  18.     {
  19.       cnt++;
  20.       prime[1;i] = k;
  21.       i++;
  22.     }
  23.   }
  24.   return prime;
  25. };
  26.