home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / armbob / bench / BobFile2 < prev    next >
Encoding:
Text File  |  1994-07-14  |  155 b   |  15 lines
  1. /* test 2 */
  2. main()
  3. {
  4.  n = 10;
  5.  t = time();
  6.  for (i=0;i<n;i++)
  7.     print(f(i),"\n");
  8.  print(time()-t," 1/100-secs\n");
  9. }
  10.  
  11. f(x)
  12. {
  13.  return x?(x*f(x-1)):1;
  14. }
  15.