在Ada中,使用Ada.Containers.Hash_Tables库中的Hashmap来存储元素。以下是代码示例:
with Ada.Containers; use Ada.Containers;
with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
package My_Hash is new Hash_Tables
(Key_Type => Integer, Element_Type => Character);
My_Map : My_Hash.Map;
begin
-- Insert element into hashmap
My_Map.Insert(1 => 'A');
-- Retrieve element from hashmap
declare
Value : Character := My_Map.Element(1);
begin
Put("Element value: ");
Put_Line(Value);
end;
end Main;
在这个示例中,我们使用了Key_Type为 Integer,Element_Type为 Character的Hashmap,即将整数作为键,字符作为值来存储元素。使用Insert子程序来插入元素,使用Element函数来检索元素。