aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Task/Vector/Ada/vector.ada
View file

@ -1,31 +0,0 @@
with Ada.Text_IO;
procedure Vector_Demo is
type Vector is record
X, Y : Float;
end record;
function "+" (A, B : Vector) return Vector is
(A.X + B.X, A.Y + B.Y);
function "-" (A, B : Vector) return Vector is
(A.X - B.X, A.Y - B.Y);
function "*" (S : Float; A : Vector) return Vector is
(S * A.X, S * A.Y);
function "/" (A : Vector; S : Float) return Vector is
(A.X / S, A.Y / S);
procedure Print (A : Vector) is
begin
Ada.Text_IO.Put_Line ("(" & A.X'Image & "," & A.Y'Image & ")");
end Print;
Example : Vector := (1.0, 1.0);
begin
Print (Example + Example);
Print (Example - Example);
Print (2.0 * Example);
Print (Example / 2.0);
end Vector_Demo;