Arithmetic/Rational: Difference between revisions
Content added Content deleted
(→{{header|jq}}: add rround and modify rsqrt to use rround (for speed)) |
(add fermat) |
||
| Line 947: | Line 947: | ||
Perfect numbers <= 2^19: |
Perfect numbers <= 2^19: |
||
V{ 6 28 496 8128 } |
V{ 6 28 496 8128 } |
||
</pre> |
|||
=={{header|Fermat}}== |
|||
Fermat supports rational aritmetic natively. |
|||
<lang fermat> |
|||
for n=2 to 2^19 by 2 do |
|||
s:=3/n; |
|||
m:=1; |
|||
while m<=n/3 do |
|||
if Divides(m,n) then s:=s+1/m; fi; |
|||
m:=m+1; |
|||
od; |
|||
if s=2 then !!n fi; |
|||
od;</lang> |
|||
{{out}} |
|||
<pre> |
|||
6 |
|||
28 |
|||
496 |
|||
8128 |
|||
</pre> |
</pre> |
||