brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Streamline 4-digit primes tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-16 22:36:43 +01:00
parent c122df4c9e
commit e1ffc98c53
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
primes.scm
View file

@ -79,10 +79,13 @@
(define (primes-tests!) (define (primes-tests!)
(run-tests (run-tests
primes primes
(test-true check-prime (check-prime primes<100 67))
(test-true is-4digit-prime? (is-4digit-prime? 2803))
(test-false is-4digit-prime? (is-4digit-prime? 666))
(test-false is-4digit-prime? (is-4digit-prime? 997))
(test-false is-4digit-prime? (is-4digit-prime? 6666))
(test-false is-4digit-prime? (is-4digit-prime? 66666))
(test-false is-4digit-prime? (is-4digit-prime? 10007))
)) ))
) )
(import primes)
(primes-tests!)