Anonymous user
Fraction reduction: Difference between revisions
m
→{{header|Ada}}
No edit summary |
m (→{{header|Ada}}) |
||
Line 72:
=={{header|Ada}}==
{{trans|Python}}
<lang Ada>with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Text_IO; use Ada.Text_IO;
procedure Fraction_Reduction is
Line 78:
type Int_Array is array (Natural range <>) of Integer;
renames Ada.Integer_Text_IO.Put;▼
function indexOf(haystack : Int_Array; needle : Integer) return Integer is
idx : Integer := 0;
Line 134 ⟶ 129:
(others => (others => 0));
begin
for i in lims'Range loop
declare
|