Hash from two arrays

patente per aprire agenzia viaggi famosas brasileiras un emozione per sempre rasaerba valex agenzie immobiliari ferrara provincia gabbro qatar airline dolfi hi mora assemblaggio gaber fernandez tecnico venditore verona (regione veneto verona provincia) gg d agostino telecamere sony trv scale arabe era cd hi fi da muro pioneer diffusori la carriera di suzanne foto gratis sul cantante luca di risio ugl kuwait airways notebook geforce 6600 mensagem da vivo em portugues batteria litio siemens me 45 samuele riva the corrs summer sunshine mucc mein block instrumental batteria per cordless dsp arezzo bulldog allevamenti in roma quattrocchi download nanotubi centro morrone intro by paperboy piscine rigide everytime di britney spaers perizomi canon eos 1d voglia di sesso suzuki usb 2 0 pcmciacard najaf sex animal videoclip organizer prezzi biglietti treni italia noti play lettore mp3 512mb ipod blondei www radio formula com mx fuck your right back canti brigantaggio vivoperlei los redondos infissi in pvc il paradiso perduto della appeal ratchet e clank immagini lesbo marrakech hotel www cercoamicivip casse accessori philips audio video www musicvideo com rossellabrescia il re pastore sinfonia adsl tiscali ejaculation notebook hp nx8220 www aie srl it gratis video porno unicredito banca motoseghe da taglio ya no queda nada tito nieves honey rabbit yves saint laurent volkswagen 9 posti hard disk box firewire netgear wireless router bella grazia netsky p muvo creative prima squadriglia stampanti brother hl 2040 topografia italia veneto benq dc 50 chamisso adalbert von sharp ar 5316 sister act 2 joyful joyful policyjne golden dragon elthon john milano atene viaggio nella terra dei morti microlaser la ragazza del riformatorio su aste ufo giovanni boccaccio kettler traveller www moby it driver 2 radeon xpress telefono cordless segretaria zurigo brindisi coded arms remota backup natalie imbruglia left of the middle kia clarus george bensongreatest hits nokia n gage temporary health insurance night club milano sito costantino www medievo it wqww google it web hosting gratis immagini per ecks vs sever 2 trasporto medicinali bmw cabrio 2002 percorso rosso pc2700 333 telgua recupero dati nascosti magazin ne tatuaggio cantante borsa portatile spartitti gratis monitor lcd packard bell battiti lenti de cuore da 10 anni video porno interi da scaricare gratis plextor px716uf fabbrica di ufficiali www gogoboys com br luci del circo add new link gan ma driver motherboard voli dubai atv off road batteria samsung a800 hotel milano sala riunioni jessica simpson foto digicom tintoretto pene curvo ram edo dana e roby www booble com ti voglio vestita phangnga (provincia) www superpam com sound blaster audigy 2 value bulk vesa standard sigla telefilm lopez video mundo reggaeton turbamento graso acquistare video balli di gruppo gsx r 600 ferdi tayfur quali amori focosa watteau cd philips tavolo panda 1997 onano ponostar asiatiche king of fighters 2002 in casa k armadio per bambino blue to usb memory stick dolina iee bang bang bang trasporto merci logistica transcend mmc dv 256 io si kingston 1024 scratchdance maco s spa creative slim 1gb giorgio iii testo canzone in italiano dei blue samsung videocamera ego to nem ai maria belanova turrican christie horrr gazzano ecografia toner hp 4550 dn pentium dissipatori e ventole calendario di victoria pennington mantenimiento girl nude lisieux reggio emilia dvd recorder vhs lg infanzia vocazione e prime esperienze di giacomo casanova veneziano la scola della musica moore catherine lucille gilda di firenze lawrence tierney immagini di edipo estrellita sarai luomo delle montagne fabrizio faniello brock lesner premi letterari mp3 de nirvana djm 500 video killed the radio www fotosprivadas com www giochi pc it graver dans la roche dvd r70 tiziano ferro nonme lo so spiegare la donna il sesso il superuomo raccolta dvd bruce lee film argenteria firenze jomini henri musicgel medio costi ionita zoom 10x vlatka pokos siamo soli di vasco rossi fonderia piombo discorso del sindaco yon puta jean simmons automodellismo scoppio 1 5 hp 6210 fax geforce 6600 256 mb agp google moj posao software per lg u8110 bertallosophie vol 3 nietzsche opere complete sinudyne 29 cliff richard live castle in the air nikon speedlight mercato della moto iz filesharing italiano archivio immagini odore di sborra ekstrabladet gli scettici

Using two Arrays of equal length, create a Hash object where the elements from on array (the keys) are linked to the elements of the other (the values)

Ada

Compiler: GNAT GPL 2007

with Ada.Strings.Hash;
with Ada.Containers.Hashed_Maps;
with Ada.Text_Io;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

procedure Hash_Map_Test is
   function Equivalent_Key (Left, Right : Unbounded_String) return Boolean is
   begin
      return Left = Right;
   end Equivalent_Key;
  
   function Hash_Func(Key : Unbounded_String) return Ada.Containers.Hash_Type is
   begin
      return Ada.Strings.Hash(To_String(Key));
   end Hash_Func;
  
   package My_Hash is new Ada.Containers.Hashed_Maps(Key_Type => Unbounded_String,
      Element_Type => Unbounded_String,
      Hash => Hash_Func,
      Equivalent_Keys => Equivalent_Key);
     
   type String_Array is array(Positive range <>) of Unbounded_String;
     
   Hash : My_Hash.Map;
   Key_List : String_Array := (To_Unbounded_String("foo"), 
      To_Unbounded_String("bar"),
      To_Unbounded_String("val"));
     
   Element_List : String_Array := (To_Unbounded_String("little"), 
      To_Unbounded_String("miss"), 
      To_Unbounded_String("muffet"));
     
begin
   for I in Key_List'range loop
      Hash.Insert(Key => (Key_List(I)),
         New_Item => (Element_List(I)));
   end loop;
   for I in Key_List'range loop
      Ada.Text_Io.Put_Line(To_String(Key_List(I))