Anonymous user
Lucas-Lehmer test: Difference between revisions
m
→{{header|Ada}}: Simplified code
m (→{{header|Ada}}: Changed from long_long_integer to 64 bit unsigned integer) |
m (→{{header|Ada}}: Simplified code) |
||
Line 9:
with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
procedure Lucas_Lehmer_Test is
Line 26 ⟶ 25:
end if;
end Mersenne;
Upper_Bound : constant Integer :=
begin
Put_Line(" Mersenne primes:");
Line 34 ⟶ 32:
Put(" M");
Put(Item => P, Width => 1);
end if;
end loop;
end Lucas_Lehmer_Test;
Output:
Mersenne primes:
| |||