10 lines
228 B
Common Lisp
10 lines
228 B
Common Lisp
(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)
|