Anonymous user
Primality by trial division: Difference between revisions
→{{header|Delphi}}
(→{{header|Perl 6}}: make work under niecza too) |
|||
Line 404:
=={{header|Delphi}}==
=== First ===
<lang Delphi>function IsPrime(aNumber: Integer): Boolean;
var
Line 421 ⟶ 423:
Break;
end;
end;</lang>
=== Second ===
<lang Delphi>function IsPrime(const x: integer): Boolean;
var
i: integer;
begin
i := 2;
repeat
if X mod i = 0 then
begin
Result := False;
Exit;
end;
Inc(i);
until i > Sqrt(x);
Result := True;
end;</lang>
|