Created
March 3, 2026 08:17
-
-
Save mit41301/4193fbbd01ebfa0efc2cb8c626ffb71d to your computer and use it in GitHub Desktop.
Log(10k!) Benchmark in BASIC-52
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 400 XTAL=24000000 | |
| 410 Z=10 | |
| 420 X=0 | |
| 430 EXACT=35660 | |
| 440 PRINT "Elkins Log(10k!) Benchmark" | |
| 450 TIME=0 : CLOCK 1 | |
| 460 PRINT "Note the Start Time!",INT(TIME) | |
| 470 FOR I=2 TO 10000 | |
| 480 Y=I | |
| 490 X=X+LOG(Y) | |
| 500 NEXT I | |
| 520 PRINT "Note the End Time! : ",TIME | |
| 530 PRINT "Error: ",EXACT-X/LOG(Z) | |
| 540 END | |
| REM READY | |
| REM >run | |
| REM Elkins Log(10k!) Benchmark | |
| REM Note the Start Time! 1.0 E-2 | |
| REM Note the End Time! : 36.41 | |
| REM Error: .526 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment