Anonymous user
Giuga numbers: Difference between revisions
m
→{{header|Free Pascal}}: forgotten to insert the lang <lang pascal> append used time
m (→{{header|J}}) |
m (→{{header|Free Pascal}}: forgotten to insert the lang <lang pascal> append used time) |
||
Line 137:
==={{header|Free Pascal}}===
changing main routine at the end of [[Factors_of_an_integer#using_Prime_decomposition]]
<lang pascal>
const
LMT = 24423128562;//70*1000;//
Line 198:
begin
inc(cnt);
writeln(cnt:3,'..',OutPots(pPrimeDecomp,n),' ',(GettickCount64-T0)/1000:6:3,' s');
end;
end;
Line 207:
writeln;
END.</lang>
{{out|@home AMD 5600G}}
<pre>
1..30 : 8 : 2*3*5_chk_30<_SoD_72< 0.001 s
2..858 : 16 : 2*3*11*13_chk_858<_SoD_2016< 0.001 s
3..1722 : 16 : 2*3*7*41_chk_1722<_SoD_4032< 0.001 s
4..66198 : 32 : 2*3*11*17*59_chk_66198<_SoD_155520< 0.003 s
5..2214408306 : 64 : 2*3*11*23*31*47057_chk_2214408306<_SoD_5204238336< 52.020 s
6..24423128562 : 64 : 2*3*7*43*3041*4447_chk_24423128562<_SoD_57154166784<
runtime 673.643 s
Count 6
real 11m13,645s user 11m12,962s sys 0m0,247s</pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
| |||