6502/kickc
1
0
Fork 0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-09-30 09:57:11 +00:00
Code Issues Projects Releases Wiki Activity

Added primes test C-file.

Browse Source
This commit is contained in:
jespergravgaard 2020-04-17 01:13:41 +02:00
parent a84cb1a977
commit 7803f6710b
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/test/kc/primes-1000.c Normal file
View File

@ -0,0 +1,33 @@
// Calculates the 1000 first primes
// From A Comparison of Language Speed, The Transactor, March 1987, Volume 7, Issue 5
// http://csbruce.com/cbm/transactor/pdfs/trans_v7_i05.pdf
#include <print.h>
#include <multiply.h>
#include <division.h>
#define totalprimes 1000
int testnum, primeptr, lasttest, lastprime;
int primenum[totalprimes];
void main() {
primenum[1] = 2; primenum[2] = 3;
testnum = 3; lasttest = 2; lastprime = 2;
do {
int p = primenum[lasttest];
if(testnum > (int)mul16s(p, p)) {
lasttest++;
}
testnum +=2; primeptr = 2;
do {
div16s(testnum, primenum[primeptr++]);
if(rem16s == 0) {
testnum +=2; primeptr = 2;
}
} while (primeptr<=lasttest);
primenum[++lastprime] = testnum;
print_sint_decimal(testnum);
print_char(' ');
} while(lastprime<totalprimes);
}