Sexy primes: Difference between revisions
Content added Content deleted
m (Minor edit to C++ code) |
m (Minor edit to Prolog code) |
||
| Line 1,518: | Line 1,518: | ||
retract(is_prime(S)), |
retract(is_prime(S)), |
||
!, |
!, |
||
Q is S + P, |
Q is S + 2 * P, |
||
cross_out(Q, N, P). |
cross_out(Q, N, P). |
||
cross_out(S, N, P):- |
cross_out(S, N, P):- |
||
Q is S + P, |
Q is S + 2 * P, |
||
cross_out(Q, N, P).</lang> |
cross_out(Q, N, P).</lang> |
||