Arbitrary Order HASH

alias HASH_NUMBERS {
  var %X 1
  var %HASH 0
  while %X <= $NUMTOK($1,32) {
    var %CURRENT $TOKEN($1,%X,32)
    var %STATE 1
    var %NUMBER %CURRENT
    var %HASH $OR(%HASH,$CALC(((2 ^ %NUMBER) * %STATE)))
    inc %X
  }
  return %HASH
}

alias TEST_ARBITRARY_ORDER {
  var %A_HASH $HASH_NUMBERS($1)

  echo -a HASH_A: %A_HASH

  var %B_HASH $HASH_NUMBERS($2)

  echo -a HASH_B: %B_HASH

  return $IIF(%A_HASH == %B_HASH,$TRUE,$FALSE)
}