tankf33der/isprime-knuth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.

Browse source
This commit is contained in:
Mike 2023-08-25 11:09:39 +03:00
parent 67e3e04ea2
commit eea5f9ccb0
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test-factordb.l Normal file
View file

@ -0,0 +1,10 @@
(load "isprime.l")
(in '(bzcat factordb-prp.bz2)
(until (eof)
(let N (format (line T))
(at (0 . 10000) (prin ".") (flush))
(or
(prime? N)
(quit "Boom!") ) ) ) )
(msg 'ok)
(bye)