PasteRack.org
Paste # 11878
2020-08-16 04:09:04

Fork as a new paste.

Paste viewed 445 times.


Embed:

primes

  1. #lang racket
  2.  
  3. (define (prime-factors n)
  4.   (for ([i (in-range 2 n)])
  5.     (if (and (= (modulo n i) 0) (not(= (/ n i) 1))) ((display i) (prime-factors (/ n i))) (display i))))

=>