Hash from two arrays

gay porno incesti foto porno britny foto eros del mese sogni erotici foto della pornostar fanny bravo futbolistas desnudos ursula andrews desnuda tette famose vecchio foto nuda paola perissi video gratis tette grosse donne sexi anziane nude www sesso coit karaoke dascaricare gratis gf sexy stefania nobile porno federica mori pornostar paola fellatio gambe donne foto sex pregnent sexo de hentai y manga giochi per sole donne di tutti igeneri solo ieri eros simpson xxx gay boy sessantenni maschi gay ombre sul canal grande download video porno gratis il calendario di rossella brescia nuda lolita nuda pic fotto di orge clip porno gratis telefoni erotici donne scopano con animali doppie penetrazioni anali scopate gratis calendarios sexis porno video video catherine falgayrac testo italiano fuck you right back gay sex sites giochi programma gratis download donne con cavalli xxx school girls iran free sexy girl hard fuck donne famose nudi sesso s le sue posizioni disegni di draghi gratis giochi assai erotici eamon testo fuck it sexy free pics xxxporno donne toscana i want fuck some girls foto porno milly carlucci donne mature sesso gratis il mondo di una cover girl kasex motocicliste sexy www nuda com porno e sesso moana pozzi ex pornostar filmati porno con cavalli beastsex com ragazze sotto zero porno victoria principal transex a milano www hotsex com www sexxxxx com my trans prosperosa pornos video sex and semen elisabetta canalis max foto ragazze annunci scaricare the sims 2 gratis analogico modem trust invio messaggi gratis sexy teacher ravvedimento operoso omessa presentazion fucki t you right back free pornos aeros. the stage show annunci di donne mature 50 anni con foto brayton, george www xxxl com tatuaggi ali paola e chiara cinema per adulti sexy anal filmati amatoriali gratis foto casalegno nuda immagini sexy di uomini video gioco scaricare gratis gay gratuito transessuali annunci sesso free senza scaricare sessoestremo.com racconti erotici per masturbazione ranma xxx crazy for this girl hard core sex foto di nudo maschile pamela anderson tommy lee video sabrina ferili nuda donne nude foto porno grassi nudi giochi porno oline gratis veronica ze la doppia vita di veronica sms gratis uno al giorno donnegrasse donne che scopano con vecchi donne tg foto tette scopate free xxx videos s o sex com giocare gratis giochi sexy men pagine sexy amatoriali sexy culi seni grandi foto gratis bracciale snake testo in italiano di fuck it di eamon www iran sex com video porno di pamela anderson e tommy l racconti erotici in famiglia veronica gf5 lesbo tettone pianale accessori per autoradio georges corraface codec indeo per xp gratis pamela anderson video porno gallerie foto hard gratis una sexy giapponese eros gay sexl video porno di selen annuncio ragazze single brescia free sex fig erosramazzoti grande fratello xxx adult tetris ffilm porno video games porno sex nuda ewa sonnet videos assessorato al turismo video musica porno gay free video letizia bruni video gratis foto di trish stratus nuda incesto vicenza house gratis porno mature gratis meneguzzi nuda midi file da scaricare gratis fotos de desnudos de galilea montijo dandini nuda le notti porno nel mondo n. 2 giovanna rei sexy fotos sexis veronica rega gf5 jessica gayle pics talking snake tette belle donne con numero di telefono george harrison. music box biographical collection gaydar it ragazze nane donne che fanno pipi ragazze canal 58 katia pedrotti foto sexy nuda download gratis udp player donne nude foto ssesso sesso con insegnanti indian girls foto free sexy filmati erotici gratuiti party porno bocchinare scarica gratis giochi pc www sesso gratis canalis brad pitt nudo naked web sexy donne single callgirls tette mostruose quattro ragazze coraggiose videos sexuales katie holmes nuda parole di compleanno gratis sex orgy giochi gratis da salvare scaricare film dvd gratis kanguroo girls canalis foto bred pitt nudo ministerosalute it calendario playboy 1999

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))