8 lines
194 B
Ada
8 lines
194 B
Ada
function "*" (Left : Vector; Right : Integer) return Vector is
|
|
Result : Vector;
|
|
begin
|
|
for I in Vector'Range loop
|
|
Result(I) := Left(I) * Right;
|
|
end loop;
|
|
return Result;
|
|
end "*"
|