Hash from two arrays: Difference between revisions

=={{header|M2000 Interpreter}}==

<lang M2000 Interpreter>

Module CheckAll {

Module CheckVectorType {

Dim Keys$(4), Values(4)

Keys$(0):= "one","two","three","four"

Values(0):=1,2,3,4

Inventory Dict

For i=0 to 3 {

Append Dict, Keys$(i):=Values(0)

}

Print Dict("one")+Dict("four")=Dict("two")+Dict("three") ' true

}

Module CheckVectorType1 {

Dim Keys$(4), Values$(4)

Keys$(0):= "one","two","three","four"

Values$(0):="*","**","***","****"

Inventory Dict

For i=0 to 3 {

Append Dict, Keys$(i):=Values$(0)

}

Print Dict$("one")+Dict$("four")=Dict$("two")+Dict$("three") ' true

}

CheckVectorType

CheckVectorType1

}

CheckAll

</lang>