Strange unique prime triplets: Difference between revisions
Content added Content deleted
(Added Forth solution) |
m (→{{header|REXX}}: changed some comments.) |
||
Line 1,212: | Line 1,212: | ||
commas: parse arg ?; do jc=length(?)-3 to 1 by -3; ?=insert(',', ?, jc); end; return ? |
commas: parse arg ?; do jc=length(?)-3 to 1 by -3; ?=insert(',', ?, jc); end; return ? |
||
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
||
genP: !.= 0; w= length(hi) /* |
genP: !.= 0; w= length(hi) /*semaphores for primes; width of #'s.*/ |
||
@.1=2; @.2=3; @.3=5; @.4=7; @.5=11 /*define some low primes. */ |
@.1=2; @.2=3; @.3=5; @.4=7; @.5=11 /*define some low primes. */ |
||
!.2=1; !.3=1; !.5=1; !.7=1; !.11=1 /* " " " " |
!.2=1; !.3=1; !.5=1; !.7=1; !.11=1 /* " " " " semaphores. */ |
||
#=5; s.#= @.# **2 /*number of primes so far; prime². */ |
#=5; s.#= @.# **2 /*number of primes so far; prime². */ |
||
/* [↓] generate more primes ≤ high.*/ |
/* [↓] generate more primes ≤ high.*/ |