Factors of an integer: Difference between revisions
PascalABC.NET
m (→{{header|Uiua}}: Fixed the maths!) |
(PascalABC.NET) |
||
Line 5,370:
Real time: 13.082 s CPU share: 99.16 %
</pre>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
function Factors(n: integer): List<integer>;
begin
var res := HSet(1,n);
for var i:=2 to n.Sqrt.Trunc do
if n.Divs(i) then
begin
res.Add(i);
res.Add(n div i);
end;
Result := res.Order.ToList;
end;
begin
foreach var x in |45,53,64| do
Println(x,Factors(x));
end.
</syntaxhighlight>
{{out}}
<pre>
45 [1,3,5,9,15,45]
53 [1,53]
64 [1,2,4,8,16,32,64]
</pre>
=={{header|Perl}}==
| |||