(* 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[     53013,       1399]
NotebookOptionsPosition[     43118,       1218]
NotebookOutlinePosition[     45488,       1272]
CellTagsIndexPosition[     45410,       1267]
WindowTitle->SearchLedgerRecord
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->
           "ddab9f5d-142c-4657-98be-0d66156179c7"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "51a326b7-7ec1-42d7-887b-54b813c74817"],
        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->
           "289d805b-16f7-4bfd-a871-13e3508f0a83"]
         }],ExpressionUUID->"1aaf6634-d191-4b25-b6f5-5d52865f7a85"],
         StripOnInput->False],{
        StyleBox["\"SearchLedger\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SearchLedger"], 
         StyleBox[
          "\"SearchLedgerTestedQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SearchLedgerTestedQ"], 
         StyleBox[
          "\"SearchLedgerFilter\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SearchLedgerFilter"], 
         StyleBox[
          "\"CandidateFingerprint\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CandidateFingerprint"], 
         StyleBox[
          "\"CandidateSweep\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CandidateSweep"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "d444de34-83ed-412a-b37b-eebe9bf7b80b"],
     "\[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->
           "8507ac30-c181-4963-80ff-0317e6a0e29e"]
         }],ExpressionUUID->"ea04a62b-1bf7-46d1-9243-216ab909fc0e"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c36e7523-0266-4da9-a591-3d95416a5e76"],
     "\[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->
           "91b94ea7-bf0e-428c-ba28-a719e7c7db05"]
         }],ExpressionUUID->"55f8365c-267e-4359-8e79-65ffc05ff3f5"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/SearchLedgerRecord\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/SearchLedgerRecord"], 
         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/SearchLedgerRecord.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/SearchLedgerRecord" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8fbf42cf-68bb-4228-8153-a70f98745b4e"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "6b3b2ba9-419f-46fb-979f-39517711fc6c"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"4f8923a5-4252-42f9-83da-89a4444b0288"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"85e47796-e7fa-44ab-86ad-7909100dc293"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "SearchLedgerRecord", "ObjectName",ExpressionUUID->
      "4561513a-adbc-424e-a788-937fff635f54"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"acb74233-e28a-4f62-8185-e97cb5cf7b83"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "ded3a9f9-d0d8-47b7-900a-ff66e48a8508"]
    }],ExpressionUUID->"8e168239-f512-4b9b-9497-682b8faf483e"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"49e426e7-9f22-45ea-8937-\
f658df45cfe8"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SearchLedgerRecord"]], 
         "paclet:WolframInstitute/Puzzles/ref/SearchLedgerRecord", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["ledger", "TI"], ",", 
        " ", "\"\<\!\(\*StyleBox[\"target\", \"TI\"]\)\>\"", ",", 
        " ", "\"\<\!\(\*StyleBox[\"candidate\", \"TI\"]\)\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ed940f97-9b38-4d81-8510-4371954f67c7"],
     "\[LineSeparator]",
     "records that a candidate has been tested against a target and writes \
the ledger to disk."
    }],ExpressionUUID->"495d4471-e940-4a4b-933c-f13bdbc5c6b7"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SearchLedgerRecord"]], 
         "paclet:WolframInstitute/Puzzles/ref/SearchLedgerRecord", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["ledger", "TI"], ",", 
        " ", "\"\<\!\(\*StyleBox[\"target\", \"TI\"]\)\>\"", ",", " ", 
        RowBox[{"{", 
         RowBox[{
          StyleBox["cand\:2081", "TI"], ",", " ", 
          StyleBox["cand\:2082", "TI"], ",", " ", "\[Ellipsis]"}], "}"}]}], 
       "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d78f3c8d-0bb9-43ea-ab96-be4d4d035d4e"],
     "\[LineSeparator]",
     "records a batch of candidates in one write, which is the form a sweep \
uses."
    }],ExpressionUUID->"7c1c3045-0a34-4cf1-8d20-4a46d86812d7"]}
  }]], "Usage",ExpressionUUID->"a89e2977-549c-44e1-beff-8076c0e82412"]
}, 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->"415abc6c-5e72-43b9-b9ad-34a42c8e7cd8"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"eabdf1ba-8844-4b28-9900-d83ee1c05c01"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "f7b7921d-42c4-4c3d-86fd-28f589a8d508"]],ExpressionUUID->"ca6ed8e7-91c7-\
43b0-87d8-aba07657e013"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->808184475,ExpressionUUID->"8ac11713-1e07-4e73-bc6f-356790f29c68"],

Cell[TextData[{
 "The result is an Association with the ",
 Cell[BoxData["\<\"Target\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "fe23009c-c9fa-4015-91f8-eea15de412fa"],
 ", the number ",
 Cell[BoxData["\<\"Recorded\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8f833e69-caa0-490e-895d-80b8e8bb4edd"],
 " of candidates that were not already present, and the resulting ",
 Cell[BoxData["\<\"Total\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "39889f70-912b-4d5f-8bb7-40766842072c"],
 " for that target."
}], "Notes",ExpressionUUID->"02493135-4f35-440f-b6c0-061b6cc02153"],

Cell[TextData[{
 "Only the ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CandidateFingerprint"]], 
    "paclet:WolframInstitute/Puzzles/ref/CandidateFingerprint", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "46993889-24e3-4ee3-a825-58c431366008"],
 " of each candidate is written; the candidate itself never reaches disk."
}], "Notes",ExpressionUUID->"38a8b9e8-cb3a-4061-856c-1cf43d67db80"],

Cell["\<\
Repeats within a batch, and candidates the target already holds, are counted \
once and written once.\
\>", "Notes",ExpressionUUID->"8c7a5177-4556-41c8-88e0-3cbe3c3adc58"],

Cell[TextData[{
 "A batch is one append to the target's JSON Lines store and one rewrite of \
the small ",
 Cell["ledger.json", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "6842a2a8-81f6-411d-94dd-5d1d4183429c"],
 " index, so recording a thousand candidates costs the same disk work as \
recording one."
}], "Notes",ExpressionUUID->"564a309d-4a4e-4a03-89c8-e31d36d5fa8f"],

Cell["\<\
Candidates are strings or byte arrays. A batch holding anything else matches \
no definition and the call is returned unevaluated.\
\>", "Notes",ExpressionUUID->"dea0310c-c784-438c-b593-711eb65eb76c"],

Cell[TextData[{
 "Recording is what a candidate ",
 StyleBox["having been tested", "TI"],
 " means, so the caller records after the oracle has answered, not before. ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CandidateSweep"]], 
    "paclet:WolframInstitute/Puzzles/ref/CandidateSweep", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e46c62c4-92e9-410f-a331-a581922354fb"],
 " with a ",
 Cell[BoxData["\<\"Ledger\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ae82b647-ac45-4e10-859f-82d14df29347"],
 " does this per chunk."
}], "Notes",ExpressionUUID->"f8ccdf67-7ec0-41a3-a4a9-b0350de4ba86"],

Cell[TextData[{
 "A ledger that cannot be written gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1f13dc23-2b44-447f-8378-34288074f8cb"],
 "."
}], "Notes",ExpressionUUID->"ef247d48-7a5b-41c3-91b2-41d495fa01e2"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"71624280-76fd-4f92-884d-6a187b8f04f8"],

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->"6dd1d4e1-ef09-42c2-b52c-03ff77a5b00a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"fddb0da6-6c00-42a8-be04-a45649a66e10"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "79cb14cd-eee9-496e-97ee-5ae44822b0aa"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->322404050,ExpressionUUID->"31a1ba88-119c-4950-9cc6-5d4160415eac"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"a20427fc-bcda-40f8-a035-07ff78c8e769"],

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->
  "d82a700f-9da2-44db-814c-866d9fff6e91"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"cdc511c6-3ebf-4d10-874f-2bfab4e06ee5"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "ef39e733-a9e0-4a08-ae21-bbbfe6a1c309"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->543626969,ExpressionUUID->"8b13b24c-4320-486a-90ee-2e9998ead5b8"],

Cell["Recording a batch and seeing how much of it was new:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"d8b74a18-3bf6-4e5d-9fa9-b426f3a50711"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ledger", " ", "=", " ", 
     RowBox[{"SearchLedger", "[", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}], 
        "}"}], "]"}], "]"}]}], "}"}], ",", "\n", "\t", 
   RowBox[{"Normal", "[", 
    RowBox[{"SearchLedgerRecord", "[", 
     RowBox[{
     "ledger", ",", " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"\"\<hunter2\>\"", ",", " ", "\"\<letmein\>\"", ",", 
        " ", "\"\<swordfish\>\""}], "}"}]}], "]"}], "]"}]}], "\n", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9a6b677f-24f4-49b3-981a-0be38b393aa5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Target\"\>", 
    "\[Rule]", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"}], ",", 
   RowBox[{"\<\"Recorded\"\>", "\[Rule]", "3"}], ",", 
   RowBox[{"\<\"Total\"\>", "\[Rule]", "3"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5d9f6114-704c-46bc-9b34-af4a9371beda"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "54f3b6ef-fed8-489a-ac9e-94542f12f034"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c0496c9d-f93e-4a6e-\
b1d9-271cdba66b68"],

Cell["Recording one candidate:", "ExampleText",ExpressionUUID->"aeecd9e2-898c-44b9-85c3-e5ff18e91547"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ledger", " ", "=", " ", 
     RowBox[{"SearchLedger", "[", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}], 
        "}"}], "]"}], "]"}]}], "}"}], ",", "\n", "\t", 
   RowBox[{"Normal", "[", 
    RowBox[{"SearchLedgerRecord", "[", 
     RowBox[{
     "ledger", ",", " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", 
      " ", "\"\<hunter2\>\""}], "]"}], "]"}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"23e0ce8c-d4eb-48ca-9b96-e6d78bd161d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Target\"\>", 
    "\[Rule]", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"}], ",", 
   RowBox[{"\<\"Recorded\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"Total\"\>", "\[Rule]", "1"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6aa0d5cc-5a8c-47b7-be9c-b1965343b9f9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f229732a-6717-4fbc-8a3d-28c2f5bf72f5"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6fad88d3-6ee3-4264-\
a543-9b9ac4a16d36"],

Cell["Only what is new is counted:", "ExampleText",ExpressionUUID->"d8ebf016-c82a-41ad-b4ba-9ac328f242dc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ledger", " ", "=", " ", 
      RowBox[{"SearchLedger", "[", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}],
          "}"}], "]"}], "]"}]}], ",", " ", 
     RowBox[{
     "target", " ", "=", 
      " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}]}], "}"}], ",", "\n",
    "\t", 
   RowBox[{
    RowBox[{"SearchLedgerRecord", "[", 
     RowBox[{"ledger", ",", " ", "target", ",", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<hunter2\>\"", ",", " ", "\"\<letmein\>\""}], "}"}]}], 
     "]"}], ";", "\n", "\t", 
    RowBox[{"Normal", "[", 
     RowBox[{"SearchLedgerRecord", "[", 
      RowBox[{"ledger", ",", " ", "target", ",", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<letmein\>\"", ",", " ", "\"\<swordfish\>\""}], "}"}]}], 
      "]"}], "]"}]}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"95d42e8d-8b2f-4125-bc41-21ccd7d27af2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Target\"\>", 
    "\[Rule]", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"}], ",", 
   RowBox[{"\<\"Recorded\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"Total\"\>", "\[Rule]", "3"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2c4ba2aa-4181-415c-8313-789ef43c9d2f"]
}, 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->
  "8792381a-c52b-477c-8f32-258ba0807bc3"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"f857dd85-7aa4-4a5c-812f-4a0d19c37255"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "3d602d92-baeb-440a-bf57-9e0d7fce15f4"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"86d7bccd-7c84-466e-9866-ec4d9cc9f09f"],

Cell["Repeats inside one batch are recorded once:", "ExampleText",ExpressionUUID->"0746c2cc-0236-4577-abf4-19f6187df672"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ledger", " ", "=", " ", 
     RowBox[{"SearchLedger", "[", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}], 
        "}"}], "]"}], "]"}]}], "}"}], ",", "\n", "\t", 
   RowBox[{"Normal", "[", 
    RowBox[{"SearchLedgerRecord", "[", 
     RowBox[{
     "ledger", ",", " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"\"\<hunter2\>\"", ",", " ", "\"\<hunter2\>\"", ",", 
        " ", "\"\<hunter2\>\""}], "}"}]}], "]"}], "]"}]}], "\n", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"35349b77-5fc4-49d6-915b-05b67893c1f8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Target\"\>", 
    "\[Rule]", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"}], ",", 
   RowBox[{"\<\"Recorded\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"Total\"\>", "\[Rule]", "1"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7968158e-e438-413c-9d04-732507afda4e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "94b9092b-f56c-4e0c-9014-41d4e25f28e4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"8d043ae3-fbc3-4432-\
9123-e0c9470c50fb"],

Cell["An empty batch records nothing:", "ExampleText",ExpressionUUID->"6a186de0-a345-4748-bea5-991b5b7d3d73"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ledger", " ", "=", " ", 
     RowBox[{"SearchLedger", "[", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}], 
        "}"}], "]"}], "]"}]}], "}"}], ",", "\n", "\t", 
   RowBox[{"Normal", "[", 
    RowBox[{"SearchLedgerRecord", "[", 
     RowBox[{
     "ledger", ",", " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", 
      " ", 
      RowBox[{"{", "}"}]}], "]"}], "]"}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"269a23b1-da49-449d-88e9-8267be579148"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Target\"\>", 
    "\[Rule]", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"}], ",", 
   RowBox[{"\<\"Recorded\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"Total\"\>", "\[Rule]", "0"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2c372d1e-058b-43ea-bb48-e6ef8fae311e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b9037986-60f6-4a04-9c62-39624c13a894"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b1627a08-7943-4ff1-\
9026-b036a276063b"],

Cell["\<\
Byte arrays are candidates too, for a raw key rather than a passphrase:\
\>", "ExampleText",ExpressionUUID->"a8c865b2-4f5f-46a8-9520-0052bf07fc2e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ledger", " ", "=", " ", 
     RowBox[{"SearchLedger", "[", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}], 
        "}"}], "]"}], "]"}]}], "}"}], ",", "\n", "\t", 
   RowBox[{"Normal", "[", 
    RowBox[{"SearchLedgerRecord", "[", 
     RowBox[{
     "ledger", ",", " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ByteArray", "[", 
         RowBox[{"{", 
          RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], "]"}], ",", " ", 
        RowBox[{"ByteArray", "[", 
         RowBox[{"{", 
          RowBox[{"4", ",", " ", "5", ",", " ", "6"}], "}"}], "]"}]}], 
       "}"}]}], "]"}], "]"}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5463bd7d-8889-41d0-846c-b6413b64eadc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Target\"\>", 
    "\[Rule]", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"}], ",", 
   RowBox[{"\<\"Recorded\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"Total\"\>", "\[Rule]", "2"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8bd191cf-ffa5-4a3d-8bc8-f429756d2369"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cdc7f00a-ffb1-4746-a6a1-5521e40903f3"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"3f82e413-408f-4f24-\
a35d-db4daf1c35e3"],

Cell["A large batch is one append:", "ExampleText",ExpressionUUID->"697d7264-077c-4fe9-9834-7594e7663ace"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ledger", " ", "=", " ", 
      RowBox[{"SearchLedger", "[", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}],
          "}"}], "]"}], "]"}]}], ",", " ", 
     RowBox[{
     "target", " ", "=", 
      " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}]}], "}"}], ",", "\n",
    "\t", 
   RowBox[{"Lookup", "[", 
    RowBox[{
     RowBox[{"SearchLedgerRecord", "[", 
      RowBox[{"ledger", ",", " ", "target", ",", " ", 
       RowBox[{"Map", "[", 
        RowBox[{"IntegerString", ",", " ", 
         RowBox[{"Range", "[", "2000", "]"}]}], "]"}]}], "]"}], ",", 
     " ", "\"\<Total\>\""}], "]"}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5879f825-0bf3-42e0-8df6-8e5877254d88"],

Cell[BoxData["2000"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e8998592-3bb9-4d6e-9e24-59a0630c0613"]
}, 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->
  "1e4450ef-4526-47e9-9b3d-95b31e6a0005"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"87295311-ff72-46a9-ab32-7ab344c5dc72"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "f114e992-4e98-499f-a428-cad77993b952"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"cab62cd0-989f-40bf-a719-23a51960130c"],

Cell[TextData[{
 "What is recorded is what ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["SearchLedgerTestedQ"]], 
    "paclet:WolframInstitute/Puzzles/ref/SearchLedgerTestedQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "99414cc4-d247-4b07-a085-5c9042b5af64"],
 " then answers True for:"
}], "ExampleText",ExpressionUUID->"08cde1fd-0d6b-4c22-936c-a7e4f5807806"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ledger", " ", "=", " ", 
      RowBox[{"SearchLedger", "[", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}],
          "}"}], "]"}], "]"}]}], ",", " ", 
     RowBox[{
     "target", " ", "=", 
      " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}]}], "}"}], ",", "\n",
    "\t", 
   RowBox[{
    RowBox[{"SearchLedgerRecord", "[", 
     RowBox[{"ledger", ",", " ", "target", ",", " ", 
      RowBox[{"{", "\"\<hunter2\>\"", "}"}]}], "]"}], ";", "\n", "\t", 
    RowBox[{"SearchLedgerTestedQ", "[", 
     RowBox[{"ledger", ",", " ", "target", ",", " ", "\"\<hunter2\>\""}], 
     "]"}]}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3c34a898-4cf1-4c97-ab3d-bd8b58c9f07a"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"59c0ef67-a4f7-4ae5-be31-3934bdffdef1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2a409483-57c7-4b6f-9e08-3b72ae69d400"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"058e1419-2479-4191-\
b9de-584cf509c2a1"],

Cell[TextData[{
 "And what ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["SearchLedgerFilter"]], 
    "paclet:WolframInstitute/Puzzles/ref/SearchLedgerFilter", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a880b71b-ee17-4996-b0c4-30fd01cc9ffd"],
 " then drops:"
}], "ExampleText",ExpressionUUID->"12bf6335-5c1d-4ca9-992f-7251f0fec63d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ledger", " ", "=", " ", 
      RowBox[{"SearchLedger", "[", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}],
          "}"}], "]"}], "]"}]}], ",", " ", 
     RowBox[{
     "target", " ", "=", 
      " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}]}], "}"}], ",", "\n",
    "\t", 
   RowBox[{
    RowBox[{"SearchLedgerRecord", "[", 
     RowBox[{"ledger", ",", " ", "target", ",", " ", 
      RowBox[{"{", "\"\<hunter2\>\"", "}"}]}], "]"}], ";", "\n", "\t", 
    RowBox[{"SearchLedgerFilter", "[", 
     RowBox[{"ledger", ",", " ", "target", ",", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<hunter2\>\"", ",", " ", "\"\<letmein\>\""}], "}"}]}], 
     "]"}]}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8dd9f660-e6c5-438b-9b70-54a8baebd709"],

Cell[BoxData[
 RowBox[{"{", "\<\"letmein\"\>", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a8e9a46b-dd5f-4a74-ae89-d3864de63773"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "24813d6a-51a8-46ec-86ff-e88c3da4b511"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"040c79f2-c6d2-442d-\
a9ad-dbe26a91d133"],

Cell["\<\
The store holds fingerprints, so the recorded candidate cannot be read back \
out of it:\
\>", "ExampleText",ExpressionUUID->"95002bdd-9048-4494-9081-caa425f116c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ledger", " ", "=", " ", 
      RowBox[{"SearchLedger", "[", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}],
          "}"}], "]"}], "]"}]}], ",", " ", 
     RowBox[{
     "target", " ", "=", 
      " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}]}], "}"}], ",", "\n",
    "\t", 
   RowBox[{
    RowBox[{"SearchLedgerRecord", "[", 
     RowBox[{"ledger", ",", " ", "target", ",", " ", 
      RowBox[{"{", "\"\<hunter2\>\"", "}"}]}], "]"}], ";", "\n", "\t", 
    RowBox[{
     RowBox[{"ledger", "[", 
      RowBox[{"\"\<Fingerprints\>\"", ",", " ", "target"}], "]"}], " ", "===",
      " ", 
     RowBox[{"{", 
      RowBox[{"CandidateFingerprint", "[", "\"\<hunter2\>\"", "]"}], 
      "}"}]}]}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a7bdd2b0-cce0-4cb3-8338-2142a1d5808b"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8b5d670a-27fd-4cc5-b854-e8d78c43a27f"]
}, 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->
  "950e8172-b2d0-4efa-ae64-652a195fbe99"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"5c2be011-e5b4-4008-8f84-263a59f6aff4"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "01956f2d-232a-49c5-bf5b-29ea49483947"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"6c4757dd-3bf8-4093-8426-8d0e36974d8b"],

Cell["\<\
A batch holding something that is neither a string nor a byte array matches \
no definition:\
\>", "ExampleText",ExpressionUUID->"753f7c39-bb36-4cbe-83c5-f9339a3af673"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ledger", " ", "=", " ", 
     RowBox[{"SearchLedger", "[", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CreateDirectory", "[", "]"}], ",", " ", "\"\<ledger\>\""}], 
        "}"}], "]"}], "]"}]}], "}"}], ",", "\n", "\t", 
   RowBox[{"SearchLedgerRecord", "[", 
    RowBox[{
    "ledger", ",", " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}]}], "]"}]}], "\n", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"255eefc7-98f2-46a9-a646-0ad0c0891f01"],

Cell[BoxData[
 RowBox[{"SearchLedgerRecord", "[", 
  RowBox[{
   InterpretationBox[
    TemplateBox[{"\"SearchLedger[\"", "\"ledger\"", "\"]\""},
     "RowDefault"],
    WolframInstitute`Puzzles`SearchLedger[<|
     "Directory" -> 
      "/private/var/folders/5x/lyq7cw110cx_zr1zb3zr63gm0000gn/T/m000046788461/\
ledger"|>]], ",", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5da7c6c0-9c0d-4655-90d9-5ed1b1bd713c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "06124565-965b-4c35-89d3-ed2717983410"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"24781cd3-a184-46d5-\
9320-e5e1df0527e9"],

Cell["The first argument must be a ledger:", "ExampleText",ExpressionUUID->"597d75a8-c612-499c-91b2-5d837ef77eaa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SearchLedgerRecord", "[", 
  RowBox[{"\"\</tmp/ledger\>\"", ",", 
   " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
   RowBox[{"{", "\"\<hunter2\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d6598bae-5523-4c34-8c3a-6ab9864822ad"],

Cell[BoxData[
 RowBox[{"SearchLedgerRecord", "[", 
  RowBox[{"\<\"/tmp/ledger\"\>", 
   ",", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>", ",", 
   RowBox[{"{", "\<\"hunter2\"\>", "}"}]}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ff583bf2-ed89-425f-9b3d-165e95badc9d"]
}, Open  ]]
}, 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["SearchLedger"]], 
           "paclet:WolframInstitute/Puzzles/ref/SearchLedger", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c32bd467-f4a1-46ae-8490-e96a4b08a55a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["SearchLedgerTestedQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/SearchLedgerTestedQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "45304ba0-b0e9-40f5-80f6-2ec900a71e08"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["SearchLedgerFilter"]], 
           "paclet:WolframInstitute/Puzzles/ref/SearchLedgerFilter", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "0dd06c7f-01b4-4e2e-936b-f92739cb5994"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["CandidateFingerprint"]], 
           "paclet:WolframInstitute/Puzzles/ref/CandidateFingerprint", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8e52fbce-6b4c-4ca2-b346-36dc6c58b745"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["CandidateSweep"]], 
           "paclet:WolframInstitute/Puzzles/ref/CandidateSweep", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "aba3dee4-a7ce-4519-b1b4-7e48e820306d"]
       }], "SeeAlso",ExpressionUUID->"e66149fd-103b-4daf-ad56-f67162406730"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"a7c96499-0a8f-4c7c-8b70-\
86d58223895a"],

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["Search"]], 
           "paclet:WolframInstitute/Puzzles/guide/Search"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "65507f0e-d69a-4ef2-a6d3-6fe870a59ba3"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"40474534-f760-43f3-8198-\
a79760291cbf"],

Cell[" ", "FooterCell",ExpressionUUID->"b3ab9f0f-daaf-4cd1-8397-d80c43d4e92d"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"SearchLedgerRecord",
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, 54.035690}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[SearchLedgerRecord, paclet : \
WolframInstitute/Puzzles/ref/SearchLedgerRecord, WolframInstitute/Puzzles \
Package Symbol][ledger,  target,  candidate] records that a candidate has \
been tested against a target and writes the ledger to disk. \
PackageLink[SearchLedgerRecord, paclet : \
WolframInstitute/Puzzles/ref/SearchLedgerRecord, WolframInstitute/Puzzles \
Package Symbol][ledger,  target, {cand\:2081, cand\:2082, ...}] records a \
batch of candidates in one write, which is the form a sweep uses.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "SearchLedgerRecord", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "SearchLedgerRecord", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/SearchLedgerRecord", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"97787a62-0bf2-4ebf-86e0-adf3db480813"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[16848, 451, 162, 2, 70, "ExampleText",ExpressionUUID->"d8b74a18-3bf6-4e5d-9fa9-b426f3a50711",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 45253, 1261}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[586, 21, 5845, 142, 70, "AnchorBarGrid",ExpressionUUID->"4f8923a5-4252-42f9-83da-89a4444b0288",
 CellID->1],
Cell[6434, 165, 107, 0, 70, "ContextNameCell",ExpressionUUID->"85e47796-e7fa-44ab-86ad-7909100dc293"],
Cell[CellGroupData[{
Cell[6566, 169, 561, 14, 70, "ObjectNameGrid",ExpressionUUID->"49e426e7-9f22-45ea-8937-f658df45cfe8"],
Cell[7130, 185, 1916, 48, 70, "Usage",ExpressionUUID->"a89e2977-549c-44e1-beff-8076c0e82412"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9083, 238, 1443, 34, 70, "NotesSection",ExpressionUUID->"8ac11713-1e07-4e73-bc6f-356790f29c68",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->808184475],
Cell[10529, 274, 742, 17, 70, "Notes",ExpressionUUID->"02493135-4f35-440f-b6c0-061b6cc02153"],
Cell[11274, 293, 554, 14, 70, "Notes",ExpressionUUID->"38a8b9e8-cb3a-4061-856c-1cf43d67db80"],
Cell[11831, 309, 181, 3, 70, "Notes",ExpressionUUID->"8c7a5177-4556-41c8-88e0-3cbe3c3adc58"],
Cell[12015, 314, 392, 8, 70, "Notes",ExpressionUUID->"564a309d-4a4e-4a03-89c8-e31d36d5fa8f"],
Cell[12410, 324, 210, 3, 70, "Notes",ExpressionUUID->"dea0310c-c784-438c-b593-711eb65eb76c"],
Cell[12623, 329, 812, 21, 70, "Notes",ExpressionUUID->"f8ccdf67-7ec0-41a3-a4a9-b0350de4ba86"],
Cell[13438, 352, 407, 12, 70, "Notes",ExpressionUUID->"ef247d48-7a5b-41c3-91b2-41d495fa01e2"]
}, Closed]],
Cell[13860, 367, 80, 0, 70, "PageDelimiter",ExpressionUUID->"71624280-76fd-4f92-884d-6a187b8f04f8"],
Cell[CellGroupData[{
Cell[13965, 371, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"31a1ba88-119c-4950-9cc6-5d4160415eac",
 CellID->322404050],
Cell[15369, 410, 216, 4, 70, "Input",ExpressionUUID->"a20427fc-bcda-40f8-a035-07ff78c8e769",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[15610, 418, 1235, 31, 70, "ExampleSection",ExpressionUUID->"8b13b24c-4320-486a-90ee-2e9998ead5b8",
 CellID->543626969],
Cell[16848, 451, 162, 2, 70, "ExampleText",ExpressionUUID->"d8b74a18-3bf6-4e5d-9fa9-b426f3a50711",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[17035, 457, 821, 21, 70, "Input",ExpressionUUID->"9a6b677f-24f4-49b3-981a-0be38b393aa5"],
Cell[17859, 480, 338, 7, 70, "Output",ExpressionUUID->"5d9f6114-704c-46bc-9b34-af4a9371beda"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18234, 492, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c0496c9d-f93e-4a6e-b1d9-271cdba66b68"],
Cell[18461, 499, 102, 0, 70, "ExampleText",ExpressionUUID->"aeecd9e2-898c-44b9-85c3-e5ff18e91547"],
Cell[CellGroupData[{
Cell[18588, 503, 704, 17, 70, "Input",ExpressionUUID->"23e0ce8c-d4eb-48ca-9b96-e6d78bd161d0"],
Cell[19295, 522, 338, 7, 70, "Output",ExpressionUUID->"6aa0d5cc-5a8c-47b7-be9c-b1965343b9f9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19682, 535, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6fad88d3-6ee3-4264-a543-9b9ac4a16d36"],
Cell[19909, 542, 106, 0, 70, "ExampleText",ExpressionUUID->"d8ebf016-c82a-41ad-b4ba-9ac328f242dc"],
Cell[CellGroupData[{
Cell[20040, 546, 1112, 29, 70, "Input",ExpressionUUID->"95d42e8d-8b2f-4125-bc41-21ccd7d27af2"],
Cell[21155, 577, 338, 7, 70, "Output",ExpressionUUID->"2c4ba2aa-4181-415c-8313-789ef43c9d2f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21554, 591, 1227, 31, 70, "ExampleSection",ExpressionUUID->"86d7bccd-7c84-466e-9866-ec4d9cc9f09f",
 CellID->1293636265],
Cell[22784, 624, 121, 0, 70, "ExampleText",ExpressionUUID->"0746c2cc-0236-4577-abf4-19f6187df672"],
Cell[CellGroupData[{
Cell[22930, 628, 819, 21, 70, "Input",ExpressionUUID->"35349b77-5fc4-49d6-915b-05b67893c1f8"],
Cell[23752, 651, 338, 7, 70, "Output",ExpressionUUID->"7968158e-e438-413c-9d04-732507afda4e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24127, 663, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"8d043ae3-fbc3-4432-9123-e0c9470c50fb"],
Cell[24354, 670, 109, 0, 70, "ExampleText",ExpressionUUID->"6a186de0-a345-4748-bea5-991b5b7d3d73"],
Cell[CellGroupData[{
Cell[24488, 674, 712, 18, 70, "Input",ExpressionUUID->"269a23b1-da49-449d-88e9-8267be579148"],
Cell[25203, 694, 338, 7, 70, "Output",ExpressionUUID->"2c372d1e-058b-43ea-bb48-e6ef8fae311e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25590, 707, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b1627a08-7943-4ff1-9026-b036a276063b"],
Cell[25817, 714, 157, 2, 70, "ExampleText",ExpressionUUID->"a8c865b2-4f5f-46a8-9520-0052bf07fc2e"],
Cell[CellGroupData[{
Cell[25999, 720, 1004, 26, 70, "Input",ExpressionUUID->"5463bd7d-8889-41d0-846c-b6413b64eadc"],
Cell[27006, 748, 338, 7, 70, "Output",ExpressionUUID->"8bd191cf-ffa5-4a3d-8bc8-f429756d2369"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27393, 761, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"3f82e413-408f-4f24-a35d-db4daf1c35e3"],
Cell[27620, 768, 106, 0, 70, "ExampleText",ExpressionUUID->"697d7264-077c-4fe9-9834-7594e7663ace"],
Cell[CellGroupData[{
Cell[27751, 772, 950, 25, 70, "Input",ExpressionUUID->"5879f825-0bf3-42e0-8df6-8e5877254d88"],
Cell[28704, 799, 110, 1, 70, "Output",ExpressionUUID->"e8998592-3bb9-4d6e-9e24-59a0630c0613"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28875, 807, 1244, 31, 70, "ExampleSection",ExpressionUUID->"cab62cd0-989f-40bf-a719-23a51960130c",
 CellID->2123667759],
Cell[30122, 840, 526, 14, 70, "ExampleText",ExpressionUUID->"08cde1fd-0d6b-4c22-936c-a7e4f5807806"],
Cell[CellGroupData[{
Cell[30673, 858, 944, 24, 70, "Input",ExpressionUUID->"3c34a898-4cf1-4c97-ab3d-bd8b58c9f07a"],
Cell[31620, 884, 110, 1, 70, "Output",ExpressionUUID->"59c0ef67-a4f7-4ae5-be31-3934bdffdef1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31767, 890, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"058e1419-2479-4191-b9de-584cf509c2a1"],
Cell[31994, 897, 497, 14, 70, "ExampleText",ExpressionUUID->"12bf6335-5c1d-4ca9-992f-7251f0fec63d"],
Cell[CellGroupData[{
Cell[32516, 915, 1017, 26, 70, "Input",ExpressionUUID->"8dd9f660-e6c5-438b-9b70-54a8baebd709"],
Cell[33536, 943, 143, 2, 70, "Output",ExpressionUUID->"a8e9a46b-dd5f-4a74-ae89-d3864de63773"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33728, 951, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"040c79f2-c6d2-442d-a9ad-dbe26a91d133"],
Cell[33955, 958, 174, 3, 70, "ExampleText",ExpressionUUID->"95002bdd-9048-4494-9081-caa425f116c6"],
Cell[CellGroupData[{
Cell[34154, 965, 1053, 28, 70, "Input",ExpressionUUID->"a7bdd2b0-cce0-4cb3-8338-2142a1d5808b"],
Cell[35210, 995, 110, 1, 70, "Output",ExpressionUUID->"8b5d670a-27fd-4cc5-b854-e8d78c43a27f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[35381, 1003, 1237, 31, 70, "ExampleSection",ExpressionUUID->"6c4757dd-3bf8-4093-8426-8d0e36974d8b",
 CellID->1305812373],
Cell[36621, 1036, 178, 3, 70, "ExampleText",ExpressionUUID->"753f7c39-bb36-4cbe-83c5-f9339a3af673"],
Cell[CellGroupData[{
Cell[36824, 1043, 728, 19, 70, "Input",ExpressionUUID->"255eefc7-98f2-46a9-a646-0ad0c0891f01"],
Cell[37555, 1064, 543, 12, 70, "Output",ExpressionUUID->"5da7c6c0-9c0d-4655-90d9-5ed1b1bd713c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38135, 1081, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"24781cd3-a184-46d5-9320-e5e1df0527e9"],
Cell[38362, 1088, 114, 0, 70, "ExampleText",ExpressionUUID->"597d75a8-c612-499c-91b2-5d837ef77eaa"],
Cell[CellGroupData[{
Cell[38501, 1092, 342, 6, 70, "Input",ExpressionUUID->"d6598bae-5523-4c34-8c3a-6ab9864822ad"],
Cell[38846, 1100, 285, 5, 70, "Output",ExpressionUUID->"ff583bf2-ed89-425f-9b3d-165e95badc9d"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[39182, 1111, 3156, 82, 70, "SeeAlsoSection",ExpressionUUID->"a7c96499-0a8f-4c7c-8b70-86d58223895a"],
Cell[42341, 1195, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"40474534-f760-43f3-8198-a79760291cbf"],
Cell[43036, 1216, 78, 0, 70, "FooterCell",ExpressionUUID->"b3ab9f0f-daaf-4cd1-8397-d80c43d4e92d"]
}
]
*)

(* End of internal cache information *)

