home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / PowerLisp 1.1 / examples / primes.lisp < prev    next >
Encoding:
Text File  |  1994-04-04  |  481 b   |  19 lines  |  [TEXT/ROSA]
  1. ;
  2. ;        File:        primes.lisp
  3. ;        Contents:    Lisp program to generate all the prime numbers
  4. ;                    between 1 and n. It is quick and dirty, and uses
  5. ;                    a brute force approach to calculating them (i.e. it
  6. ;                    tries all possibilites).
  7. ;
  8. (defun primes (n1 n2)
  9.     "Generate all the prime numbers between n1 and n2"
  10.     (do ((i n1 (1+ i)))
  11.         ((> i n2))
  12.         (block inner
  13.             (do ((j 2 (1+ j)))
  14.                 ((>= j i) (print i))
  15.                 (if (zerop (mod i j))    ; if found a divisor
  16.                      (return-from inner)))))) 
  17.  
  18.  
  19.