Hash from two arrays

samsung htup30 giuseppe quelli che il calcio immagini da energy airforce aim strike onkyo tx 702 clim calendario valeria marini 2005 mitico wish you were here pink floyd hoobastank the reason lyric personaggi famosi da piccoli www iniziopartita it donne porno star vecchie harry potter e il prigioniero di elettricadanza conoscersi org heliosnet chat silkwood river crepuscolo di gloria samsung 800 nagaoka helly hansen kingston 128mb pen il metronomo jessica alba nua phil collins both sides michelangelo usb c merina bmw lt palamau culle magasa denton (usa) iss pro 2 bloccato restauro flipflops nessuno articolo 31 nuovo filmato per crimson tears inside microsoft visual studio net 2003 viaggi in pulman hard disk esterno 60gb dizionario ialiano rumeno download musica classica palmare ipaq rx3715 iss millennium condizionatori fissi con pompa di calore simplythebest hard disk esterni 250 gb birreria bischero calendario controcampo 2005 ibm thinkpad celeron volo napoli sharm el sheikh fotone sales force automation albergo madrid centro la historia de la nba x4radio com pamelita com michelemma pannelli system srl amd 3000 754 o n a poker col diavolo annuncio donna single www annunci base musicale la gatta eleonora di miele lavoro a budapest usb 1 gb mp3 www cdgirl com superenalotto 3000 de roud foto aerei kodak stampanti te piaciuta sexo infantil lavamat clara minier colifornia windows xp cd key amore mio spogliati che poi ti spiego arte del ricamo fotos de kirsten dust benq joybee 110 256mb incontri annuncio veneto www venesuela com enermax cs656ta www lago com de mondowrestling nokia auricolare mammifero knocking on haven s door creazioni regia oro srl www move drive com libri magia h b drx430 atmasphere music beer thomas canzoni it sarah ferguson nuda kj sito ufficiale valentino rossi moneta romana emmental high generation of chaos 4 sul web sexualidad clavame tu amor de kinky tdk dvd videobox olimpus 370 offerta speciali hotel venezia hotel de palma palermo dogs and lights color experanza gelsenkirchen www alpine com base musicali king diamond merida hotel accecare juegos de pokemon de gameboy color petsamo mouse logitech ultrax optical soundtrack deskjet 520 shape shifters lolas theme ford focus 100 cv total ir remote funerale frasi entombed monkey puss live in london cypress hill still smokin t come tango open gate klimt 1918 mp3 maroon 5 i frenetici over cinquanta corinne clery box esterno hard disk frona riassunto elsa morante generali assicurazione capcom vs snk millennium fight 2000 reggiseno molto imbottito luna de miel hp 2100 c4096a vip scandal de angelis midi gyllene tider locali noturni immagini e clip art gratuite olimpus p10 cerca azienda ricetta insalata di riso hotel budapest bachay occasione moto ninnananna bfbs key bubble games elaborazioni estetiche u2 cover night and day i think of you nba 2004 depeche mode personal jesus dlink wifi xbox memoria accessori console sigma 24 70 nikc paddy kelly arrog motorola ch samsung 32 pollici in to my arms la spada e la rosa supporto auto s100 ricevitore accessori gps fotografia de mujeres negras de africa camus m63 polar i would you feel pentax optio 50 s angel 50ml crash wafer foto gratis donne playboy jens o spedizione everest mrty batterie np 200 climatizzatore parete oh mi carolina waterslide slalom scanner 4000 auto microcar hys mobili roma yonca evcimik modem adsl usb d link foto su nelson dida

Hash from two arrays
You are encouraged to solve this task according to the task description, using any language you may know.

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)

C

By strict definition a std::map is not a hash, but it provides the same functionality (but note that some C has hash sets too).

Compiler: g 4.0.2

#include <map>
#include <string>

int
main( int argc, char* argv[] )
{
 std::string keys[] = { "1", "2", "3" } ;
 std::string vals[] = { "a", "b", "c" } ;
 
 std::map< std::string, std::string > hash ;
 
 for( int i = 0 ; i < 3 ; i   )
 {
  hash[ keys[i] ] = vals[i] ;
 }
}

Alternatively:

#include <map>       // for std::map
#include <algorithm> // for std::transform
#include <string>    // for std::string
#include <utility>   // for std::make_pair

int main()
{
  std::string keys[] = { "one", "two", "three" };
  std::string vals[] = { "foo", "bar", "baz" };

  std::map<std::string, std::string> hash;

  std::transform(keys, keys 3,
                 vals,
                 std::inserter(hash, hash.end()),
                 std::make_pair<std::string, std::string>);
}

C#

 System.Collections.HashTable h = new System.Collections.HashTable();
 
 string[] arg_keys = {"foo","bar","val"};
 string[] arg_values = {"little", "miss", "muffet"};
   
 //Some basic error checking
 int arg_length = 0;
 if ( arg_keys.Length == arg_values.Length ) {
   arg_length = arg_keys.Length;
 }
 
 for( int i = 0; i < arg_length; i   ){
   h.add( arg_keys[i], arg_values[i] ); 
 }

Alternate way of adding values

 for( int i = 0; i < arg_length; i   ){
   h[ arg_keys[i] ] = arg_values[i]; 
 }

D

char[][] keys = ["one", "two", "three"]
int[] values  = [1, 2, 3];

int[char[]] hash;

foreach(i,k; keys)
 hash[k] = values[i];

E

def keys := ["one", "two", "three"]
def values := [1, 2, 3]
__makeMap.fromColumns(keys, values)

Haskell

Interpreter: GHCi 6.6

import Data.Map

makeMap ks vs = fromList $ zip ks vs
mymap = makeMap ['a','b','c'] [1,2,3]

JavaScript

var keys = ['a', 'b', 'c'];
var values = [1, 2, 3];
var map = {};
for(var i in keys) {
  map[ keys[i] ] = values[i];
}

OCaml

The idiomatic solution uses lists rather than arrays.

 let keys = [ "foo"; "bar"; "baz" ]
 and vals = [ 16384; 32768; 65536 ]
 and hash = Hashtbl.create 0;;

 List.iter2 (Hashtbl.add hash) keys vals;;

In the extremely unlikely event that it was actually necessary to use arrays, the solution would become slightly less elegant:

 let keys = [| "foo"; "bar"; "baz" |]
 and vals = [| 16384; 32768; 65536 |]
 and hash = Hashtbl.create 0;;

 for i = 0 to Array.length keys - 1 do
   Hashtbl.add hash keys.(i) vals.(i)
 done;;

In either case, an exception is raised if the inputs are different lengths.

Perl

Interpreter: Perl 5

use List::MoreUtils qw(zip);
my @keys = qw(a b c);
my @vals = (1, 2, 3);
my %hash = zip @keys, @vals;

Using no modules:

my %hash;
@hash{qw(a b c)} = (1, 2, 3);

PHP

PHP 5:

$keys = array('a', 'b', 'c');
$values = array(1, 2, 3);
$hash = array_combine($keys, $values);

PHP 4:

$keys = array('a', 'b', 'c');
$values = array(1, 2, 3);
$hash = array();
for ($idx = 0; $idx < count($keys); $idx  ) {
  $hash[$keys[$idx]] = $values[$idx];
}

Pop11

vars keys = { 1 a b c};
vars vals = { 2 3 valb valc};
vars i;
;;; Create hash table
vars ht = newmapping([], 500, 0, true);
;;; Loop over input arrays (vectors)
for i from 1 to length(keys) do
  vals(i) -> ht(keys(i));
endfor;

Python

Interpreter: Python 2.5

keys = ['a', 'b', 'c']
values = [1, 2, 3]
hash = dict(zip(keys, values))

# Lazily:
from itertools import izip
hash = dict(izip(keys, values))

Ruby

 keys=['hal',666,[1,2,3]]
 vals=['ibm','devil',123]
 hash = Hash[*keys.zip(vals).flatten]
 # now hash => {'hal' => 'ibm', 666 => 'devil', [1,2,3] => 123}

 #retrieve the value linked to the key [1,2,3]
 puts hash[ [1,2,3] ]
 #123

Scala

val keys = Array(1, 2, 3)
val values = Array("A", "B", "C")
val map = Map(keys.zip(values) : _*)
// returns Map(1 -> "A", 2 -> "B", 3 -> "C")
// keys.zip(values) is an array of pairs : Array({1, "A"}, {2, "B"}, {3, "C"})
// Map(...) expects multiple pairs arguments. Syntax ": _*" tells the single argument contains multiple values.

Tcl

Arrays in Tcl are automatically associative, i.e. there are no "not hashed arrays". If we can take "arrays of equal length" to mean "lists of equal length", then the task might look like this:

set keys [list fred bob joe]
set values [list barber plumber tailor]
array set arr {}
foreach a $keys b $values { set $arr($a) $b }