Hash from two arrays

mono ringtones cheap zyban free samsung ringtones free mp3 ringtones cheap soma cheap ultram cheap ambien vicodin online vicodin online funny ringtones online zanaflex albuterol online cheap nexium buy propecia but ambien free nokia ringtones alprazolam online viagra online ultracet online cheap hoodia cheap cyclobenzaprine free free ringtones cheap phentermine cheap soma free real ringtones free jazz ringtones vicodin zyban online free ericsson ringtones sagem ringtones diazepam online sharp ringtones cingular ringtones cheap adipex free verizon ringtones qwest ringtones cheap clonazepam buy zanaflex mtv ringtones free mtv ringtones free kyocera ringtones sony ericsson ringtones tenuate online real ringtones cheap valium cheap paxil didrex online sildenafil online free nextel ringtones free midi ringtones cheap ativan xanax online cyclobenzaprine online cheap lorazepam alltel ringtones didrex online mp3 ringtones free cingular ringtones tracfone ringtones xanax online free tracfone ringtones cheap norco fioricet online cheap lorazepam free ringtones viagra online free wwe ringtones buy xanax zoloft online free ringtones but sildenafil xenical online samsung ringtones prozac online ultracet online buy norco but lipitor free motorola ringtones sagem ringtones meridia online but hydrocodone cheap diazepam cheap ativan cheap norco cheap prozac free sonyericsson ringtones qwest ringtones cheap lisinopril didrex online ultram online online cialis cheap alprazolam free nextel ringtones free cool ringtones lortab online nextel ringtones zyban online cheap pharmacy online xanax online ativan sprint ringtones ativan online free sprint ringtones cheap wellbutrin zanaflex online buy carisoprodol cheap propecia buy prozac valium online cheap xanax motorola ringtones but ortho wellbutrin online cheap levitra fioricet samsung ringtones ortho online free cool ringtones lorazepam online celexa online cheap tramadol free polyphonic ringtones cheap zanaflex free nokia ringtones cheap ortho free samsung ringtones cheap soma lorazepam online free sagem ringtones sprint ringtones lipitor online free mp3 ringtones free sprint ringtones vigrx online polyphonic ringtones lisinopril online free mp3 ringtones cheap viagra cingular ringtones tenuate online free kyocera ringtones free qwest ringtones norco online buy clonazepam sildenafil online nextel ringtones funny ringtones but cialis cheap ultracet sprint ringtones diazepam online free free ringtones samsung ringtones free free ringtones hydrocodone online tramadol online cheap ambien free mtv ringtones free motorola ringtones free funny ringtones music ringtones free cool ringtones fioricet online free real ringtones lorazepam online cheap soma clomid online cheap clonazepam cheap paxil lisinopril online samsung ringtones sonyericsson ringtones cheap phentermine free alltel ringtones sprint ringtones clonazepam online didrex online cheap ultram free verizon ringtones celexa online norco diethylpropion online cheap tenuate verizon ringtones cheap lipitor diazepam online free verizon ringtones adipex online meridia online samsung ringtones cingular ringtones clomid online lisinopril online cheap carisoprodol paxil online ericsson ringtones mono ringtones albuterol online ericsson ringtones ambien online

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 }