HashTableInterface.nb

Notebook[{

Cell[CellGroupData[{
Cell["HashTableInterface", \
"CodeSection",ExpressionUUID->"7e5eddf0-7009-45c2-9478-0b5dfc1ae235"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BeginPackage", "[", "\"\<HashTableInterface`\>\"", "]"}], 
  ";"}]], "InputSection",ExpressionUUID->"3c82d297-dd00-4ad1-8f1e-\
58c09cfa6f20"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTable", "::", "usage"}], "=", 
   "\"\<Interface wrapper to a HashTable\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableQ", "::", "usage"}], "=", 
   "\"\<Tests whether object is proper HashTable\>\""}], 
  ";"}]}], "CodeInput",ExpressionUUID->"b76684b5-65cf-4e86-ac6e-2542198fbb35"]\

}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BeginPackage", "[", "\"\<`Package`\>\"", "]"}], 
  ";"}]], "InputSection",ExpressionUUID->"61796a64-0cb6-4381-a34f-\
1d9c4dd16b1d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableAdd", "::", "usage"}], "=", "\"\<\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableClone", "::", "usage"}], "=", "\"\<\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableContainsQ", "::", "usage"}], "=", "\"\<\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableGet", "::", "usage"}], "=", "\"\<\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableKeys", "::", "usage"}], "=", "\"\<\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMapAt", "::", "usage"}], "=", "\"\<\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableRemove", "::", "usage"}], "=", "\"\<\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableSet", "::", "usage"}], "=", "\"\<\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableToAssociation", "::", "usage"}], "=", "\"\<\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableValues", "::", "usage"}], "=", "\"\<\>\""}], 
  ";"}]}], "CodeInput",ExpressionUUID->"37eae6bb-587f-4263-931f-7f74892e77ef"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableFromAssociation", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Creates a HashTable from an Association\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableKeyCopy", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Copies values from one HashTable to another by key\>\""}], 
  ";"}]}], "CodeInput",ExpressionUUID->"c42af108-ddbc-4d35-8cd2-6c210ba06940"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableLookup", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of Lookup for HashTable objects\>\""}], 
  ";"}]], "CodeInput",ExpressionUUID->"45d35426-426b-487f-b97c-9f68732a2675"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableKeyValueMap", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of AssociateTo for HashTable objects\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableAssociateTo", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of AssociateTo for HashTable objects\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableKeyDropFrom", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of KeyDropFrom for HashTable objects\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableKeySelect", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of KeySelect for HashTable objects\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableKeyDrop", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of KeyDrop for HashTable objects\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableKeyTake", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of KeyTake for HashTable objects\>\""}], 
  ";"}]}], "CodeInput",ExpressionUUID->"355f13c4-259e-4497-870d-77e15f2880d0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableSelect", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of Select for HashTable objects\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMapMap", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of Map for HashTable objects\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableJoin", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of Join for HashTable objects\>\""}], 
  ";"}]}], "CodeInput",ExpressionUUID->"aeb86a5c-a572-4e81-8890-a11ea18ed718"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMap", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of AssociationMap for HashTable objects\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableThread", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Implementation of AssociationThread for HashTable objects\>\""}], 
  ";"}]}], "CodeInput",ExpressionUUID->"f2dafbe8-8faf-4651-ad37-9bf7e98734f1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMMap", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Mutating Map for HashTable objects\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMJoin", "::", "usage"}], "=", "\n", "\t", 
   "\"\<Mutating Join for HashTable objects\>\""}], 
  ";"}]}], "CodeInput",ExpressionUUID->"77542a06-53b9-4dd8-aa6d-dc86d5237ba5"]\

}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"EndPackage", "[", "]"}], 
  ";"}]], "InputSection",ExpressionUUID->"dcb677bf-0b5b-420d-8657-\
73cd34cc788f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], 
  ";"}]], "InputSection",ExpressionUUID->"5ac478d8-208d-4092-86ad-\
66858c8a0200"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTable", "//", "Clear"}], 
  ";"}]], "CodeInput",ExpressionUUID->"712d862d-2bd3-4acb-a7c2-b27ee296895e"],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Constructor\[RightFloor]", "CodeSubsubsection",
 Evaluatable->True,ExpressionUUID->"2449d946-bbbb-428e-9530-0e80e909772b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTable", "[", "\n", "\t", 
    RowBox[{
    "ht_System`Utilities`HashTable", "?", "System`Utilities`HashTableQ"}], 
    "\n", "\t", "]"}], "?", 
   RowBox[{"(", "System`Private`HoldEntryQ", ")"}]}], ":=", "\n", "\t", 
  RowBox[{"System`Private`HoldSetNoEntry", "@", 
   RowBox[{"HashTable", "[", "ht", "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HashTable", "[", "a___", "]"}], "?", 
    RowBox[{"(", "System`Private`HoldEntryQ", ")"}]}], ":=", "\n", "\t", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ass", "=", 
       RowBox[{"Association", "[", "a", "]"}]}], "}"}], ",", "\n", "\t\t", 
     RowBox[{
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"ht", "=", 
          RowBox[{"System`Utilities`HashTable", "[", "]"}]}], "}"}], ",", 
        "\n", "\t\t\t", 
        RowBox[{
         RowBox[{"KeyValueMap", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"System`Utilities`HashTableAdd", "[", 
             RowBox[{"ht", ",", " ", "##"}], "]"}], "&"}], ",", " ", "ass"}], 
          "]"}], ";", "\n", "\t\t\t", 
         RowBox[{"System`Private`HoldSetNoEntry", "@", 
          RowBox[{"HashTable", "[", "ht", "]"}]}]}]}], "\n", "\t\t\t", "]"}], 
      "/;", 
      RowBox[{"AssociationQ", "@", "ass"}]}]}], "\n", "\t\t", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"HashTableQ", "[", 
   RowBox[{
    RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], "?", 
    "System`Private`HoldNoEntryQ"}], "]"}], ":=", "\n", "\t", 
  RowBox[{
  "System`Utilities`HashTableQ", "@", 
   "ht"}]}]}], \
"CodeInput",ExpressionUUID->"6779e46c-f812-42a0-8a52-dfdc1f1c04dd"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Format\[RightFloor]", "CodeSubsubsection",
 Evaluatable->True,ExpressionUUID->"2b3e3809-6b5e-46fe-8c4f-361d42865a38"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Format", "[", 
   RowBox[{"ht_HashTable", "?", "HashTableQ"}], "]"}], ":=", "\n", "\t", 
  RowBox[{"RawBoxes", "@", "\n", "\t\t", 
   RowBox[{"BoxForm`ArrangeSummaryBox", "[", "\n", "\t\t\t", 
    RowBox[{
    "\"\<HashTable\>\"", ",", "\n", "\t\t\t", "ht", ",", "\n", "\t\t\t", 
     "None", ",", "\n", "\t\t\t", 
     RowBox[{"{", "\n", "\t\t\t\t", 
      RowBox[{"BoxForm`MakeSummaryItem", "[", "\n", "\t\t\t\t\t", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Item Count: \>\"", ",", " ", 
          RowBox[{"Length", "@", 
           RowBox[{"Keys", "[", "ht", "]"}]}]}], "}"}], ",", "\n", 
        "\t\t\t\t\t", "StandardForm"}], "\n", "\t\t\t\t\t", "]"}], "\n", 
      "\t\t\t\t", "}"}], ",", "\n", "\t\t\t", 
     RowBox[{"{", "\n", "\t\t\t\t", "}"}], ",", "\n", "\t\t\t", 
     "StandardForm"}], "\n", "\t\t\t", 
    "]"}]}]}]], \
"CodeInput",ExpressionUUID->"780bc8cc-eef5-4703-b211-39351957873e"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Package Functions\[RightFloor]", "CodeSubsubsection",
 Evaluatable->True,ExpressionUUID->"be6e3171-fa6d-45c3-ba5a-309dc4e29485"],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Add\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"833f563c-6e5a-42b6-9bbe-fe4d738b292b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableAdd", "[", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "k_", ",", " ", "v_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"System`Utilities`HashTableAdd", "[", 
    RowBox[{"ht", ",", " ", "k", ",", " ", "v"}], "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"972908df-5a69-44ed-a045-7c21019803a1"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Clone\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"dad8dd69-bbfb-4169-97db-c1c265a2c8a1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableClone", "[", 
    RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], "]"}], ":=",
    "\n", "\t", 
   RowBox[{"HashTable", "@", 
    RowBox[{"System`Utilities`HashTableClone", "[", "ht", "]"}]}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"111c9d01-dd91-4a20-93b3-994ed3b71095"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]ContainsQ\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"30b11780-c739-4955-b229-bebf3291d67b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableContainsQ", "[", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "k_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"System`Utilities`HashTableContainsQ", "[", 
    RowBox[{"ht", ",", " ", "k"}], "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"44d6310e-93d5-4d73-85d4-cffffaf5d0a5"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Get\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"5d44ae27-20b8-4b53-8db2-69c88be4ac80"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableGet", "[", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "k_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"Quiet", "[", "\n", "\t\t", 
    RowBox[{
     RowBox[{"Check", "[", "\n", "\t\t\t", 
      RowBox[{
       RowBox[{"System`Utilities`HashTableGet", "[", 
        RowBox[{"ht", ",", " ", "k"}], "]"}], ",", "\n", "\t\t\t", 
       RowBox[{"Missing", "[", 
        RowBox[{"\"\<KeyAbsent\>\"", ",", " ", "k"}], "]"}], ",", "\n", 
       "\t\t\t", 
       RowBox[{"System`Utilities`HashTableGet", "::", "noget"}]}], "\n", 
      "\t\t\t", "]"}], ",", "\n", "\t\t", 
     RowBox[{"System`Utilities`HashTableGet", "::", "noget"}]}], "\n", "\t\t",
     "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableGet", "[", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "k_", ",", " ", "def_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"Quiet", "[", "\n", "\t\t", 
    RowBox[{
     RowBox[{"Check", "[", "\n", "\t\t\t", 
      RowBox[{
       RowBox[{"System`Utilities`HashTableGet", "[", 
        RowBox[{"ht", ",", " ", "k"}], "]"}], ",", "\n", "\t\t\t", "def", ",",
        "\n", "\t\t\t", 
       RowBox[{"System`Utilities`HashTableGet", "::", "noget"}]}], "\n", 
      "\t\t\t", "]"}], ",", "\n", "\t\t", 
     RowBox[{"System`Utilities`HashTableGet", "::", "noget"}]}], "\n", "\t\t",
     "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"HashTableGet", "~", "SetAttributes", "~", "HoldFirst"}], 
  ";"}]}], "CodeInput",ExpressionUUID->"e3f46063-f402-4b4b-aa8e-7aa3c78a7bb7"]\

}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Lookup\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"6ef4fecf-2b15-4508-9cf1-c15780fb5904"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableVGet", "[", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "k_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"Quiet", "[", "\n", "\t\t", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Check", "[", "\n", "\t\t\t", 
        RowBox[{
         RowBox[{"System`Utilities`HashTableGet", "[", 
          RowBox[{"ht", ",", " ", "#"}], "]"}], ",", "\n", "\t\t\t", 
         RowBox[{"Missing", "[", 
          RowBox[{"\"\<KeyAbsent\>\"", ",", " ", "#"}], "]"}], ",", "\n", 
         "\t\t\t", 
         RowBox[{"System`Utilities`HashTableGet", "::", "noget"}]}], "\n", 
        "\t\t\t", "]"}], "&"}], "/@", "k"}], ",", "\n", "\t\t", 
     RowBox[{"System`Utilities`HashTableGet", "::", "noget"}]}], "\n", "\t\t",
     "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableVGet", "[", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "k_", ",", " ", "def_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"Quiet", "[", "\n", "\t\t", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Check", "[", "\n", "\t\t\t", 
        RowBox[{
         RowBox[{"System`Utilities`HashTableGet", "[", 
          RowBox[{"ht", ",", " ", "#"}], "]"}], ",", "\n", "\t\t\t", "def", 
         ",", "\n", "\t\t\t", 
         RowBox[{"System`Utilities`HashTableGet", "::", "noget"}]}], "\n", 
        "\t\t\t", "]"}], "&"}], "/@", "k"}], ",", "\n", "\t\t", 
     RowBox[{"System`Utilities`HashTableGet", "::", "noget"}]}], "\n", "\t\t",
     "]"}]}], ";"}], "\n", 
 RowBox[{"HashTableVGet", "~", "SetAttributes", "~", 
  "HoldRest"}]}], \
"CodeInput",ExpressionUUID->"6619193b-4c98-4f1f-9eec-397167a243d6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableLookup", "[", 
    RowBox[{
     RowBox[{"h", ":", 
      RowBox[{"HashTable", "[", "_System`Utilities`HashTable", "]"}]}], ",", 
     " ", "k_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"ListQ", "@", "k"}], ",", " ", "\n", "\t\t", 
     RowBox[{"HashTableVGet", "[", 
      RowBox[{"h", ",", " ", "k"}], "]"}], ",", "\n", "\t\t", 
     RowBox[{"HashTableGet", "[", 
      RowBox[{"h", ",", " ", "k"}], "]"}]}], "\n", "\t\t", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableLookup", "[", 
    RowBox[{
     RowBox[{"h", ":", 
      RowBox[{"HashTable", "[", "_System`Utilities`HashTable", "]"}]}], ",", 
     " ", "k_", ",", " ", "def_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"ListQ", "@", "k"}], ",", " ", "\n", "\t\t", 
     RowBox[{"HashTableVGet", "[", 
      RowBox[{"h", ",", " ", "k", ",", " ", "def"}], "]"}], ",", "\n", "\t\t", 
     RowBox[{"HashTableGet", "[", 
      RowBox[{"h", ",", " ", "k", ",", " ", "def"}], "]"}]}], "\n", "\t\t", 
    "]"}]}], ";"}], "\n", 
 RowBox[{"HashTableLookup", "~", "SetAttributes", "~", 
  "HoldRest"}]}], \
"CodeInput",ExpressionUUID->"a51f3633-5f0d-4411-9c81-b5ae42b0da54"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Keys\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"5a1a698c-0864-4276-adad-0bd96bb724d8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableKeys", "[", 
   RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], "]"}], ":=",
   "\n", "\t", 
  RowBox[{
  "System`Utilities`HashTableKeys", "[", "ht", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"f0bb945e-8f1c-4d4e-9d42-7fb131017103"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]MapAt\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"e29a290b-2a6c-4a12-90fe-90af80caf710"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableMapAt", "[", 
   RowBox[{"f_", ",", " ", 
    RowBox[{"h", ":", 
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}], ",", 
    " ", "s_"}], "]"}], ":=", "\n", "\t", 
  RowBox[{"Scan", "[", "\n", "\t\t", 
   RowBox[{
    RowBox[{
     RowBox[{"System`Utilities`HashTableMapAt", "[", 
      RowBox[{"ht", ",", " ", "#", ",", " ", "f"}], "]"}], "&"}], ",", "\n", 
    "\t\t", 
    RowBox[{"Flatten", "@", 
     RowBox[{"{", "s", "}"}]}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"e13b8fd7-efeb-4f68-a054-807cbea1371a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Remove\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"737a2ae9-dc4c-4f9c-a395-45f052f9fd18"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableRemove", "[", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "k_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"Quiet", "[", 
    RowBox[{
     RowBox[{"HashTableRemove", "[", 
      RowBox[{"ht", ",", " ", "k"}], "]"}], ",", " ", 
     RowBox[{"System`Utilities`HashTableRemove", "::", "norem"}]}], "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"3fd10376-010e-43b6-8494-811b6a675d08"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Set\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"9410f76b-0082-48df-b4dc-0885754ffc96"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableSet", "[", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "k_", ",", " ", "v_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"(", "\n", "\t\t", 
    RowBox[{
     RowBox[{"System`Utilities`HashTableSet", "[", 
      RowBox[{"ht", ",", " ", "k", ",", " ", "v"}], "]"}], ";", "\n", "\t\t", 
     "v"}], "\n", "\t\t", ")"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"1e08cc8e-e79a-4bbd-bb85-5d43a9bf102b"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]ToAssociation\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"a8b4af0e-d49d-49c1-b19c-73b7174524ea"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableToAssociation", "[", 
    RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], "]"}], ":=",
    "\n", "\t", 
   RowBox[{"System`Utilities`HashTableToAssociation", "[", "ht", "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"2789ca6f-db7c-40d8-a8f0-fa85dda8038d"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Values\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"6f6bb3a7-af30-4685-aa80-c63b71ce1984"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableValues", "[", 
    RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], "]"}], ":=",
    "\n", "\t", 
   RowBox[{"System`Utilities`HashTableValues", "[", "ht", "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"cb937f42-a35d-4ec3-a479-2a22a53d50c9"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyValueMap\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"93053857-3560-4856-b46f-8cedcc44edc5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableKeyValueMap", "[", 
   RowBox[{"fn_", ",", " ", 
    RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}], "]"}],
   ":=", "\n", "\t", 
  RowBox[{"Map", "[", "\n", "\t\t", 
   RowBox[{
    RowBox[{
     RowBox[{"fn", "[", 
      RowBox[{"#", ",", " ", 
       RowBox[{"System`Utilities`HashTableGet", "[", 
        RowBox[{"ht", ",", " ", "#"}], "]"}]}], "]"}], "&"}], ",", " ", "\n", 
    "\t\t", 
    RowBox[{"System`Utilities`HashTableKeys", "[", "ht", "]"}]}], "\n", 
   "\t\t", "]"}]}]], \
"CodeInput",ExpressionUUID->"d0194bdf-76fa-42ec-839b-c5bdebcac6e8"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]AssociateTo\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"41ba3608-f4ff-42d6-b59e-ee554b1d1c61"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableAssociateTo", "[", 
   RowBox[{
    RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
    " ", "k_"}], "]"}], ":=", "\n", "\t", 
  RowBox[{"KeyValueMap", "[", "\n", "\t\t", 
   RowBox[{
    RowBox[{
     RowBox[{"System`Utilities`HashTableSet", "[", 
      RowBox[{"ht", ",", " ", "##"}], "]"}], "&"}], ",", "\n", "\t\t", 
    RowBox[{"Association", "[", "k", "]"}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"b272ba52-c894-4cd0-b142-761220aa73c4"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyDropFrom\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"034f897f-b122-40f9-b39f-40934c86c3c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableKeyDropFrom", "[", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "k_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"Scan", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"System`Utilities`HashTableRemove", "[", 
       RowBox[{"ht", ",", " ", "#"}], "]"}], "&"}], ",", " ", 
     RowBox[{"Flatten", "@", 
      RowBox[{"{", "k", "}"}]}]}], "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"3e96b8c0-9548-452f-aa7d-844ccab2e8d9"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyCopy\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"201599e3-309e-4a64-8717-f19e5615dd67"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableKeyCopy", "[", "\n", "\t", 
   RowBox[{
   "ht_System`Utilities`HashTable", ",", " ", "\n", "\t", 
    "ht2_System`Utilities`HashTable", ",", " ", "\n", "\t", "k_"}], "\n", 
   "\t", "]"}], ":=", "\n", "\t", 
  RowBox[{"Scan", "[", "\n", "\t\t", 
   RowBox[{
    RowBox[{
     RowBox[{"System`Utilities`HashTableAdd", "[", 
      RowBox[{"ht2", ",", " ", "#", ",", " ", "\n", "\t\t\t", 
       RowBox[{"System`Utilities`HashTableGet", "[", 
        RowBox[{"ht", ",", " ", "#"}], "]"}]}], "\n", "\t\t\t", "]"}], "&"}], 
    ",", "\n", "\t\t", "k"}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"deddcb5a-5b41-4c26-b92f-bcf821862ed2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableKeyCopy", "[", "\n", "\t", 
   RowBox[{
    RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
    " ", "\n", "\t", 
    RowBox[{"HashTable", "[", "ht2_System`Utilities`HashTable", "]"}], ",", 
    " ", "\n", "\t", "k_"}], "]"}], ":=", "\n", "\t", 
  RowBox[{"HashTableKeyCopy", "[", 
   RowBox[{"ht", ",", " ", "ht2", ",", " ", "k"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"14038231-89bb-44c1-8403-872c781b60e3"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]FromAssociation\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"5c810c07-192d-4aff-ae61-e4722aebf307"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableFromAssociation", "[", "\n", "\t", 
   RowBox[{"ht_System`Utilities`HashTable", ",", "\n", "\t", 
    RowBox[{"a_Association", "?", "AssociationQ"}]}], "\n", "\t", "]"}], ":=",
   "\n", "\t", 
  RowBox[{"KeyValueMap", "[", "\n", "\t\t", 
   RowBox[{
    RowBox[{
     RowBox[{"System`Utilities`HashTableSet", "[", 
      RowBox[{"ht", ",", " ", "##"}], "]"}], "&"}], ",", "\n", "\t\t", "a"}], 
   "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"1849a1d9-790c-4f5f-90de-6df1eb88d04e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableFromAssociation", "[", "\n", "\t", 
   RowBox[{"a_Association", "?", "AssociationQ"}], "\n", "\t", "]"}], ":=", 
  "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ht", "=", 
      RowBox[{"System`Utilities`HashTable", "[", "]"}]}], "}"}], ",", "\n", 
    "\t\t", 
    RowBox[{"KeyValueMap", "[", "\n", "\t\t\t", 
     RowBox[{
      RowBox[{
       RowBox[{"System`Utilities`HashTableAdd", "[", 
        RowBox[{"ht", ",", " ", "##"}], "]"}], "&"}], ",", "\n", "\t\t\t", 
      "a"}], "\n", "\t\t\t", "]"}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"f8fdcae1-0ec7-4ebe-8f93-788431cdfb7d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"HashTableFromAssociation", "[", "\n", "\t", 
    RowBox[{
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}], ",", 
     " ", "\n", "\t", 
     RowBox[{"a_Association", "?", "AssociationQ"}]}], "\n", "\t", "]"}], ":=",
    "\n", "\t", 
   RowBox[{"HashTableFromAssociation", "[", 
    RowBox[{"ht", ",", " ", "a"}], "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"775e59d8-ab44-480f-bf07-ab4cf8b7adbc"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeySelect\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"bb3ae094-321b-47f5-92cf-0b32cc2099a8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableKeySelect", "[", 
   RowBox[{
    RowBox[{"h", ":", 
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}], ",", 
    " ", "test_"}], "]"}], ":=", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ht2", "=", 
      RowBox[{"HashTable", "[", "]"}]}], "}"}], ",", "\n", "\t\t", 
    RowBox[{
     RowBox[{"HashTableKeyCopy", "[", 
      RowBox[{"h", ",", " ", "ht2", ",", " ", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"System`Utilities`HashTableKeys", "[", "ht", "]"}], ",", " ",
          "test"}], "]"}]}], "]"}], ";", "\n", "\t\t", "ht2"}]}], "\n", 
   "\t\t", "]"}]}]], \
"CodeInput",ExpressionUUID->"e4c81810-348d-4b73-af69-df2a04141363"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyTake\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"7b3b8823-5d95-4988-9b5e-41c940d2280b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableKeyTake", "[", 
   RowBox[{
    RowBox[{"h", ":", 
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}], ",", 
    " ", "k_"}], "]"}], ":=", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ht2", "=", 
      RowBox[{"HashTable", "[", "]"}]}], "}"}], ",", "\n", "\t\t", 
    RowBox[{
     RowBox[{"HashTableKeyCopy", "[", 
      RowBox[{"h", ",", " ", "ht2", ",", " ", "\n", "\t\t\t", 
       RowBox[{"Intersection", "[", 
        RowBox[{
         RowBox[{"System`Utilities`HashTableKeys", "[", "ht", "]"}], ",", " ", 
         RowBox[{"Flatten", "@", 
          RowBox[{"{", "k", "}"}]}]}], "]"}]}], "\n", "\t\t\t", "]"}], ";", 
     "\n", "\t\t", "ht2"}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"424a3b54-1dbb-43d4-b4a1-af162deb5eae"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyDrop\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"5a581e3e-ce7d-4301-a999-376c5c9200ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableKeyDrop", "[", 
   RowBox[{
    RowBox[{"h", ":", 
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}], ",", 
    " ", "k_"}], "]"}], ":=", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ht2", "=", 
      RowBox[{"HashTable", "[", "]"}]}], "}"}], ",", "\n", "\t\t", 
    RowBox[{
     RowBox[{"HashTableKeyCopy", "[", 
      RowBox[{"h", ",", " ", "ht2", ",", " ", "\n", "\t\t\t", 
       RowBox[{"Complement", "[", 
        RowBox[{
         RowBox[{"System`Utilities`HashTableKeys", "[", "ht", "]"}], ",", " ", 
         RowBox[{"Flatten", "@", 
          RowBox[{"{", "k", "}"}]}]}], "]"}]}], "\n", "\t\t\t", "]"}], ";", 
     "\n", "\t\t", "ht2"}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"09be69a1-bd21-46cd-a5f0-528fb76d4a05"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyIntersection\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"728771df-9d1f-461b-a0c4-3c4b0405bc75"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableKeyIntersection", "[", "\n", "\t", 
   RowBox[{"h", ":", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"HashTable", "[", "_System`Utilities`HashTable", "]"}], ".."}], 
     "}"}]}], "\n", "\t", "]"}], ":=", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ht3", "=", 
      RowBox[{"HashTable", "[", "]"}]}], "}"}], ",", "\n", "\t\t", 
    RowBox[{
     RowBox[{"HashTableKeyCopy", "[", 
      RowBox[{
       RowBox[{"h", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", "ht3", ",", " ", "\n", 
       "\t\t\t", 
       RowBox[{"Apply", "[", 
        RowBox[{"Intersection", ",", " ", 
         RowBox[{"Keys", "/@", "h"}]}], "]"}]}], "\n", "\t\t\t", "]"}], ";", 
     "\n", "\t\t", "ht3"}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"edd0bddc-d3eb-4ad0-b354-a640e783b95d"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyComplement\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"2b699aa8-3914-4d69-862c-d8cd88f16dcc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableKeyComplement", "[", "\n", "\t", 
   RowBox[{"h", ":", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"HashTable", "[", "_System`Utilities`HashTable", "]"}], ".."}], 
     "}"}]}], "\n", "\t", "]"}], ":=", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ht3", "=", 
       RowBox[{"HashTable", "[", "]"}]}], ",", " ", "klist"}], "}"}], ",", 
    "\n", "\t\t", 
    RowBox[{
     RowBox[{"klist", "=", 
      RowBox[{"Keys", "/@", "h"}]}], ";", "\n", "\t\t", 
     RowBox[{"Do", "[", "\n", "\t\t\t", 
      RowBox[{
       RowBox[{"HashTableKeyCopy", "[", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", " ", "ht3", ",", " ", "\n", 
         "\t\t\t\t", 
         RowBox[{"Complement", "[", 
          RowBox[{
           RowBox[{"klist", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
           RowBox[{"Delete", "[", 
            RowBox[{"klist", ",", " ", "i"}], "]"}]}], "]"}]}], "\n", 
        "\t\t\t\t", "]"}], ",", " ", "\n", "\t\t\t", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", 
         RowBox[{"Length", "@", "klist"}]}], "}"}]}], "\n", "\t\t\t", "]"}], 
     ";", "\n", "\t\t", "ht3"}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"3e2a2762-cf14-46d8-aea8-51040fddc265"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Thread\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"3a284cb2-1ad6-4423-863e-eb90eec93b0a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableThread", "[", 
    RowBox[{"keys_", ",", " ", "vals_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ht", "=", 
       RowBox[{"System`Utilities`HashTable", "[", "]"}]}], "}"}], ",", "\n", 
     "\t\t", 
     RowBox[{
      RowBox[{"MapThread", "[", "\n", "\t\t\t", 
       RowBox[{
        RowBox[{
         RowBox[{"System`Utilities`HashTableAdd", "[", 
          RowBox[{"ht", ",", " ", "##"}], "]"}], "&"}], ",", "\n", "\t\t\t", 
        RowBox[{"{", "\n", "\t\t\t\t", 
         RowBox[{"keys", ",", "\n", "\t\t\t\t", "vals"}], "\n", "\t\t\t\t", 
         "}"}]}], "\n", "\t\t\t", "]"}], ";", "\n", "\t\t", 
      RowBox[{"HashTable", "@", "ht"}]}]}], "\n", "\t\t", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableThread", "[", 
    RowBox[{"keys_", "->", "vals_"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"HashTableThread", "[", 
    RowBox[{"keys", ",", " ", "vals"}], "]"}]}], 
  ";"}]}], "CodeInput",ExpressionUUID->"f1c31e41-cb5d-4637-882d-9474d4728469"]\

}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Map\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"f9a0b92b-ffbc-4deb-99c9-1f92db240166"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMap", "[", 
    RowBox[{"fn_", ",", " ", 
     RowBox[{"HashTable", "[", "h_System`Utilities`HashTable", "]"}]}], "]"}],
    ":=", "\n", "\t", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ht", "=", 
       RowBox[{"System`Utilities`HashTable", "[", "]"}]}], "}"}], ",", "\n", 
     "\t\t", 
     RowBox[{
      RowBox[{"Scan", "[", "\n", "\t\t\t", 
       RowBox[{
        RowBox[{
         RowBox[{"System`Utilities`HashTableAdd", "[", 
          RowBox[{"ht", ",", " ", "\n", "\t\t\t\t", 
           RowBox[{"Sequence", "@@", 
            RowBox[{"fn", "[", 
             RowBox[{"#", "->", 
              RowBox[{"System`Utilities`HashTableGet", "[", 
               RowBox[{"h", ",", " ", "#"}], "]"}]}], "]"}]}]}], "\n", 
          "\t\t\t\t", "]"}], "&"}], ",", "\n", "\t\t\t", 
        RowBox[{"System`Utilities`HashTableKeys", "[", "h", "]"}]}], "\n", 
       "\t\t\t", "]"}], ";", "\n", "\t\t", 
      RowBox[{"HashTable", "@", "ht"}]}]}], "\n", "\t\t", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"HashTableMap", "[", 
   RowBox[{"fn_", ",", " ", "x_"}], "]"}], ":=", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ht", "=", 
      RowBox[{"System`Utilities`HashTable", "[", "]"}]}], "}"}], ",", "\n", 
    "\t\t", 
    RowBox[{
     RowBox[{"Scan", "[", "\n", "\t\t\t", 
      RowBox[{
       RowBox[{
        RowBox[{"System`Utilities`HashTableAdd", "[", 
         RowBox[{"ht", ",", " ", "#", ",", " ", 
          RowBox[{"fn", "[", "#", "]"}]}], "]"}], "&"}], ",", "\n", "\t\t\t", 
       "x"}], "\n", "\t\t\t", "]"}], ";", "\n", "\t\t", 
     RowBox[{"HashTable", "@", "ht"}]}]}], "\n", "\t\t", 
   "]"}]}]}], \
"CodeInput",ExpressionUUID->"9ffaac39-3e80-43cc-a965-0f6046f65d07"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]MapMap\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"4a841b48-974c-4416-8607-e93b59a4adf8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableMapMap", "[", 
   RowBox[{"fn_", ",", " ", 
    RowBox[{"h", ":", 
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}]}], 
   "]"}], ":=", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ht2", "=", 
      RowBox[{"System`Utilities`HashTable", "[", "]"}]}], "}"}], ",", "\n", 
    "\t\t", 
    RowBox[{
     RowBox[{"Scan", "[", "\n", "\t\t\t", 
      RowBox[{
       RowBox[{
        RowBox[{"System`Utilities`HashTableAdd", "[", 
         RowBox[{"ht2", ",", " ", "#", ",", "\n", "\t\t\t\t", 
          RowBox[{"fn", "@", 
           RowBox[{"System`Utilities`HashTableGet", "[", 
            RowBox[{"h", ",", " ", "#"}], "]"}]}]}], " ", "\n", "\t\t\t\t", 
         "]"}], "&"}], ",", " ", "\n", "\t\t\t", 
       RowBox[{"System`Utilities`HashTableKeys", "[", "ht", "]"}]}], "\n", 
      "\t\t\t", "]"}], ";", "\n", "\t\t", 
     RowBox[{"HashTable", "@", "ht2"}]}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"630bc856-3697-4072-a98c-2e852001a1e2"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Select\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"85f7d144-2acd-4b82-a595-4c6bb1e5b8b6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableSelect", "[", 
   RowBox[{
    RowBox[{"h", ":", 
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}], ",", 
    " ", "fn_"}], "]"}], ":=", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ht2", "=", 
       RowBox[{"System`Utilities`HashTable", "[", "]"}]}], ",", " ", "res"}], 
     "}"}], ",", "\n", "\t\t", 
    RowBox[{
     RowBox[{"Scan", "[", "\n", "\t\t\t", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"fn", "[", 
           RowBox[{"res", "=", 
            RowBox[{"System`Utilities`HashTableGet", "[", 
             RowBox[{"h", ",", " ", "#"}], "]"}]}], "]"}], ",", "\n", 
          "\t\t\t\t", 
          RowBox[{"System`Utilities`HashTableAdd", "[", 
           RowBox[{"ht2", ",", " ", "#", ",", " ", "res"}], "]"}]}], "\n", 
         "\t", "\t\t\t", "]"}], "&"}], ",", " ", "\n", "\t\t\t", 
       RowBox[{"System`Utilities`HashTableKeys", "[", "ht", "]"}]}], "\n", 
      "\t\t\t", "]"}], ";", "\n", "\t\t", 
     RowBox[{"HashTable", "@", "ht2"}]}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"0f62bed1-acf3-46a1-b27e-bd40765204d9"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Join\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"b92342ab-ec3d-43f6-b28b-e38e30e129ab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableJoin", "[", "\n", "\t", 
   RowBox[{
    RowBox[{"h1", ":", 
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}], ",", 
    " ", "\n", "\t", "h__HashTable"}], "\n", "\t", "]"}], ":=", "\n", "\t", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ht2", "=", 
      RowBox[{"HashTableClone", "[", "h1", "]"}]}], "}"}], ",", "\n", "\t\t", 
    
    RowBox[{
     RowBox[{"Scan", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"HashTableKeyCopy", "[", 
         RowBox[{"#", ",", " ", "ht2"}], "]"}], "&"}], ",", " ", 
       RowBox[{"{", "h", "}"}]}], "]"}], ";", "\n", "\t\t", 
     RowBox[{"HashTable", "@", "ht2"}]}]}], "\n", "\t\t", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"d704e4c3-95f8-4e40-a900-0ae8ab512805"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]MMap\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"aea5824d-54d3-4550-b61e-84b83b3ff67c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableMMap", "[", 
   RowBox[{"fn_", ",", " ", 
    RowBox[{"h", ":", 
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}]}], 
   "]"}], ":=", "\n", "\t", 
  RowBox[{"Scan", "[", "\n", "\t\t", 
   RowBox[{
    RowBox[{
     RowBox[{"System`Utilities`HashTableSet", "[", 
      RowBox[{"ht", ",", " ", "#", ",", " ", 
       RowBox[{"fn", "@", 
        RowBox[{"System`Utilities`HashTableGet", "[", 
         RowBox[{"ht", ",", " ", "#"}], "]"}]}]}], "]"}], "&"}], ",", "\n", 
    "\t\t", 
    RowBox[{"System`Utilities`HashTableKeys", "[", "ht", "]"}]}], "\n", 
   "\t\t", "]"}]}]], \
"CodeInput",ExpressionUUID->"9d24c4ba-3484-4756-85ae-03d6482d7bbe"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]MJoin\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"d1082521-afcd-47db-9675-edd77c599ab7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HashTableMJoin", "[", "\n", "\t", 
   RowBox[{
    RowBox[{"h1", ":", 
     RowBox[{"HashTable", "[", "ht_System`Utilities`HashTable", "]"}]}], ",", 
    " ", "\n", "\t", "h__HashTable"}], "\n", "\t", "]"}], ":=", "\n", "\t", 
  RowBox[{"Scan", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"HashTableKeyCopy", "[", 
      RowBox[{"#", ",", " ", "h1"}], "]"}], "&"}], ",", " ", 
    RowBox[{"{", "h", "}"}]}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"10a781e0-9dad-4113-bea0-ea1761201cd0"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]DownValues\[RightFloor]", "CodeSubsubsection",
 Evaluatable->True,ExpressionUUID->"ca340bf0-ff70-4970-82d2-70a622a335cb"],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Clone\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"e91d1951-5f74-407a-b64e-3e88bec8cf4a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], "[", 
    RowBox[{"\"\<Clone\>\"", "[", "]"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"HashTableClone", "[", "ht", "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"8a493628-150e-446e-9e8d-f8a9fc411e3a"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]MapAt\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"678419c5-7d9b-463b-808b-d9add7c3a3d7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], "[", 
    RowBox[{"\"\<MapAt\>\"", "[", 
     RowBox[{"fn_", ",", " ", "k__"}], "]"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"HashTableMapAt", "[", 
    RowBox[{"fn", ",", " ", "ht", ",", " ", "k"}], "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"9b401cfd-5510-42e0-aa51-492044d8ff29"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]MMap\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"2c2aca4f-5a1f-46fc-a714-09dae507001b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], "[", 
    RowBox[{"\"\<Map\>\"", "[", "fn_", "]"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"HashTableMMap", "[", 
    RowBox[{"fn", ",", " ", "ht"}], "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"954f0d02-bfb9-4178-b18d-fd8e9d3fecf2"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]MJoin\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"0b9a7510-9fe6-40e2-9a18-3c0cd825d4d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], "[", 
    RowBox[{"\"\<Join\>\"", "[", "h__", "]"}], "]"}], ":=", "\n", "\t", 
   RowBox[{"HashTableMJoin", "[", 
    RowBox[{"ht", ",", " ", "h"}], "]"}]}], 
  ";"}]], "CodeInput",ExpressionUUID->"178d19c3-cdfb-4633-8906-13612decf23d"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Get\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"e75b166e-8702-4a34-96ca-bbfceaf31075"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ht_HashTable", "?", "HashTableQ"}], "[", "k_", "]"}], ":=", "\n", 
  "\t", 
  RowBox[{"HashTableGet", "[", 
   RowBox[{"ht", ",", " ", "k"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"b37e21aa-6f87-4098-8322-2a3b849f6317"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]UpValues\[RightFloor]", "CodeSubsubsection",
 Evaluatable->True,ExpressionUUID->"c830a789-4dc1-48cd-92d5-d3213c3dbc8e"],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Set\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"4384bc67-a052-40d7-b5a5-56d50879fc75"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"Set", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ht_HashTable", "?", "HashTableQ"}], "[", "k_", "]"}], ",", " ", 
    "v_"}], "]"}], ":=", "\n", "\t\t", 
  RowBox[{"HashTableSet", "[", 
   RowBox[{"ht", ",", " ", "k", ",", " ", "v"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"b6777954-e4c9-4374-84f2-ae6a91f73d35"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Unset\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"72564374-f2a4-4820-ab46-4dc41e7bb9be"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"Unset", "[", 
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], "[", "k_", "]"}], "]"}], ":=",
   "\n", "\t\t", 
  RowBox[{"HashTableRemove", "[", 
   RowBox[{"ht", ",", " ", "k"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"3eee3d18-6a3d-444c-87f1-cbce8573ecc0"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Keys\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"f050bf86-72fe-4773-bef1-97e152fe2a3c"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"Keys", "[", 
   RowBox[{"ht_HashTable", "?", "HashTableQ"}], "]"}], ":=", "\n", "\t\t", 
  RowBox[{
  "HashTableKeys", "[", "ht", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"b1fecf0f-7344-46a4-aced-bc2febc84333"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Values\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"b8cc5f41-fcd3-4360-95f6-540cd57905fa"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"Values", "[", 
   RowBox[{"ht_HashTable", "?", "HashTableQ"}], "]"}], ":=", "\n", "\t\t", 
  RowBox[{
  "HashTableValues", "[", "ht", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"593b90df-5209-4913-b84e-093edea856b0"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyExistsQ\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"ba369f05-720d-432f-b1d2-1d322ffbb6df"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"KeyExistsQ", "[", 
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], ",", " ", "k_"}], "]"}], ":=",
   "\n", "\t\t", 
  RowBox[{"HashTableContainsQ", "[", 
   RowBox[{"ht", ",", " ", "k"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"33f318ba-e522-48b9-a2cd-c003e8f612da"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Normal\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"faf258a4-a819-4078-9696-e3aa89a92453"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"Normal", "|", "Association"}], ")"}], "[", 
   RowBox[{"ht_HashTable", "?", "HashTableQ"}], "]"}], ":=", "\n", "\t\t", 
  RowBox[{
  "HashTableToAssociation", "[", "ht", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"e44f558c-86d5-4b13-bd26-f8244da45546"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Map\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"a0c55585-2635-4988-9ad2-e58adad51e38"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"Map", "[", 
   RowBox[{"fn_", ",", " ", 
    RowBox[{"ht_HashTable", "?", "HashTableQ"}]}], "]"}], ":=", "\n", "\t\t", 
  
  RowBox[{"HashTableMap", "[", 
   RowBox[{"fn", ",", " ", "ht"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"88a943ad-7a03-4c28-9c23-cbb989cccf1b"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Join\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"e6344871-016a-448f-9849-c30ec4dfb018"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"Join", "[", 
   RowBox[{"ht__HashTable", "?", "HashTableQ"}], "]"}], ":=", "\n", "\t\t", 
  RowBox[{
  "HashTableJoin", "[", "ht", 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"3f781b23-8c3c-4df1-b0fc-f4700b7a3170"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyValueMap\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"8ff3b732-fc8b-4fdf-aa83-f4b3a442fcce"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"KeyValueMap", "[", 
   RowBox[{"fn_", ",", " ", 
    RowBox[{"ht_HashTable", "?", "HashTableQ"}]}], "]"}], ":=", "\n", "\t\t", 
  
  RowBox[{"HashTableKeyValueMap", "[", 
   RowBox[{"fn", ",", " ", "ht"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"f3220438-8765-4903-af9f-d374faabba70"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]AssociateTo\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"74dfce9a-3468-4bb7-9d18-e5735ad9b49e"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"AssociateTo", "[", 
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], ",", " ", "k_"}], "]"}], ":=",
   "\n", "\t\t", 
  RowBox[{"HashTableAssociateTo", "[", 
   RowBox[{"ht", ",", " ", "k"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"b8ca1252-c8e2-4808-ad72-a7462d841be9"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyDropFrom\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"1304e4e6-8e62-4129-81fb-cc533746a81d"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"KeyDropFrom", "[", 
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], ",", " ", "k_"}], "]"}], ":=",
   "\n", "\t\t", 
  RowBox[{"HashTableKeyDropFrom", "[", 
   RowBox[{"ht", ",", " ", "k"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"7e6e1a13-fe37-4a77-a1c4-19a5f093ab3e"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeySelect\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"2d2bf389-ba44-47ce-87f4-00748612965b"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"KeySelect", "[", 
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], ",", " ", "k_"}], "]"}], ":=",
   "\n", "\t\t", 
  RowBox[{"HashTableKeySelect", "[", 
   RowBox[{"ht", ",", " ", "k"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"b4ef25d8-04f3-4a94-8461-5df7625726e7"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyTake\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"b66e799c-6e8f-4c55-b017-792deaf178b8"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"KeyTake", "[", 
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], ",", " ", "k_"}], "]"}], ":=",
   "\n", "\t\t", 
  RowBox[{"HashTableKeyTake", "[", 
   RowBox[{"ht", ",", " ", "k"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"b8322127-db7c-43b2-a714-72a1c00fbeb4"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]KeyDrop\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"00a79c50-b13d-4d19-b62b-04ccc46a7965"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"KeyDrop", "[", 
   RowBox[{
    RowBox[{"ht_HashTable", "?", "HashTableQ"}], ",", " ", "k_"}], "]"}], ":=",
   "\n", "\t\t", 
  RowBox[{"HashTableKeyDrop", "[", 
   RowBox[{"ht", ",", " ", "k"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"4219f347-1e27-425a-92aa-cad1588ea143"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]AssociationMap\[RightFloor]", "CodeSubsubsubsection",
 Evaluatable->True,ExpressionUUID->"6c33f908-2bf7-4d46-b5e8-875cdc3ab735"],

Cell[BoxData[
 RowBox[{"HashTable", "/:", "\n", "\t", 
  RowBox[{"AssociationMap", "[", 
   RowBox[{"fn_", ",", " ", 
    RowBox[{"ht_HashTable", "?", "HashTableQ"}]}], "]"}], ":=", "\n", "\t\t", 
  
  RowBox[{"HashTableMap", "[", 
   RowBox[{"fn", ",", " ", "ht"}], 
   "]"}]}]], \
"CodeInput",ExpressionUUID->"1315bafc-4f87-457d-9bc8-cc0b9bc7f324"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[LeftCeiling]Mutation\[RightFloor]", "CodeSubsubsection",
 Evaluatable->True,ExpressionUUID->"7a4fa2b0-aea4-48eb-91a5-3dbf9de737a6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"htQ", "[", "s_Symbol", "]"}], ":=", "\n", "\t", 
   RowBox[{"MatchQ", "[", 
    RowBox[{
     RowBox[{"OwnValues", "[", "s", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"_", "\[RuleDelayed]", 
       RowBox[{"_HashTable", "?", "HashTableQ"}]}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"htQ", "~", "SetAttributes", "~", "HoldFirst"}], "\n", 
 RowBox[{"HashTableMutationHandler", "~", "SetAttributes", "~", 
  "HoldAllComplete"}], "\n", 
 RowBox[{
  RowBox[{"HashTableMutationHandler", "[", "\n", "\t", 
   RowBox[{"Set", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"s_Symbol", "?", "htQ"}], "[", "k_", "]"}], ",", " ", "v_"}], 
    "]"}], "\n", "\t", "]"}], ":=", "\n", "\t", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ht", "=", "s"}], "}"}], ",", "\n", "\t\t", 
    RowBox[{"HashTableSet", "[", 
     RowBox[{"ht", ",", " ", "k", ",", " ", "v"}], "]"}]}], "\n", "\t\t", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMutationHandler", "[", "\n", "\t", 
    RowBox[{"Unset", "[", 
     RowBox[{
      RowBox[{"s_Symbol", "?", "htQ"}], "[", "k_", "]"}], "]"}], "\n", "\t", 
    "]"}], ":=", "\n", "\t", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ht", "=", "s"}], "}"}], ",", "\n", "\t\t", 
     RowBox[{"HashTableRemove", "[", 
      RowBox[{"s", ",", " ", "k"}], "]"}]}], "\n", "\t\t", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMutationHandler", "[", "\n", "\t", 
    RowBox[{"AssociateTo", "[", 
     RowBox[{
      RowBox[{"s_Symbol", "?", "htQ"}], ",", " ", "k_"}], "]"}], "\n", "\t", 
    "]"}], ":=", "\n", "\t", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ht", "=", "s"}], "}"}], ",", "\n", "\t\t", 
     RowBox[{"HashTableAssociateTo", "[", 
      RowBox[{"ht", ",", " ", "k"}], "]"}]}], "\n", "\t\t", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMutationHandler", "[", "\n", "\t", 
    RowBox[{"KeyDropFrom", "[", 
     RowBox[{
      RowBox[{"s_Symbol", "?", "htQ"}], ",", " ", "k_"}], "]"}], "\n", "\t", 
    "]"}], ":=", "\n", "\t", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ht", "=", "s"}], "}"}], ",", "\n", "\t\t", 
     RowBox[{"HashTableKeyDropFrom", "[", 
      RowBox[{"ht", ",", " ", "k"}], "]"}]}], "\n", "\t\t", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"HashTableMutationHandler", "[", "\n", "\t", 
    RowBox[{"AppendTo", "[", 
     RowBox[{
      RowBox[{"s_Symbol", "?", "htQ"}], ",", " ", "k_"}], "]"}], "\n", "\t", 
    "]"}], ":=", "\n", "\t", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ht", "=", "s"}], "}"}], ",", "\n", "\t\t", 
     RowBox[{"HashTableAssociateTo", "[", 
      RowBox[{"ht", ",", " ", "k"}], "]"}]}], "\n", "\t\t", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Language`SetMutationHandler", "[", 
   RowBox[{"HashTable", ",", " ", "HashTableMutationHandler"}], "]"}], 
  ";"}]}], "CodeInput",ExpressionUUID->"918442fc-9dcf-4e05-a7bc-8bec46419e1d"]\

}, Closed]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"End", "[", "]"}], 
  ";"}]], "InputSection",ExpressionUUID->"1bcdff0b-858e-4540-a08f-\
6bb534263927"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EndPackage", "[", "]"}], 
  ";"}]], "InputSection",ExpressionUUID->"b6de9972-e4a5-44b7-86c1-\
24e48845ea92"]
}, Open  ]],

Cell["", "SectionSeparator",ExpressionUUID->"8f500a54-32b0-486a-9dc2-\
93d2ed0b030a"],

Cell[BoxData[
 RowBox[{"<<", "HashTableInterface`"}]], "Input",
 CellLabel->"In[18]:=",ExpressionUUID->"d0886ef4-41ba-43a8-954b-96748130adc2"],

Cell[BoxData[
 RowBox[{"Get", "[", 
  "\"\<https://github.com/b3m2a1/mathematica-tools/raw/master/\
HashTableInterface.m\>\"", 
  "]"}]], "Input",ExpressionUUID->"60d8b325-cb58-4073-bbc1-923cdf349da1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ht", "=", 
  RowBox[{"HashTable", "@", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "\[Rule]", "2"}], ",", " ", 
     RowBox[{"3", "\[Rule]", "4"}]}], "}"}]}]}]], "Input",
 CellLabel->"In[35]:=",ExpressionUUID->"4b9db369-f716-4f34-8b1c-9b3bf5005a69"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["HashTable",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"Item Count: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"Item Count: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  HashTableInterface`HashTable[
   System`Utilities`HashTable[1, {{1, 2}, {3, 4}}]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->
  "Out[35]=",ExpressionUUID->"276e084b-cf20-43a4-b214-e67c3e0225aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "@", "ht"}]], "Input",
 CellLabel->"In[36]:=",ExpressionUUID->"a20ee6f6-2d81-4f39-9153-357e4e960072"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "1"}], "}"}]], "Output",
 CellLabel->
  "Out[36]=",ExpressionUUID->"6fccc562-5c0d-472a-8250-7e51e57e9b16"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "@", "ht"}]], "Input",
 CellLabel->"In[37]:=",ExpressionUUID->"e6135b92-b648-47ea-b7d7-1deefde0132a"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"3", "\[Rule]", "4"}], ",", 
   RowBox[{"1", "\[Rule]", "2"}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->
  "Out[37]=",ExpressionUUID->"5026e0e4-868a-4caa-aed3-09943a73147b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AssociationMap", "[", 
   RowBox[{"Reverse", ",", " ", "ht"}], "]"}], "//", "Normal"}]], "Input",
 CellLabel->"In[38]:=",ExpressionUUID->"90bb40ea-1d67-481f-8f8d-d1e4f0f2f739"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"4", "\[Rule]", "3"}], ",", 
   RowBox[{"2", "\[Rule]", "1"}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->
  "Out[38]=",ExpressionUUID->"7f041f11-37b3-4f93-b0e1-485c42f965f4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ht", "@", 
  RowBox[{"\"\<Map\>\"", "[", 
   RowBox[{
    RowBox[{"#", "+", "1"}], "&"}], "]"}]}]], "Input",
 CellLabel->"In[39]:=",ExpressionUUID->"ce6488a2-de30-4f73-91ef-0e63e87cfadd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ht", "//", "Normal"}]], "Input",
 CellLabel->"In[40]:=",ExpressionUUID->"6e2e420c-9ba5-4285-88b3-6934f8b1a2ea"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"3", "\[Rule]", "5"}], ",", 
   RowBox[{"1", "\[Rule]", "3"}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->
  "Out[40]=",ExpressionUUID->"d1280c34-5a25-4e2d-a652-d4c5e126ac85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ht", "[", "\"\<sampleKey\>\"", "]"}], "=", 
  RowBox[{"RandomReal", "[", "]"}]}]], "Input",
 CellLabel->"In[41]:=",ExpressionUUID->"704330c5-eded-4c33-aab7-383334510c0e"],

Cell[BoxData["0.7515943459993164`"], "Output",
 CellLabel->
  "Out[41]=",ExpressionUUID->"bd73ef1a-93f8-4915-a507-c60dc420d2a7"]
}, Open  ]]
},
WindowSize->{808, 755},
WindowMargins->{{Automatic, 274}, {Automatic, 0}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"BTools"}, "CodePackage.nb", 
  CharacterEncoding -> "UTF-8"]
]