(* 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[     40776,       1076]
NotebookOptionsPosition[     33238,        933]
NotebookOutlinePosition[     35374,        983]
CellTagsIndexPosition[     35297,        978]
WindowTitle->PuzzleOracleQ
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->
           "5582d6d2-c2c8-4ffd-b6bf-43590b8c00c2"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "71ee0a82-fe4b-47bb-9d6a-b45cc6b3e084"],
        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->
           "24eeabb0-8350-4a7f-8420-f152e8bab969"]
         }],ExpressionUUID->"5ab17300-5260-4432-97d6-0aeda87e08d5"],
         StripOnInput->False],{
        StyleBox["\"AssociationQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/AssociationQ"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"PuzzleOracle\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PuzzleOracle"], 
         StyleBox[
          StyleBox["\"OracleScan\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/OracleScan"], 
         StyleBox[
          StyleBox[
           "\"OracleBenchmark\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/OracleBenchmark"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "81ba00ef-753a-4609-b827-e8c24921b063"],
     "\[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->
           "09d7c052-8121-4c8e-84a8-1f9d638b620b"]
         }],ExpressionUUID->"83e2d9ed-f84b-4723-9508-35085b4aa795"],
         StripOnInput->False],{
        "\"Oracles\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Oracles"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "24d529b0-f267-4594-ab3b-242e0992a3b7"],
     "\[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->
           "51d5817f-a595-46b3-8515-40da4a2908b9"]
         }],ExpressionUUID->"8192b0a1-ba3d-47b9-8f2a-888f0c611434"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/PuzzleOracleQ\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/PuzzleOracleQ"], 
         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/PuzzleOracleQ.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/PuzzleOracleQ" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "eb6ce1b2-39ec-4eee-aace-a6a53a3940b8"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "49c9b543-36cf-4925-98f8-ef02fde1498c"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"a2fcb1ef-5a22-42be-b42a-6004399d2be8"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"e1563142-15df-4e7b-bcac-0f070c7f29c9"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "PuzzleOracleQ", "ObjectName",ExpressionUUID->
      "9bd1ad5e-97c0-4e38-8042-6721e29f631e"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"309f406c-082b-41bf-8f74-9a10a638f937"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "52ca8c1c-c8dc-4af6-a8f7-2a793fe0aa29"]
    }],ExpressionUUID->"5dd77bfa-c645-4411-a55b-db5175016523"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"61c456c9-555d-4bf6-9339-\
b1cb96e8ea3e"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["PuzzleOracleQ"]], 
         "paclet:WolframInstitute/Puzzles/ref/PuzzleOracleQ", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "fa12ddee-d99c-4376-bae3-c7f8f3b5f1b8"],
     "\[LineSeparator]",
     "gives ",
     Cell[BoxData["True"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "05d1e00f-778c-461a-8b0a-3e219503270a"],
     " if ",
     StyleBox["expr", "TI"],
     " is a valid ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["PuzzleOracle"]], 
        "paclet:WolframInstitute/Puzzles/ref/PuzzleOracle", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ce443e31-c2ac-4d05-82c6-74d54fef046c"],
     " object, and ",
     Cell[BoxData["False"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "35780401-fb9d-41dd-805c-5d70bb704438"],
     " otherwise."
    }],ExpressionUUID->"bf640741-4730-4307-90a5-26a084ba0d53"]}
  }]], "Usage",ExpressionUUID->"7fafadaf-dc34-4866-8160-8e65c6e72ee3"]
}, 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->"cf940dae-2726-4778-bfec-a1cebd67f9d4"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"bf301124-ab5f-48cb-a0ff-3cc73f4e3a03"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "fc0f8d5f-72ff-47ae-a436-063250e576b2"]],ExpressionUUID->"d3a78344-a494-\
4bb1-bd05-6617e48df621"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->427006662,ExpressionUUID->"1e7a6df9-6116-47b3-b7f9-970e2e14d05e"],

Cell[TextData[{
 Cell[BoxData["True"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b6541fb6-9fef-4703-a844-572c945f812d"],
 " requires the object to carry the full set of fields an oracle is built \
with: a ",
 Cell[BoxData["\<\"Type\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3e716c08-2cde-422a-af6a-fe9f6a9f5651"],
 " of ",
 Cell[BoxData["\<\"Membership\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "86bdfd51-6948-4059-8592-01c5dbe6879f"],
 " or ",
 Cell[BoxData["\<\"Digest\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9ac6caf6-a0d4-4b40-98fc-38495137b3c6"],
 ", a ",
 Cell[BoxData["\<\"Method\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0b7cdcb0-25aa-490d-b554-2afdb3893339"],
 ", an ",
 Cell[BoxData["\<\"Iterations\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d1ccec07-2582-45a5-ad5c-a64db1104e65"],
 " count, a ",
 Cell[BoxData["\<\"CandidateEncoding\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c963a129-ccf7-4eb1-b52f-c976d37ea466"],
 ", a ",
 Cell[BoxData["\<\"TargetCount\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d6da9c7e-fc03-4b5e-a5d8-e373782fb2fc"],
 ", and a ",
 Cell[BoxData["\<\"Targets\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2d623f74-f53c-4e63-9328-c1447c8df472"],
 " association."
}], "Notes",ExpressionUUID->"2b617ab4-1c64-48f5-80db-35d413e12280"],

Cell[TextData[{
 "Anything else gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b4a82a2d-ca9b-4894-8d9e-00bd67d70557"],
 ", including an expression with the ",
 Cell[BoxData["PuzzleOracle"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b4ed465c-1e35-4a4f-a0a0-03983f00de73"],
 " head whose contents are not a complete oracle."
}], "Notes",ExpressionUUID->"204a5761-ab4e-4903-8543-455ef2b735ca"],

Cell[TextData[{
 "A ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["PuzzleOracle"]], 
    "paclet:WolframInstitute/Puzzles/ref/PuzzleOracle", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4b3660d0-6cad-4bcd-9346-0cc451f1243b"],
 " call that was left unevaluated because its target or method was out of \
scope gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b777ad81-f68f-4a2f-abff-64e0ed5258b8"],
 ", since it never became an object."
}], "Notes",ExpressionUUID->"eaa0644a-6898-4c05-a491-6570187d4b92"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["OracleScan"]], 
    "paclet:WolframInstitute/Puzzles/ref/OracleScan", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3e2fae03-967f-4d90-9637-799e91a00570"],
 " and ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["OracleBenchmark"]], 
    "paclet:WolframInstitute/Puzzles/ref/OracleBenchmark", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d1034019-947c-4ee0-9f7e-9a704da991f0"],
 " act only on expressions this gives ",
 Cell[BoxData["True"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "46b686b5-fb0b-40bc-a010-13781d41e267"],
 " for."
}], "Notes",ExpressionUUID->"1a531f10-c3de-4238-97f9-1eb0d6d692c8"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"0028227a-355d-4b46-ad3c-e81fca5c787e"],

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->"66eecff5-098a-4372-bb90-bcd362b22149"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4e7cc75d-a2cc-4802-9c7c-ae21b8488288"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(8)", "ExampleCount",ExpressionUUID->
  "c303f6f7-573f-45c7-a9a7-8d2ecc73e7db"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1958103607,ExpressionUUID->"8ec442f4-3cd9-4530-a654-eaffe3631d9d"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"165ead53-94a4-49db-86d9-e44487cad8ce"],

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->
  "b7ed5701-aeda-4a34-809b-27707005a415"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"759c84b4-8b59-48ae-b4be-baef79aeee7a"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "df8e0a90-052f-43e2-bf52-070fc2c39bdb"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1807916221,ExpressionUUID->"80af5072-02fb-4ded-8490-da9bd4f291bb"],

Cell["An oracle built by the constructor is recognized:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"5007a355-b4c2-4e0b-96ef-de0773989069"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PuzzleOracleQ", "[", 
  RowBox[{
  "PuzzleOracle", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d1fc9508-8800-43d5-9dd2-ebf63eb431f3"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d35389f5-55ce-4b98-b92f-709367e30a9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "eb258164-0267-4493-99e6-478ce9500d7f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"1dc5e5e6-7bc8-4668-\
a8f2-09630d34690c"],

Cell["An address string is not an oracle:", "ExampleText",ExpressionUUID->"398c5d8e-3ec6-4f14-a9d2-4ecb49faad26"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PuzzleOracleQ", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1d4ad3d1-ab85-4848-b510-9963d142a263"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4b733073-3ae5-4379-bbed-347eca373ff4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

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->
  "ee8d47c5-1603-42e7-b1f0-63321d068d87"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a24b466a-1743-4083-979b-ea121b920a06"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "75652a0b-33af-473b-a4a0-a84b2c3f3b76"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"4c18b6ce-2845-42c3-a4b6-1a87443f10b3"],

Cell["\<\
A digest oracle is recognized in the same way as a membership oracle:\
\>", "ExampleText",ExpressionUUID->"133a840f-b89d-48e1-ac34-72f2bf511f2e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PuzzleOracleQ", "[", 
  RowBox[{"PuzzleOracle", "[", 
   RowBox[{"\"\<\
ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad\>\"", ",", 
    " ", 
    RowBox[{"Method", " ", "->", " ", "\"\<SHA256\>\""}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c403c291-0955-4d29-9d32-0e185f49c886"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"22ee80fd-768d-4335-b6d2-b4402658add8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5b92a58d-5099-478f-a459-3067749aa8ca"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4ae1ba1a-6582-402f-\
9cf5-8c2381943acf"],

Cell[TextData[{
 "An expression with the ",
 Cell[BoxData["PuzzleOracle"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e1030b52-9cd6-4edd-9d00-7036701437b4"],
 " head but no target set is not an oracle:"
}], "ExampleText",ExpressionUUID->"c2349619-1c71-4742-bdf8-009b01bdf0dd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PuzzleOracleQ", "[", 
  RowBox[{"PuzzleOracle", "[", 
   RowBox[{"<|", "|>"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"503a0855-3047-4629-bff1-df9aadb88315"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8baa740f-c98e-45aa-8c73-cb20590c6576"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d8ac3ea1-5ab9-47f1-a954-434749ea41cd"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b8ab8065-ec8b-4662-\
a6af-63176032f62f"],

Cell["\<\
Neither is a constructor call that was left unevaluated because its target \
was the wrong width for its method:\
\>", "ExampleText",ExpressionUUID->"e3036d1c-6687-45ed-b5c6-b1fc7e38811a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PuzzleOracleQ", "[", 
  RowBox[{"PuzzleOracle", "[", 
   RowBox[{"\"\<deadbeef\>\"", ",", " ", 
    RowBox[{"Method", " ", "->", " ", "\"\<SHA256\>\""}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c8177b30-b15e-493d-9899-e975e7629bc8"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b30bb617-bd3e-4d9b-b0d0-7f1de299b2df"]
}, Open  ]]
}, Open  ]]
}, Closed]],

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->
  "36ffd25d-7e2d-4b7f-808b-e6e6f28adc25"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"77ea90a3-ba78-4222-b575-d7cb339c0306"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "d1617e44-6e64-4d6a-9056-223077c9c384"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"48cf3e4e-e217-40de-9695-cf60faf9f93e"],

Cell["\<\
Filtering a list of prospective oracles down to the ones that actually built:\
\
\>", "ExampleText",ExpressionUUID->"c8c6537d-e193-442a-821a-e5ec2299766f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Select", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PuzzleOracle", "[", "\"\<abc\>\"", "]"}], ",", " ", "5", ",", 
     " ", 
     RowBox[{"PuzzleOracle", "[", 
      RowBox[{"\"\<deadbeef\>\"", ",", " ", 
       RowBox[{"Method", " ", "->", " ", "\"\<SHA256\>\""}]}], "]"}]}], "}"}],
    ",", " ", "PuzzleOracleQ"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6e1f7b61-0335-40d3-8e23-502a007b27be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"PuzzleOracle", "[", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Type\"\>", "\[Rule]", "\<\"Membership\"\>"}], ",", 
     RowBox[{"\<\"Method\"\>", "\[Rule]", "None"}], ",", 
     RowBox[{"\<\"Iterations\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"CandidateEncoding\"\>", "\[Rule]", "\<\"String\"\>"}], ",", 
     
     RowBox[{"\<\"TargetCount\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Targets\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{"\<\"abc\"\>", "\[Rule]", "True"}], 
       "\[RightAssociation]"}]}]}], "\[RightAssociation]"}], "]"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e845fd98-2e57-41ec-94a5-c9a1b6e89bf7"]
}, Open  ]]
}, Closed]],

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->
  "ea628e11-cdc9-47f1-8d0d-d45c266e413f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2ae6f6df-52cc-459c-bdc9-be7ee3061dec"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "f235f22b-0c86-43c4-83d7-96f49b5ec8d7"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"defb11ad-7cbe-4b81-8df7-041bdb952e35"],

Cell[TextData[{
 "The description an oracle gives of itself is available exactly when this \
gives ",
 Cell[BoxData["True"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cab5ebf4-55a8-4c50-a642-f548ce2007b4"],
 ":"
}], "ExampleText",ExpressionUUID->"6923c6d8-f101-4070-8977-c816d988ad4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"oracle", " ", "=", " ", 
     RowBox[{"PuzzleOracle", "[", "\"\<abc\>\"", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PuzzleOracleQ", "[", "oracle", "]"}], ",", " ", 
     RowBox[{"AssociationQ", "[", 
      RowBox[{"oracle", "[", "]"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ffd02997-6fac-437a-beb0-72407f9d8f3f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"46679002-5c87-43be-96ce-20abbf171533"]
}, Open  ]]
}, Closed]],

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->
  "23bb0052-44ed-4aa6-ab82-479d5a90ac79"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"37c3ed3e-9034-4e12-9934-801bcbf2dd18"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "17dae12e-8be9-4c93-b25a-11270e152fdc"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"d0344edb-b51d-4508-aff9-20442c0b7153"],

Cell[TextData[{
 "The predicate falls through to ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d04a8521-c034-4162-a0b3-48e717667e85"],
 " for every unmatched input rather than being left unevaluated, so a ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6d89866c-bb47-4481-8834-a400180a6d51"],
 " means only that the argument is not an oracle, not that anything went \
wrong:"
}], "ExampleText",ExpressionUUID->"ef5088cb-cfd7-4d1f-99f8-f6831efe1034"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PuzzleOracleQ", "[", "PuzzleOracle", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7b6b7214-e1ab-4b69-a9d2-b1d189349217"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cd7e4d19-2a65-48e1-a464-5811b3935dd9"]
}, Open  ]]
}, Closed]]
}, 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["PuzzleOracle"]], 
           "paclet:WolframInstitute/Puzzles/ref/PuzzleOracle", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "633f0fe2-b63b-4628-81d4-4f4d009dd9eb"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["OracleScan"]], 
           "paclet:WolframInstitute/Puzzles/ref/OracleScan", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "52e36cd1-fe63-459d-b04a-decabd9b20e4"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["OracleBenchmark"]], 
           "paclet:WolframInstitute/Puzzles/ref/OracleBenchmark", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "5c1aa2b4-db6b-4ec0-b4c0-c70c31905d82"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["AssociationQ"]], "paclet:ref/AssociationQ"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d8f90621-d8c6-43f3-a8ac-8c6bc346c0e1"]
       }], "SeeAlso",ExpressionUUID->"89248c16-544b-4779-973b-d2d5416b9a5b"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"07ac3132-f84f-40f7-8cf8-\
964752067a2a"],

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["Oracles"]], 
           "paclet:WolframInstitute/Puzzles/guide/Oracles"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "cac67df7-0784-4cd6-896a-6b6bb7de97aa"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"fb3e241e-9a8c-4a04-bc5a-\
1900d033b8d8"],

Cell[" ", "FooterCell",ExpressionUUID->"e5bc4b4e-cd03-4122-9b67-5b28ba99f046"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"PuzzleOracleQ",
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, 57.919571}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[PuzzleOracleQ,paclet : \
WolframInstitute/Puzzles/ref/PuzzleOracleQ, WolframInstitute/Puzzles Package \
Symbol][expr] gives True if expr is a valid PackageLink[PuzzleOracle, paclet \
: WolframInstitute/Puzzles/ref/PuzzleOracle, WolframInstitute/Puzzles Package \
Symbol] object, and False otherwise.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "PuzzleOracleQ", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "PuzzleOracleQ", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/PuzzleOracleQ", "WorkflowDockedCell" -> ""},
   "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"5ac8f6d5-44f7-4ea5-b211-da67ccea0819"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[17435, 474, 159, 2, 70, "ExampleText",ExpressionUUID->"5007a355-b4c2-4e0b-96ef-de0773989069",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 35140, 972}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[581, 21, 5998, 146, 70, "AnchorBarGrid",ExpressionUUID->"a2fcb1ef-5a22-42be-b42a-6004399d2be8",
 CellID->1],
Cell[6582, 169, 107, 0, 70, "ContextNameCell",ExpressionUUID->"e1563142-15df-4e7b-bcac-0f070c7f29c9"],
Cell[CellGroupData[{
Cell[6714, 173, 556, 14, 70, "ObjectNameGrid",ExpressionUUID->"61c456c9-555d-4bf6-9339-b1cb96e8ea3e"],
Cell[7273, 189, 1564, 42, 70, "Usage",ExpressionUUID->"7fafadaf-dc34-4866-8160-8e65c6e72ee3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8874, 236, 1443, 34, 70, "NotesSection",ExpressionUUID->"1e7a6df9-6116-47b3-b7f9-970e2e14d05e",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->427006662],
Cell[10320, 272, 1795, 47, 70, "Notes",ExpressionUUID->"2b617ab4-1c64-48f5-80db-35d413e12280"],
Cell[12118, 321, 526, 12, 70, "Notes",ExpressionUUID->"204a5761-ab4e-4903-8543-455ef2b735ca"],
Cell[12647, 335, 745, 20, 70, "Notes",ExpressionUUID->"eaa0644a-6898-4c05-a491-6570187d4b92"],
Cell[13395, 357, 1036, 30, 70, "Notes",ExpressionUUID->"1a531f10-c3de-4238-97f9-1eb0d6d692c8"]
}, Closed]],
Cell[14446, 390, 80, 0, 70, "PageDelimiter",ExpressionUUID->"0028227a-355d-4b46-ad3c-e81fca5c787e"],
Cell[CellGroupData[{
Cell[14551, 394, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"8ec442f4-3cd9-4530-a654-eaffe3631d9d",
 CellID->1958103607],
Cell[15955, 433, 216, 4, 70, "Input",ExpressionUUID->"165ead53-94a4-49db-86d9-e44487cad8ce",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[16196, 441, 1236, 31, 70, "ExampleSection",ExpressionUUID->"80af5072-02fb-4ded-8490-da9bd4f291bb",
 CellID->1807916221],
Cell[17435, 474, 159, 2, 70, "ExampleText",ExpressionUUID->"5007a355-b4c2-4e0b-96ef-de0773989069",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[17619, 480, 279, 6, 70, "Input",ExpressionUUID->"d1fc9508-8800-43d5-9dd2-ebf63eb431f3"],
Cell[17901, 488, 110, 1, 70, "Output",ExpressionUUID->"d35389f5-55ce-4b98-b92f-709367e30a9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18048, 494, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"1dc5e5e6-7bc8-4668-a8f2-09630d34690c"],
Cell[18275, 501, 113, 0, 70, "ExampleText",ExpressionUUID->"398c5d8e-3ec6-4f14-a9d2-4ecb49faad26"],
Cell[CellGroupData[{
Cell[18413, 505, 237, 4, 70, "Input",ExpressionUUID->"1d4ad3d1-ab85-4848-b510-9963d142a263"],
Cell[18653, 511, 111, 1, 70, "Output",ExpressionUUID->"4b733073-3ae5-4379-bbed-347eca373ff4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18825, 519, 1227, 31, 70, "ExampleSection",ExpressionUUID->"4c18b6ce-2845-42c3-a4b6-1a87443f10b3",
 CellID->1293636265],
Cell[20055, 552, 155, 2, 70, "ExampleText",ExpressionUUID->"133a840f-b89d-48e1-ac34-72f2bf511f2e"],
Cell[CellGroupData[{
Cell[20235, 558, 396, 9, 70, "Input",ExpressionUUID->"c403c291-0955-4d29-9d32-0e185f49c886"],
Cell[20634, 569, 110, 1, 70, "Output",ExpressionUUID->"22ee80fd-768d-4335-b6d2-b4402658add8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20781, 575, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4ae1ba1a-6582-402f-9cf5-8c2381943acf"],
Cell[21008, 582, 329, 7, 70, "ExampleText",ExpressionUUID->"c2349619-1c71-4742-bdf8-009b01bdf0dd"],
Cell[CellGroupData[{
Cell[21362, 593, 253, 5, 70, "Input",ExpressionUUID->"503a0855-3047-4629-bff1-df9aadb88315"],
Cell[21618, 600, 111, 1, 70, "Output",ExpressionUUID->"8baa740f-c98e-45aa-8c73-cb20590c6576"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21778, 607, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b8ab8065-ec8b-4662-a6af-63176032f62f"],
Cell[22005, 614, 198, 3, 70, "ExampleText",ExpressionUUID->"e3036d1c-6687-45ed-b5c6-b1fc7e38811a"],
Cell[CellGroupData[{
Cell[22228, 621, 333, 7, 70, "Input",ExpressionUUID->"c8177b30-b15e-493d-9899-e975e7629bc8"],
Cell[22564, 630, 111, 1, 70, "Output",ExpressionUUID->"b30bb617-bd3e-4d9b-b0d0-7f1de299b2df"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22736, 638, 1233, 31, 70, "ExampleSection",ExpressionUUID->"48cf3e4e-e217-40de-9695-cf60faf9f93e",
 CellID->258228157],
Cell[23972, 671, 165, 3, 70, "ExampleText",ExpressionUUID->"c8c6537d-e193-442a-821a-e5ec2299766f"],
Cell[CellGroupData[{
Cell[24162, 678, 503, 12, 70, "Input",ExpressionUUID->"6e1f7b61-0335-40d3-8e23-502a007b27be"],
Cell[24668, 692, 740, 16, 70, "Output",ExpressionUUID->"e845fd98-2e57-41ec-94a5-c9a1b6e89bf7"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25457, 714, 1244, 31, 70, "ExampleSection",ExpressionUUID->"defb11ad-7cbe-4b81-8df7-041bdb952e35",
 CellID->2123667759],
Cell[26704, 747, 339, 8, 70, "ExampleText",ExpressionUUID->"6923c6d8-f101-4070-8977-c816d988ad4b"],
Cell[CellGroupData[{
Cell[27068, 759, 504, 12, 70, "Input",ExpressionUUID->"ffd02997-6fac-437a-beb0-72407f9d8f3f"],
Cell[27575, 773, 158, 3, 70, "Output",ExpressionUUID->"46679002-5c87-43be-96ce-20abbf171533"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27782, 782, 1237, 31, 70, "ExampleSection",ExpressionUUID->"d0344edb-b51d-4508-aff9-20442c0b7153",
 CellID->1305812373],
Cell[29022, 815, 601, 13, 70, "ExampleText",ExpressionUUID->"ef5088cb-cfd7-4d1f-99f8-f6831efe1034"],
Cell[CellGroupData[{
Cell[29648, 832, 204, 3, 70, "Input",ExpressionUUID->"7b6b7214-e1ab-4b69-a9d2-b1d189349217"],
Cell[29855, 837, 111, 1, 70, "Output",ExpressionUUID->"cd7e4d19-2a65-48e1-a464-5811b3935dd9"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[30005, 843, 2451, 65, 70, "SeeAlsoSection",ExpressionUUID->"07ac3132-f84f-40f7-8cf8-964752067a2a"],
Cell[32459, 910, 694, 19, 70, "MoreAboutSection",ExpressionUUID->"fb3e241e-9a8c-4a04-bc5a-1900d033b8d8"],
Cell[33156, 931, 78, 0, 70, "FooterCell",ExpressionUUID->"e5bc4b4e-cd03-4122-9b67-5b28ba99f046"]
}
]
*)

(* End of internal cache information *)

