/* Credit to Dark Wizard

Compares 2 lists and checks associative values
*/
proc
  CompareLists(list/L,list/J)
    if(L.len != J.len)return 0
    for(var/i = 1 to L.len)
      if(L[i] != J[i])return 0
      if(L[L[i]] != J[J[i]])return 0
    return 1

// testing code
var/list/A = list("hey" = 1, "lol" = 4)
var/list/B = list("hey" = 1, "lol" = 3)
mob
  verb
    test()
      src << CompareLists(A,B)