Task

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



Related task

   Associative arrays/Creation


include ..\Utilitys.pmt
 
def getd    /# array key -- array data #/
    swap 1 get rot find nip
    dup if
        swap 2 get rot get nip
    else
        drop "Unfound"
    endif
enddef
 
( ( 1 "two" PI ) ( "one" 2 PI ) )   /# keys / data #/
 
1 getd print nl
"two" getd print nl
PI getd tostr print nl
3 getd print