Extra primes: Difference between revisions
→{{header|Racket}}
m (→{{header|Racket}}: stub) |
|||
Line 1,948:
=={{header|Racket}}==
<lang racket>#lang racket
(require math/number-theory)
(define (extra-prime? p)
(define (prime-sum-of-prime-digits? p (s 0))
(if (zero? p)
(prime? s)
(let-values (((q r) (quotient/remainder p 10)))
(case r
((2 3 5 7) (prime-sum-of-prime-digits? q (+ s r)))
(else #f)))))
(and (prime? p) (prime-sum-of-prime-digits? p)))
(displayln (filter extra-prime? (range 10000)))</lang>
{{out}}
<pre>(2 3 5 7 23 223 227 337 353 373 557 577 733 757 773 2333 2357 2377 2557 2753 2777 3253 3257 3323 3527 3727 5233 5237 5273 5323 5527 7237 7253 7523 7723 7727)</pre>
=={{header|Raku}}==
| |||