mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
37 lines
778 B
Ada
37 lines
778 B
Ada
-- Predefined Libraries
|
|
with Ada.Text_IO; use Ada.Text_IO;
|
|
|
|
-- User Defined Libraries
|
|
with Prime_1;
|
|
with Common; use Common;
|
|
|
|
procedure Mainloop is
|
|
|
|
Divider : Natural;
|
|
Where : Partition_ID;
|
|
|
|
begin
|
|
|
|
for Number in 2 .. 50 loop
|
|
|
|
Prime_1.Test_Primarity (Number, Divider, Where);
|
|
if Divider = Number then
|
|
Put_Line (Natural'Image (Number) &
|
|
" (prime on" &
|
|
Partition_ID'Image (Where) &
|
|
")");
|
|
|
|
else
|
|
Put_Line (Natural'Image (Number) &
|
|
" (divided by" &
|
|
Natural'Image (Divider) &
|
|
" on" &
|
|
Partition_ID'Image (Where) &
|
|
")");
|
|
|
|
end if;
|
|
|
|
end loop;
|
|
|
|
end Mainloop;
|