(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Wolfram 15.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[     24094,        612]
NotebookOptionsPosition[     18935,        517]
NotebookOutlinePosition[     20927,        562]
CellTagsIndexPosition[     20884,        559]
WindowTitle->$WolframInstitutePuzzlesCategories
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {GridBox[{
      {
       ItemBox[Cell[BoxData[
         RowBox[{
          TemplateBox[{12},
           "Spacer1"], Cell[
          "WOLFRAM INSTITUTE/ PUZZLES SYMBOL", "PacletNameCell",
           TextAlignment->Center,ExpressionUUID->
           "efb2f5f6-8e88-4350-8b41-f66606afca1a"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "bfa06d4f-21cd-4ea7-bd9b-630f709db4cb"],
        Background->LightDarkSwitched[
          RGBColor[0.490196, 0.576471, 0.690196]],
        ItemSize->Full], ""}
     },
     GridBoxAlignment->{"Rows" -> {{Center}}},
     GridBoxItemSize->{"Columns" -> {Full, 
         Scaled[0.02]}, "Rows" -> {{2.5}}}], Cell[TextData[{
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "See Also",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "b5ff7dcc-6eb0-4168-8d86-39f0ef62ba1c"]
         }],ExpressionUUID->"9353b52d-3a89-4309-b99a-37b8de170a53"],
         StripOnInput->False],{
        StyleBox[
          "\"$WolframInstitutePuzzlesVersion\"", "SeeAlsoRelated", 
           StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$\
WolframInstitutePuzzlesVersion"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "2f3d8f6c-1583-4856-9290-cbb162640e97"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "Related Guides",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "6651e009-5b3d-4074-aa4e-10ab11610b5c"]
         }],ExpressionUUID->"0973a5c3-4ac3-449e-a680-a37e178a767d"],
         StripOnInput->False],{
        "\"Puzzles\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Puzzles"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "5703ffa4-54ed-44a7-aa30-d9b3a382e621"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "URL",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "72862d03-b818-44de-90c0-65306cc4c4a9"]
         }],ExpressionUUID->"cce464be-db4a-4d52-b400-cbf155611c14"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/$WolframInstitutePuzzlesCategories\"" :> 
         None, "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/$WolframInstitutePuzzlesCategories"], 
         Delimiter, "\"Copy web URL\"" :> 
         Module[{DocumentationSearch`Private`nb$}, 
           DocumentationSearch`Private`nb$ = 
            NotebookPut[
             Notebook[{
               Cell[BoxData[
                 MakeBoxes[
                  Hyperlink[
                   "http://reference.wolfram.com/language/WolframInstitute/\
Puzzles/ref/$WolframInstitutePuzzlesCategories.html"], StandardForm]], 
                 "Input", TextClipboardType -> "PlainText"]}, Visible -> 
               False]]; 
           SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
           FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
           NotebookClose[DocumentationSearch`Private`nb$]; Null], 
         "\"Go to web URL\"" :> 
         FrontEndExecute[{
           NotebookLocate[{
             URL[If[TrueQ[False], 
                 "http://reference.wolfram.com/system-modeler/", 
                 "http://reference.wolfram.com/language/"] <> 
               "WolframInstitute/Puzzles/ref/$\
WolframInstitutePuzzlesCategories" <> ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "7e077e63-6ea4-43b6-a1d0-912b37e62dfb"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "b7c34fb5-a0a9-423b-95a5-5ed7a53c0f3d"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"b6852043-8e26-491d-93b1-b90682d94051"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"25a692eb-7791-45bb-8c91-4e8d7cd12d34"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "$WolframInstitutePuzzlesCategories", "ObjectName",ExpressionUUID->
      "d04c2155-58d4-4759-8907-399fe198263a"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"8731ad00-909e-4acb-bbc8-ff5d2dbd4d28"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "b3d252f4-dfeb-44df-b63f-a5a54b816c8c"]
    }],ExpressionUUID->"f837880c-ee13-4e2d-a291-f9228ad2f1b1"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"f5a00af5-cfcc-4dc6-980f-\
b07b675192d6"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["$WolframInstitutePuzzlesCategories"]], 
        "paclet:WolframInstitute/Puzzles/ref/$\
WolframInstitutePuzzlesCategories", "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "99a0539c-ecd8-4837-914b-2ec4dc401a2a"],
     "\[LineSeparator]",
     "gives the list of top-level topic-area names covered by the \
WolframInstitute/Puzzles paclet."
    }],ExpressionUUID->"f9a9dfbe-0991-49ed-9e60-86fa7aebce15"]}
  }]], "Usage",ExpressionUUID->"4aefa715-52af-4846-8c0d-1877e70af8a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[Cell[TextData[{
  Cell[BoxData[
   DynamicBox[ToBoxes[
     If[CurrentValue[
        EvaluationCell[], "CellGroupOpen"] =!= Closed, 
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], 
      Rotate[
       Style[
        Graphics[{
          Thickness[0.18], 
          RGBColor[0.8509803921568627, 0.396078431372549, 0], 
          Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
         PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
        0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
    ImageSizeCache->{
     13.600000000000001`, {-0.1685058593749993, 13.768505859375}}]],
   ExpressionUUID->"50f00e5e-ee29-4a9f-bea8-00bcf9cc247c"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"60e5695b-3356-4548-90a4-2d02b926c771"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "cb4f40e1-d2a6-4758-b077-1d88f0d9b463"]],ExpressionUUID->"47550421-6853-\
4116-bc02-80058da14b8c"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1021924096,ExpressionUUID->"ab3fce22-8526-4067-bf6f-1669daa7c94d"],

Cell["\<\
Each name is one stage of puzzle work and corresponds to a category \
subdirectory of the kernel, test and documentation trees.\
\>", "Notes",ExpressionUUID->"a954ba3c-a218-42da-9282-b32bf3056739"],

Cell[TextData[{
 "The seven areas are ",
 Cell[BoxData["\<\"Chain\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "76ccde7a-74c2-4d0c-8414-a4163bc445b6"],
 ", ",
 Cell[BoxData["\<\"Derivation\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ff605a4e-bdb9-4a3e-9a38-7c06dc73ead6"],
 ", ",
 Cell[BoxData["\<\"Encodings\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ec844693-1208-47fc-a274-65d0ff2fdd6a"],
 ", ",
 Cell[BoxData["\<\"Oracles\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "20500e5b-5ce9-46dd-872e-2b4dc1928726"],
 ", ",
 Cell[BoxData["\<\"Search\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c00343cf-ea61-4751-9aa0-a707a40a492e"],
 ", ",
 Cell[BoxData["\<\"Seeds\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ed8f7b39-f29d-49cb-97d4-9eb36bc19c02"],
 " and ",
 Cell[BoxData["\<\"Steganography\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "242fa53c-dba7-4e9f-9fdf-dc348c4abfb5"],
 "."
}], "Notes",ExpressionUUID->"5c5b70a4-5339-4e93-a591-fd133d7721be"],

Cell[TextData[{
 "The value is derived from the paclet's own ",
 Cell[BoxData["Kernel"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6f7b76f1-e06a-4c92-8c53-6e114d936c1f"],
 " subdirectories rather than being a hand-maintained literal, so adding, \
removing or renaming a category updates it with no edit to the source."
}], "Notes",ExpressionUUID->"ad75e9ea-b55f-4b41-b9d5-83f1d97a9eed"],

Cell["The names are returned sorted.", "Notes",ExpressionUUID->"aa350eda-008a-4480-8c12-0f33452b4120"],

Cell["\<\
The value is computed lazily on first use and then memoized, because the \
paclet is not necessarily registered while its own kernel files are still \
being read.\
\>", "Notes",ExpressionUUID->"401dfe83-75d3-4e2e-8ad6-89c9d9087446"],

Cell[TextData[{
 "A category folder is organization only. The paclet has a single umbrella \
context, ",
 Cell[BoxData[
  StyleBox["WolframInstitute`Puzzles`", "InlineCode"]], "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "a74c475b-9b3e-408f-85c5-0b058b478ebe"],
 ", so the folder a symbol is defined in never appears in its name."
}], "Notes",ExpressionUUID->"9378c0bd-f942-4705-96b1-26702c14fdac"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"73a35120-cf68-4438-8b38-3b1215479b1f"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[
     MatchQ[
      CurrentValue[
       EvaluationNotebook[], {
       TaggingRules, "Openers", "PrimaryExamplesSection"}, Open], 
      Alternatives[True, Open]], 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
   ImageSizeCache->{
    13.600000000000001`, {4.251494140625001, 9.348505859375}}]],
  ExpressionUUID->"e62f6b6a-7962-42af-a9c8-96c123929f2a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4d8fb45f-d11e-4f0b-b831-c316be3972ea"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "f56efd29-c9ad-4957-93b2-0dd99417e95a"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2051556413,ExpressionUUID->"9f37a8d7-1013-4468-830b-b1a8ef0641a4"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"00252721-47ff-4f45-a473-73da90a6ab04"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "a69d6651-4998-4952-9a51-4a1f4ba8ebb6"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"1d53872b-f3b0-406a-a91b-68a119c9e756"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "3869b6c4-f0c0-4648-a650-220dfe15eecd"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->511197059,ExpressionUUID->"11168285-8e33-43f3-82ee-109d6f9c0be7"],

Cell["The topic areas the paclet spans:", "ExampleText",ExpressionUUID->"c11dd3ff-9536-43f6-8928-c3fd4dae323d"],

Cell[CellGroupData[{

Cell[BoxData["$WolframInstitutePuzzlesCategories"], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4868b3b3-1c83-43b1-9931-1f6cecab7c1a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Chain\"\>", ",", "\<\"Derivation\"\>", 
   ",", "\<\"Encodings\"\>", ",", "\<\"Oracles\"\>", ",", "\<\"Search\"\>", 
   ",", "\<\"Seeds\"\>", ",", "\<\"Steganography\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"455ec243-2f18-4b2e-839f-8d7454f6479e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "01ff2a85-eb75-4369-a551-f7cae8682039"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e82f3c33-2df7-4124-\
a63c-7f994c414c3c"],

Cell["The number of top-level areas:", "ExampleText",ExpressionUUID->"8b710eff-6fec-43f5-8150-5cb9a7558c8e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "$WolframInstitutePuzzlesCategories", "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9ebf7a07-b7e9-415a-ad76-148a157e5da0"],

Cell[BoxData["7"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"29a349fa-565f-4160-bfc1-fbc9a2f42108"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4e0f3525-b14b-4426-82e8-ceb716bcdd19"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"3555c1b2-34a2-47cc-\
8305-b76fb20a0dbb"],

Cell["\<\
The list is derived from the kernel subdirectories, not stored:\
\>", "ExampleText",ExpressionUUID->"409878e6-f3ee-4b05-9b54-28caba77ecb7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$WolframInstitutePuzzlesCategories", " ", "===", " ", 
  RowBox[{"Sort", "[", "\n", "\t", 
   RowBox[{"FileNameTake", " ", "/@", " ", 
    RowBox[{"Select", "[", "\n", "\t\t", 
     RowBox[{
      RowBox[{"FileNames", "[", 
       RowBox[{"\"\<*\>\"", ",", " ", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
            "PacletObject", "[", "\"\<WolframInstitute/Puzzles\>\"", "]"}], 
            "[", "\"\<Location\>\"", "]"}], ",", " ", "\"\<Kernel\>\""}], 
          "}"}], "]"}]}], "]"}], ",", "\n", "\t\t", "DirectoryQ"}], "\n", 
     "\t", "]"}]}], "\n", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"057430a6-27ce-45ad-8644-ec4513c02dc9"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"284db31e-4d7d-4a5e-b3c1-81f80b7f961b"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[Cell[BoxData[
        TemplateBox[{
          Cell[
           TextData["$WolframInstitutePuzzlesVersion"]], 
          "paclet:WolframInstitute/Puzzles/ref/$\
WolframInstitutePuzzlesVersion", "WolframInstitute/Puzzles Package Symbol"},
         "PackageLink",
         BaseStyle->"InlineFormula"]], "InlineFormula",
        FontFamily->"Source Sans Pro",ExpressionUUID->
        "9792d767-3811-40e2-b623-94afe79dcd7d"]], "SeeAlso",ExpressionUUID->
        "7e1fbb56-8a6d-4b11-bc90-2aa8201a1522"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"3ad472ae-6201-40e6-9af1-\
aba8291a77fa"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Puzzles"]], 
           "paclet:WolframInstitute/Puzzles/guide/Puzzles"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "2919607d-d224-44c0-8120-efe08fe038bc"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"4af46f83-9e40-423a-8e82-\
6556367e1be7"],

Cell[" ", "FooterCell",ExpressionUUID->"1526d07c-53ad-4031-a9bb-0b857b4c17c1"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"$WolframInstitutePuzzlesCategories",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "", "LinkTrails" -> "", 
  "ExampleCounter" -> 1, 
  "Openers" -> {
   "PrimaryExamplesSection" -> Open, "ExampleSection" -> {"0" -> Open}, 
    "AllOptsTable" -> Closed}, "NewStyles" -> True, 
  "CitationPopupData" -> $Failed, "ShowCitation" -> False, "HasOptions" -> 
  True, "RootCaptions" -> "", "HeaderCoreAreaLink" -> {}, 
  "Metadata" -> {
   "built" -> "{2026, 8, 27, 0, 11, 59.233820}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[$WolframInstitutePuzzlesCategories, paclet : \
WolframInstitute/Puzzles/ref/$WolframInstitutePuzzlesCategories, \
WolframInstitute/Puzzles Package Symbol] gives the list of top-level \
topic-area names covered by the WolframInstitute/Puzzles paclet.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "$WolframInstitutePuzzlesCategories", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> 
    "$WolframInstitutePuzzlesCategories", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/$WolframInstitutePuzzlesCategories", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"e6a5147e-52e7-4f02-b76b-dce385c92907"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[602, 21, 5168, 131, 70, "AnchorBarGrid",ExpressionUUID->"b6852043-8e26-491d-93b1-b90682d94051",
 CellID->1],
Cell[5773, 154, 107, 0, 70, "ContextNameCell",ExpressionUUID->"25a692eb-7791-45bb-8c91-4e8d7cd12d34"],
Cell[CellGroupData[{
Cell[5905, 158, 577, 14, 70, "ObjectNameGrid",ExpressionUUID->"f5a00af5-cfcc-4dc6-980f-b07b675192d6"],
Cell[6485, 174, 755, 17, 70, "Usage",ExpressionUUID->"4aefa715-52af-4846-8c0d-1877e70af8a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7277, 196, 1444, 34, 70, "NotesSection",ExpressionUUID->"ab3fce22-8526-4067-bf6f-1669daa7c94d",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1021924096],
Cell[8724, 232, 207, 3, 70, "Notes",ExpressionUUID->"a954ba3c-a218-42da-9282-b32bf3056739"],
Cell[8934, 237, 1354, 37, 70, "Notes",ExpressionUUID->"5c5b70a4-5339-4e93-a591-fd133d7721be"],
Cell[10291, 276, 440, 8, 70, "Notes",ExpressionUUID->"ad75e9ea-b55f-4b41-b9d5-83f1d97a9eed"],
Cell[10734, 286, 102, 0, 70, "Notes",ExpressionUUID->"aa350eda-008a-4480-8c12-0f33452b4120"],
Cell[10839, 288, 242, 4, 70, "Notes",ExpressionUUID->"401dfe83-75d3-4e2e-8ad6-89c9d9087446"],
Cell[11084, 294, 418, 8, 70, "Notes",ExpressionUUID->"9378c0bd-f942-4705-96b1-26702c14fdac"]
}, Closed]],
Cell[11517, 305, 80, 0, 70, "PageDelimiter",ExpressionUUID->"73a35120-cf68-4438-8b38-3b1215479b1f"],
Cell[CellGroupData[{
Cell[11622, 309, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"9f37a8d7-1013-4468-830b-b1a8ef0641a4",
 CellID->2051556413],
Cell[13026, 348, 216, 4, 70, "Input",ExpressionUUID->"00252721-47ff-4f45-a473-73da90a6ab04",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13267, 356, 1235, 31, 70, "ExampleSection",ExpressionUUID->"11168285-8e33-43f3-82ee-109d6f9c0be7",
 CellID->511197059],
Cell[14505, 389, 111, 0, 70, "ExampleText",ExpressionUUID->"c11dd3ff-9536-43f6-8928-c3fd4dae323d"],
Cell[CellGroupData[{
Cell[14641, 393, 187, 2, 70, "Input",ExpressionUUID->"4868b3b3-1c83-43b1-9931-1f6cecab7c1a"],
Cell[14831, 397, 314, 5, 70, "Output",ExpressionUUID->"455ec243-2f18-4b2e-839f-8d7454f6479e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15182, 407, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e82f3c33-2df7-4124-a63c-7f994c414c3c"],
Cell[15409, 414, 108, 0, 70, "ExampleText",ExpressionUUID->"8b710eff-6fec-43f5-8150-5cb9a7558c8e"],
Cell[CellGroupData[{
Cell[15542, 418, 221, 4, 70, "Input",ExpressionUUID->"9ebf7a07-b7e9-415a-ad76-148a157e5da0"],
Cell[15766, 424, 107, 1, 70, "Output",ExpressionUUID->"29a349fa-565f-4160-bfc1-fbc9a2f42108"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15922, 431, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"3555c1b2-34a2-47cc-8305-b76fb20a0dbb"],
Cell[16149, 438, 149, 2, 70, "ExampleText",ExpressionUUID->"409878e6-f3ee-4b05-9b54-28caba77ecb7"],
Cell[CellGroupData[{
Cell[16323, 444, 806, 18, 70, "Input",ExpressionUUID->"057430a6-27ce-45ad-8644-ec4513c02dc9"],
Cell[17132, 464, 110, 1, 70, "Output",ExpressionUUID->"284db31e-4d7d-4a5e-b3c1-81f80b7f961b"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[17293, 471, 860, 21, 70, "SeeAlsoSection",ExpressionUUID->"3ad472ae-6201-40e6-9af1-aba8291a77fa"],
Cell[18156, 494, 694, 19, 70, "MoreAboutSection",ExpressionUUID->"4af46f83-9e40-423a-8e82-6556367e1be7"],
Cell[18853, 515, 78, 0, 70, "FooterCell",ExpressionUUID->"1526d07c-53ad-4031-a9bb-0b857b4c17c1"]
}
]
*)

(* End of internal cache information *)

