Successive prime differences: Difference between revisions
→{{header|Picat}}
Line 2,008:
{6,4,2} : 306 {31,37,41,43}...{997141,997147,997151,997153}
</pre>
=={{header|Picat}}==
{{trans|Prolog}}
<lang Picat>main =>
Num is 1_000_000,
statistics(runtime,[Start|_]),
PrimeList = primes(Num),
NumPrimes = PrimeList.len,
statistics(runtime,[Stop|_]),
RunTime = Stop - Start,
printf("There are %w primes until %w [time(ms) %w]%n",NumPrimes, Num, RunTime),
DiffList = [[1], [2], [2,2], [2,4], [4,2], [2,4,6],
[2,6,4], [4,2,6], [4,6,2], [6,2,4], [6,4,2],[6,4,2,4]],
run(DiffList, PrimeList).
primesByDiffs([],_,[]).
primesByDiffs([Prime|Primes], Diff, [Slide|Slides]):-
Slide = new_list(Diff.len+1),
append(Slide, _, [Prime|Primes]),
select(Diff, Slide),!,
primesByDiffs(Primes, Diff, Slides).
primesByDiffs([_|Primes], Diff, Slides):-
primesByDiffs(Primes, Diff, Slides).
select([],_).
select([Diff|Diffs],[S1, S2|Stail]):-
S2 = S1 + Diff,
select(Diffs, [S2|Stail]).
run([],_).
run([Diff|Dtail], PrimeList):-
statistics(runtime,[Start|_]),
primesByDiffs(PrimeList, Diff, SlideList),
Num = SlideList.len,
statistics(runtime,[Stop|_]),
Runtime = Stop - Start,
printf("%-10w number: %5w (%2wms) first: %-22w last: %-22w\n", Diff, Num, Runtime, SlideList.first, SlideList.last),
!,
run(Dtail, PrimeList).</lang>
{{out}}
<pre>There are 78498 primes until 1000000 [time(ms) 130]
[1] number: 1 ( 9ms) first: [2,3] last: [2,3]
[2] number: 8169 (10ms) first: [3,5] last: [999959,999961]
[2,2] number: 1 (10ms) first: [3,5,7] last: [3,5,7]
[2,4] number: 1393 (11ms) first: [5,7,11] last: [999431,999433,999437]
[4,2] number: 1444 (10ms) first: [7,11,13] last: [997807,997811,997813]
[2,4,6] number: 279 (12ms) first: [17,19,23,29] last: [997097,997099,997103,997109]
[2,6,4] number: 297 (12ms) first: [29,31,37,41] last: [979541,979543,979549,979553]
[4,2,6] number: 162 (12ms) first: [67,71,73,79] last: [980587,980591,980593,980599]
[4,6,2] number: 300 (12ms) first: [19,23,29,31] last: [997099,997103,997109,997111]
[6,2,4] number: 159 (12ms) first: [1601,1607,1609,1613] last: [997091,997097,997099,997103]
[6,4,2] number: 306 (13ms) first: [31,37,41,43] last: [997141,997147,997151,997153]
[6,4,2,4] number: 62 (13ms) first: [31,37,41,43,47] last: [959461,959467,959471,959473,959477]
</pre>
=={{header|Prolog}}==
<lang prolog>prime(2). % use swi prolog
| |||