PasteRack.org
Paste # 34652
2014-10-30 13:06:37

Fork as a new paste.

Paste viewed 918 times.


Embed:

simple prime number finder

  1. #lang racket
  2.  
  3. (define (not-empty? lst)
  4.   (not (empty? lst)))
  5.  
  6. (define (divideable? n m)
  7.   (integer? (/ n m)))
  8.  
  9. (define (is-prime-for-list? n lst)
  10.   (not (or (divideable? n (first lst))
  11.       (and (not-empty? (rest lst))
  12.            (is-prime-for-list? n (rest lst))))))
  13.  
  14. (define (is-prime? n)
  15.   (let ([lst (build-list (- n 2) (lambda (x) (+ n 2)))])
  16.     (is-prime-for-list? n lst)))
  17.  
  18. (is-prime? 3)
  19. (is-prime? 4)
  20. (is-prime? 5)
  21. (is-prime? 6)

=>

#t

#f

#t

#f