home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / arm_bob / bench / BobFile1 < prev    next >
Encoding:
Text File  |  1994-07-14  |  155 b   |  15 lines
  1. /* Test 1 */
  2. main()
  3. {
  4.  n = 100;
  5.  t = time();
  6.  for (i=0;i<n;i++)
  7.     print(f(i,i*i),"\n");
  8.  print(time()-t," 1/100-secs\n");
  9. }
  10.  
  11. f(x,y)
  12. {
  13.  return x%2?x:y;
  14. }
  15.