fork download
copy 
  1. (defun primep (l)
  2. (labels ((fact (m &optional (n 1))
  3. (if (zerop m)
  4. n
  5. (fact (1- m) (* m n)))))
  6. (zerop (mod (1+ (fact (1- l))) l))))
  7.  
  8. (loop for x from 1 to 10000
  9. unless (primep x)
  10. sum x)
Time limit exceeded #stdin #stdout 5s 13168KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/j2gR36
language:
Common Lisp (clisp 2.49.92)
created:
12 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!