1. Leslie P. Polzer
  2. cl-prevalence


Leslie P. Polzer  committed a001128

prime number demo: set a limit apart from MOST-POSITIVE-FIXNUM (patch by Johan Ur Riise <johan@riise-data.no>

  • Participants
  • Parent commits 526c9e5
  • Branches default

Comments (0)

Files changed (2)


View file
  • Ignore whitespace
+* port to ccl, ecl
 * introduce global state that doesn't get reset
 * move txn-state to serialize-xxx, local-state

File test/demo1.lisp

View file
  • Ignore whitespace
 	       (candidate (if numbers-list (1+ (first numbers-list)) 0))
 	       (largest 0))
-	   (when (> candidate most-positive-fixnum)
+	   (when (> candidate (min most-positive-fixnum 16777215))
 	   (when (prime-p candidate)
 	     (execute system (make-transaction 'tx-add-number candidate))