home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / basic / log10k.bzs / LOG10K.BAS
Encoding:
BASIC Source File  |  1987-07-20  |  1.4 KB  |  55 lines
  1. 10 '**************************************
  2. 20 ' T.A. Elkins Log(10k!) Benchmark
  3. 30 ' -------------------------------
  4. 40 '
  5. 50 ' Computes number of decimal digits in
  6. 60 ' 10,000 factorial.  (Exact answer is
  7. 70 ' 35660.)
  8. 80 '
  9. 90 ' See COMPUTERWORD, April 20, 1987, for
  10. 100 ' more information.
  11. 110 '
  12. 120 ' Translated to CP/M MBASIC 5.0
  13. 130 ' Jim Lill 19 July 87
  14. 140 '
  15. 150 '**************************************
  16. 160 '
  17. 170 ' IBM PC Results:
  18. 180 '
  19. 190 ' Compiler/     Code  Time
  20. 200 ' Intrepreter   Size  (sec)  Error
  21. 210 ' ------------  ----  -----  -----
  22. 220 ' TrueBASIC      82K    3.5
  23. 230 ' Better BASIC   48K   10
  24. 240 ' Quick BASIC    27K   56
  25. 250 ' GW-BASIC       n/a  149
  26. 260 '
  27. 270 ' (Error results were not given.)
  28. 280 '
  29. 290 ' Amiga Results:
  30. 300 '
  31. 310 ' AmigaBASIC     n/a  103    0.5457
  32. 320 '
  33. 330 ' CP/M Results:
  34. 340 '
  35. 350 ' MBASIC 5.0 \
  36. 360 ' @ 10MHz     \  n/a  110    0.5462
  37. 370 ' @  6MHz     /  n/a  184    0.5462
  38. 380 '**************************************
  39. 390 DEFINT I
  40. 400 DEFDBL E,X,Y,Z
  41. 410 Z=10
  42. 420 X=0
  43. 430 EXACT = 35660#
  44. 440 PRINT "Elkins Log(10k!) Benchmark"
  45. 450 PRINT
  46. 460 PRINT "Note the Start Time!";CHR$(7)
  47. 470 FOR I=2 TO 10000
  48. 480  Y=I
  49. 490  X=X+LOG(Y)
  50. 500 NEXT I
  51. 510 PRINT "Note the End Time!";CHR$(7)
  52. 520 PRINT
  53. 530 PRINT "Error: ";EXACT - X/LOG(Z)
  54. 540 END
  55.