Consecutive primes with ascending or descending differences: Difference between revisions

J: same conceptual algorithm, faster, more compact
(J: same conceptual algorithm, faster, more compact)
Line 574:
 
=={{header|J}}==
<lang J>(> {. seqs ;{~ .(\: > # &. @>) seqs =:tris <@~.@; &. > tris <,;._1~ -. > <:/ &. > 2 -~/\ &. >|: tris =: 3 <]\ p: i.78497) (1!p:2)inv 21e6
(> {. seqs {~ \: > # &. > seqs =: ~.@; &. > tris <;._1~ -. > >/ &. > 2 -~/\ &. > tris =: 3 <\ p: i.78497) (1!:2) 2</lang>
<pre>
128981 128983 128987 128993 129001 129011 129023 129037
;{.(\: #@>) tris <@~.@,;._1~ >:/ 2 -/\ |: tris=: 3 ]\ p: i. p:inv 1e6
322171 322193 322213 322229 322237 322243 322247 322249</prelang>
 
=={{header|jq}}==
6,962

edits