Code: Select all
10 CLS
20 PRINT "2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97"
30 END
Code: Select all
(define (prime? x) (= (first (factor x)) x))
(println (filter prime? (sequence 2 100)))
Code: Select all
(define (primes n , p)
(dotimes (e n)
(if (= (length (factor e)) 1)
(push e p -1))) p)