OS_Develop/dos_compilers
OS_Develop/dos_compilers
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make sieve conform to the standard benchmark

Browse Source
This commit is contained in:
davidly 2024-07-05 06:05:35 -07:00
parent 25a6dde172
commit 27288dc13f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Ashwood-Smith PC-LISP v3/SIEVE.LSP
View File

@ -8,7 +8,7 @@
(setq i 0)
(setq count 0)
_nexti_
(cond ((< i size)
(cond ((<= i size)
(a t i)
(setq i (add1 i))
(go _nexti_))
@ -16,13 +16,13 @@
(setq i 0)
_nexti2_
(cond ((< i size)
(cond ((<= i size)
(cond ((a i)
(setq prime (+ i i 3))
(setq k (+ i prime))
(prog ()
_nextk_
(cond ((< k size)
(cond ((<= k size)
(a nil k)
(setq k (+ k prime))
(go _nextk_))