(* 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[     22941,        587]
NotebookOptionsPosition[     17922,        494]
NotebookOutlinePosition[     19871,        538]
CellTagsIndexPosition[     19828,        535]
WindowTitle->$WolframInstitutePuzzlesVersion
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->
           "10e659bd-824b-4caa-a023-9f1a7ffafdc4"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "c1f5adbc-66d4-4a9c-bf55-9e6f1404f021"],
        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->
           "92fa2031-60a9-4368-82bd-c693e7071002"]
         }],ExpressionUUID->"c89466cb-995c-4c68-8774-4e618ef42d51"],
         StripOnInput->False],{
        StyleBox[
          "\"$WolframInstitutePuzzlesCategories\"", "SeeAlsoRelated", 
           StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$\
WolframInstitutePuzzlesCategories"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "3dbf613c-6230-43e3-b61b-7a94a73da2ee"],
     "\[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->
           "90ca6d54-c3b5-4f55-ab1f-275456ee7d68"]
         }],ExpressionUUID->"1c7f1e46-28cf-4d0f-898c-d2d981cfebb9"],
         StripOnInput->False],{
        "\"Puzzles\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Puzzles"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "778472bf-ee11-45bb-95f5-ae35609a5cbd"],
     "\[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->
           "ea245255-d1d4-4a98-890e-4447395d0a13"]
         }],ExpressionUUID->"3bb206d0-c785-4f9d-b323-30c18a3ccbfb"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/$WolframInstitutePuzzlesVersion\"" :> 
         None, "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/$WolframInstitutePuzzlesVersion"], 
         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/$WolframInstitutePuzzlesVersion.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/$WolframInstitutePuzzlesVersion" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "80c2a9de-ff29-4fc8-a369-625f137961a1"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "f80ef459-e760-4651-bd1f-ec6d6672edd3"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"d33b537b-45f9-4fb0-98db-a1d703331d4d"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"29210229-a72d-4ee1-a22c-26e0bed89de3"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "$WolframInstitutePuzzlesVersion", "ObjectName",ExpressionUUID->
      "899ca6c8-0de4-46f6-8641-a891bbd41827"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"a8d7d0fd-f38c-4f3a-98e9-2df559209e87"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "5d442233-b871-409e-bdc8-b604a3d56dc3"]
    }],ExpressionUUID->"ac967a3e-8b28-4749-b8ad-cbce36d9ac98"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"4bf3ba2f-e069-47df-bc64-\
05d958b69966"],

Cell[BoxData[GridBox[{
   {"", 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",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ee6d1b13-4df0-4743-a6f2-3c3290cac8e1"],
     "\[LineSeparator]",
     "gives the version metadata of the loaded WolframInstitute/Puzzles \
paclet."
    }],ExpressionUUID->"11bce63f-bc19-481c-89f3-f9bac24e4209"]}
  }]], "Usage",ExpressionUUID->"618691f0-c148-4534-83ac-223a6e12e539"]
}, 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->"5fb94625-5a99-4e65-9ee4-4633b65f0d60"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"a82c8c4e-7788-44af-9925-54f017f66ad4"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "011dc8e5-a411-4a7c-839e-6658899e57e9"]],ExpressionUUID->"56c6cc3d-72b0-\
40d7-8866-5ec8e618b31a"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->967718453,ExpressionUUID->"7769bc84-1bab-49ac-9189-169848f22030"],

Cell[TextData[{
 "The value is an association read from the paclet's ",
 Cell[BoxData["PacletObject"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7d828207-57e8-4436-b6fe-9f6712e7b5bc"],
 "."
}], "Notes",ExpressionUUID->"a0ed4c93-768d-4c17-84e8-6207b48b999b"],

Cell[TextData[{
 "The keys are ",
 Cell[BoxData["\<\"Version\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9f02c149-2942-473e-b02f-dd8dfc5e354b"],
 " (the paclet version), ",
 Cell[BoxData["\<\"WolframVersion\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dbe76633-e504-467a-82d9-72faeee5e4e0"],
 " (the required Wolfram Language version), and ",
 Cell[BoxData["\<\"Author\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b3395898-132e-4d81-a501-1a99ffc34be5"],
 "."
}], "Notes",ExpressionUUID->"508a81db-9e3c-434d-b44c-1f6e8a818ad4"],

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->"14e4d1d8-a6da-4c69-b673-1d9405c55119"],

Cell["\<\
The value is fixed for a given installed paclet; it does not change during a \
session.\
\>", "Notes",ExpressionUUID->"7857fc02-8ada-4267-b21f-85e2f49808c4"],

Cell[TextData[{
 "A result that pins a puzzle search to a release matters here: a derivation \
changed between versions changes which candidates a sweep has actually ruled \
out. Record this alongside a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["SearchLedger"]], 
    "paclet:WolframInstitute/Puzzles/ref/SearchLedger", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "06089e8d-ba6e-42e8-b24b-2ef7a288422a"],
 "."
}], "Notes",ExpressionUUID->"fc273972-9e77-4628-8173-b9f0bea31764"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"73ce53ca-d2e3-43a2-be44-29ea84393aee"],

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->"be45241c-4b53-4c9d-9974-bb7f39d21a89"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"50ae2959-2fd1-4350-b779-32811b25a6c1"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "ccd14309-10f8-4c42-9673-a93349cba96f"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1550380840,ExpressionUUID->"d3600224-5770-4911-9cb5-9da973150d32"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"925be921-ff1c-4cc7-956b-b1ec5534c60f"],

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->
  "d00796b7-bb6f-40ca-918c-b4166da96c46"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"16b2a98c-f750-4d94-8cb7-108d8d4a343f"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "a4790d4a-ef3a-464e-9687-4e1d9f8119c8"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1831688829,ExpressionUUID->"3228ff0c-65a0-4307-88c3-29e8f19f9e62"],

Cell["The version metadata of the loaded paclet:", "ExampleText",ExpressionUUID->"378e6494-5eaa-48e7-9a85-392666942e2d"],

Cell[CellGroupData[{

Cell[BoxData["$WolframInstitutePuzzlesVersion"], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"39c61068-cbe3-4eaf-83ea-8b0cfb755bd5"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Version\"\>", "\[Rule]", "\<\"0.1.0\"\>"}], ",", 
   RowBox[{"\<\"WolframVersion\"\>", "\[Rule]", "\<\"15.0+\"\>"}], ",", 
   RowBox[{"\<\"Author\"\>", "\[Rule]", "\<\"Puzzles contributors\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"dc1a0003-8f22-4191-bc90-5c9453909c6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7c1b7492-cb64-4211-bb1d-26391b3bd34c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9ab6a0e1-0975-4b36-\
bf57-dc856be241ae"],

Cell[TextData[{
 "The release version alone is the ",
 Cell[BoxData["\<\"Version\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "70e8018c-dc39-420e-b480-f3da1a4a0de4"],
 " key:"
}], "ExampleText",ExpressionUUID->"c58cb116-219d-456d-9471-412599ff10bd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$WolframInstitutePuzzlesVersion", "[", "\"\<Version\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6794a1eb-95c9-4fab-841e-3459fbb5a7b9"],

Cell[BoxData["\<\"0.1.0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3e829102-f765-4ec6-a22f-3f7de7fe0e9d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a5ff9a76-c48b-4047-adfa-93ce90b920c6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"8b807414-b134-4690-\
aa25-bd0a36d01cb1"],

Cell["The Wolfram Language version the paclet requires:", "ExampleText",ExpressionUUID->"e9c29a79-086e-47c5-b674-ab7d389107e7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$WolframInstitutePuzzlesVersion", "[", "\"\<WolframVersion\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c3703a39-e92a-4fe7-afc5-26dd58879def"],

Cell[BoxData["\<\"15.0+\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"91bb42a8-d394-43b8-ab3c-8275e809dbcc"]
}, 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["$WolframInstitutePuzzlesCategories"]], 
          "paclet:WolframInstitute/Puzzles/ref/$\
WolframInstitutePuzzlesCategories", "WolframInstitute/Puzzles Package Symbol"},
         "PackageLink",
         BaseStyle->"InlineFormula"]], "InlineFormula",
        FontFamily->"Source Sans Pro",ExpressionUUID->
        "b91795df-0fce-4355-a64a-0a3bf3e3162a"]], "SeeAlso",ExpressionUUID->
        "1012687b-e15b-4a52-8d26-1aa545a4c047"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"82353755-dee6-4f80-97d5-\
2d726f285b30"],

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->
         "1cc73b86-f866-4b8d-960d-c5f4cf83c94c"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"c18bc783-439a-48da-b4f1-\
4bb50b9b2fda"],

Cell[" ", "FooterCell",ExpressionUUID->"e14fdaf7-bdb7-43c7-b7d9-d5f3d9236de0"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"$WolframInstitutePuzzlesVersion",
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, 12, 0.500003}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[$WolframInstitutePuzzlesVersion, paclet : \
WolframInstitute/Puzzles/ref/$WolframInstitutePuzzlesVersion, \
WolframInstitute/Puzzles Package Symbol] gives the version metadata of the \
loaded WolframInstitute/Puzzles paclet.", "synonyms" -> {}, "tabletags" -> {},
     "title" -> "$WolframInstitutePuzzlesVersion", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> 
    "$WolframInstitutePuzzlesVersion", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/$WolframInstitutePuzzlesVersion", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"3df03a45-94aa-4948-994f-9e75037cc72b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[599, 21, 5160, 130, 70, "AnchorBarGrid",ExpressionUUID->"d33b537b-45f9-4fb0-98db-a1d703331d4d",
 CellID->1],
Cell[5762, 153, 107, 0, 70, "ContextNameCell",ExpressionUUID->"29210229-a72d-4ee1-a22c-26e0bed89de3"],
Cell[CellGroupData[{
Cell[5894, 157, 574, 14, 70, "ObjectNameGrid",ExpressionUUID->"4bf3ba2f-e069-47df-bc64-05d958b69966"],
Cell[6471, 173, 737, 17, 70, "Usage",ExpressionUUID->"618691f0-c148-4534-83ac-223a6e12e539"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7245, 195, 1443, 34, 70, "NotesSection",ExpressionUUID->"7769bc84-1bab-49ac-9189-169848f22030",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->967718453],
Cell[8691, 231, 311, 7, 70, "Notes",ExpressionUUID->"a0ed4c93-768d-4c17-84e8-6207b48b999b"],
Cell[9005, 240, 701, 17, 70, "Notes",ExpressionUUID->"508a81db-9e3c-434d-b44c-1f6e8a818ad4"],
Cell[9709, 259, 242, 4, 70, "Notes",ExpressionUUID->"14e4d1d8-a6da-4c69-b673-1d9405c55119"],
Cell[9954, 265, 167, 3, 70, "Notes",ExpressionUUID->"7857fc02-8ada-4267-b21f-85e2f49808c4"],
Cell[10124, 270, 644, 16, 70, "Notes",ExpressionUUID->"fc273972-9e77-4628-8173-b9f0bea31764"]
}, Closed]],
Cell[10783, 289, 80, 0, 70, "PageDelimiter",ExpressionUUID->"73ce53ca-d2e3-43a2-be44-29ea84393aee"],
Cell[CellGroupData[{
Cell[10888, 293, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"d3600224-5770-4911-9cb5-9da973150d32",
 CellID->1550380840],
Cell[12292, 332, 216, 4, 70, "Input",ExpressionUUID->"925be921-ff1c-4cc7-956b-b1ec5534c60f",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12533, 340, 1236, 31, 70, "ExampleSection",ExpressionUUID->"3228ff0c-65a0-4307-88c3-29e8f19f9e62",
 CellID->1831688829],
Cell[13772, 373, 120, 0, 70, "ExampleText",ExpressionUUID->"378e6494-5eaa-48e7-9a85-392666942e2d"],
Cell[CellGroupData[{
Cell[13917, 377, 184, 2, 70, "Input",ExpressionUUID->"39c61068-cbe3-4eaf-83ea-8b0cfb755bd5"],
Cell[14104, 381, 389, 7, 70, "Output",ExpressionUUID->"dc1a0003-8f22-4191-bc90-5c9453909c6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14530, 393, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9ab6a0e1-0975-4b36-bf57-dc856be241ae"],
Cell[14757, 400, 306, 7, 70, "ExampleText",ExpressionUUID->"c58cb116-219d-456d-9471-412599ff10bd"],
Cell[CellGroupData[{
Cell[15088, 411, 228, 4, 70, "Input",ExpressionUUID->"6794a1eb-95c9-4fab-841e-3459fbb5a7b9"],
Cell[15319, 417, 119, 1, 70, "Output",ExpressionUUID->"3e829102-f765-4ec6-a22f-3f7de7fe0e9d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15487, 424, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"8b807414-b134-4690-aa25-bd0a36d01cb1"],
Cell[15714, 431, 127, 0, 70, "ExampleText",ExpressionUUID->"e9c29a79-086e-47c5-b674-ab7d389107e7"],
Cell[CellGroupData[{
Cell[15866, 435, 235, 4, 70, "Input",ExpressionUUID->"c3703a39-e92a-4fe7-afc5-26dd58879def"],
Cell[16104, 441, 119, 1, 70, "Output",ExpressionUUID->"91bb42a8-d394-43b8-ab3c-8275e809dbcc"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[16274, 448, 866, 21, 70, "SeeAlsoSection",ExpressionUUID->"82353755-dee6-4f80-97d5-2d726f285b30"],
Cell[17143, 471, 694, 19, 70, "MoreAboutSection",ExpressionUUID->"c18bc783-439a-48da-b4f1-4bb50b9b2fda"],
Cell[17840, 492, 78, 0, 70, "FooterCell",ExpressionUUID->"e14fdaf7-bdb7-43c7-b7d9-d5f3d9236de0"]
}
]
*)

(* End of internal cache information *)

