(* 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[     21771,        560]
NotebookOptionsPosition[     17758,        483]
NotebookOutlinePosition[     19807,        529]
CellTagsIndexPosition[     19764,        526]
WindowTitle->CipherPeriods
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->
           "323846ab-25e1-45e7-8ef6-adbdb283e96a"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "763a4429-488f-4b1e-a124-bca2adc8c544"],
        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->
           "76615060-c0af-42e2-b764-d5cf9f1ee144"]
         }],ExpressionUUID->"045e7f87-c99e-4a91-a26d-3bd4571bc34e"],
         StripOnInput->False],{
        StyleBox[
          "\"IndexOfCoincidence\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/IndexOfCoincidence"], 
         StyleBox[
          "\"VigenereSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereSolve"], 
         StyleBox[
          "\"EnglishNgramScore\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/EnglishNgramScore"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "1f16a507-7072-43b0-abf6-0cee0a2f65c3"],
     "\[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->
           "d454e549-af29-4a0c-9c09-4ca63fa2deb4"]
         }],ExpressionUUID->"e61a764c-1b74-41c6-a061-a6f5475e6ec2"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "2d728c8f-7cd6-462a-ae28-fc2d56cbdb65"],
     "\[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->
           "e41e49b6-71da-4e36-8766-71c018bec4fe"]
         }],ExpressionUUID->"8f4455ce-9631-4554-931a-f164becf9a62"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/CipherPeriods\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/CipherPeriods"], 
         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/CipherPeriods.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/CipherPeriods" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "4cd1e5eb-a3ab-4e4b-86f4-5c79bc0d0c38"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "911d5cc3-713d-4f77-9998-e1c88b695edb"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"460a04a2-f0a9-400f-93dc-55e97894401e"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"2310c8ff-2fba-450d-bfad-b7f5607060f6"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "CipherPeriods", "ObjectName",ExpressionUUID->
      "1decf95e-e990-47fd-854e-b2263a3fd3a4"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"6e1b2b85-ce26-4906-8339-3b7301767a28"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "e25e6ac2-ef67-457c-99a4-ff3aaee26a5f"]
    }],ExpressionUUID->"8d8b811b-af75-408d-a8f6-46f5fd8db272"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"19bec8db-7f58-431f-ab7d-\
ea24a0144de1"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["CipherPeriods"]], 
         "paclet:WolframInstitute/Puzzles/ref/CipherPeriods", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["text", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "39e1dff3-baa0-4bd6-9344-5d5630e1cfff"],
     "\[LineSeparator]",
     "gives, for each candidate period, an Association with the ",
     Cell[BoxData["\"\<Period\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "65788119-868f-42ff-a3f9-1a8b6d92ff89"],
     " and the mean ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["IndexOfCoincidence"]], 
        "paclet:WolframInstitute/Puzzles/ref/IndexOfCoincidence", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "472cb487-9956-48a2-82d6-f1a35d5cd399"],
     " ",
     Cell[BoxData["\"\<IC\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a1f44681-2c3b-4e24-b249-0bd02d9655b2"],
     " of its columns, sorted with the most English-like periods first."
    }],ExpressionUUID->"0d384497-1aaf-49e0-a1fa-14dd7a270c9b"]}
  }]], "Usage",ExpressionUUID->"61031b02-80e7-45c4-9469-d88ee9907251"]
}, 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->"3c43acf1-a94f-4471-8f48-ae7e865fa473"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"70ad387e-4c15-4732-a824-62cbf723251a"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "cbdaaadf-c0a6-4b3a-b2b1-860fadc78b67"]],ExpressionUUID->"6b8076ff-45a3-\
490c-8762-69fee8158d6f"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->21248650,ExpressionUUID->"62b93868-13e0-4ae9-a299-81e281077696"],

Cell[TextData[{
 "Writing the ciphertext in rows of width ",
 StyleBox["p", "TI"],
 " makes each column the output of a single alphabet whenever ",
 StyleBox["p", "TI"],
 " is the true period of a Vigenere/Quagmire cipher, so those columns read at \
English IC and ",
 StyleBox["p", "TI"],
 " rises to the top."
}], "Notes",ExpressionUUID->"da7df72f-438b-4732-8074-c22ad7eac0f6"],

Cell[TextData[{
 "Integer multiples of the true period also read at English IC, so they rank \
high too; the key length is the ",
 StyleBox["smallest", "TI"],
 " period whose IC jumps up."
}], "Notes",ExpressionUUID->"b9fccea5-6296-4ca5-a97f-fe791977f867"],

Cell[TextData[{
 "The option ",
 Cell[BoxData["\<\"MaxPeriod\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3cfbc5e3-fb0d-4fcf-a5d9-e119a4313523"],
 " (default ",
 Cell[BoxData["20"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a8060506-f3ae-41e2-af7f-866755e73909"],
 ") sets the largest period tried."
}], "Notes",ExpressionUUID->"aab0e76a-a2a0-42d3-a42d-a0dbc8ce9109"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"f6f2ce2c-72f0-4c71-8764-c5bad489c70b"],

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->"83a44578-afd6-47e1-8746-ac4ac50610a3"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b33f4f3f-6174-4ce2-89ca-7158b79e72e5"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "ff5097ad-062d-4664-b062-3137d5529828"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->643775148,ExpressionUUID->"8c8a2588-37c0-4850-a6b3-47542b8ddcbd"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"82f39fdd-2b19-4808-816d-efdd5a47999f"],

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->
  "d52fa3ef-d258-40e2-ada6-ff9725f5176e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"f8fb57ad-d379-4e7f-ad3d-30da9b7aaea5"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "1cae6b97-d172-4a4d-b55a-6e2481589949"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->906298850,ExpressionUUID->"0d6ab9ff-7c73-4432-8b2d-c4b9e79994a7"],

Cell["\<\
A period-6 key (SECRET) stands out as the top period, ahead of its multiples \
12 and 18:\
\>", "ExampleText",ExpressionUUID->"8459e2b7-ceca-4511-8b50-48916d4c4500"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "plain", " ", "=", 
   " ", "\"\<\
THEARCHIVISTOPENEDTHELEDGERANDREADTHATTHEGOLDENNEEDLEONCEUSEDTOBINDTHETAPESTRY\
HADBEENHIDDENINSIDETHEOLDESTVOLUMEWHERENOREADERWOULDEVERTHINKTOLOOKFORSUCHASMA\
LLANDORDINARYTHINGAMONGTHECRUMBLINGPAGESOFAFORGOTTENCATALOGUEKEPTINTHENORTHERN\
VAULTBEHINDTHEIRONDOOR\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"First", "[", 
   RowBox[{"CipherPeriods", "[", 
    RowBox[{"VigenereCipher", "[", 
     RowBox[{"plain", ",", " ", "\"\<SECRET\>\""}], "]"}], "]"}], "]"}], 
  "[", "\"\<Period\>\"", "]"}]}], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7794c61a-6d18-4769-bf94-d98dab60e877"],

Cell[BoxData["6"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8ac7d29e-0b43-42ba-be6d-f4de4a18c91e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["IndexOfCoincidence"]], 
           "paclet:WolframInstitute/Puzzles/ref/IndexOfCoincidence", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "4d958c43-cce3-4471-b7cf-120604696fa7"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["VigenereSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/VigenereSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d6f70ca7-dee6-41f5-b990-37a5ebde60d4"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["EnglishNgramScore"]], 
           "paclet:WolframInstitute/Puzzles/ref/EnglishNgramScore", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8b0855de-c458-4417-8cf8-42b7e3e74f87"]
       }], "SeeAlso",ExpressionUUID->"8d522389-0e7d-4142-9ce7-c762139a0c09"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"be035e68-5a49-4697-a9b8-\
27768829982e"],

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->
         "fe436324-4c4f-4420-92ae-11b04169f0bf"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"839975e8-a416-4ead-9c17-\
2e332d4ebf5a"],

Cell[" ", "FooterCell",ExpressionUUID->"d416f66a-8cc1-4d44-be9e-3ad95fef8e9b"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"CipherPeriods",
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, 31.872068}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[CipherPeriods,paclet : \
WolframInstitute/Puzzles/ref/CipherPeriods, WolframInstitute/Puzzles Package \
Symbol][text] gives, for each candidate period, an Association with the \
Period and the mean PackageLink[IndexOfCoincidence, paclet : \
WolframInstitute/Puzzles/ref/IndexOfCoincidence, WolframInstitute/Puzzles \
Package Symbol] IC of its columns, sorted with the most English-like periods \
first.", "synonyms" -> {}, "tabletags" -> {}, "title" -> "CipherPeriods", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "CipherPeriods", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/CipherPeriods", "WorkflowDockedCell" -> ""},
   "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"2fa0e872-60d4-4e00-b537-b8d2aa2b84e3"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[581, 21, 5426, 135, 70, "AnchorBarGrid",ExpressionUUID->"460a04a2-f0a9-400f-93dc-55e97894401e",
 CellID->1],
Cell[6010, 158, 107, 0, 70, "ContextNameCell",ExpressionUUID->"2310c8ff-2fba-450d-bfad-b7f5607060f6"],
Cell[CellGroupData[{
Cell[6142, 162, 556, 14, 70, "ObjectNameGrid",ExpressionUUID->"19bec8db-7f58-431f-ab7d-ea24a0144de1"],
Cell[6701, 178, 1614, 39, 70, "Usage",ExpressionUUID->"61031b02-80e7-45c4-9469-d88ee9907251"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8352, 222, 1442, 34, 70, "NotesSection",ExpressionUUID->"62b93868-13e0-4ae9-a299-81e281077696",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->21248650],
Cell[9797, 258, 379, 9, 70, "Notes",ExpressionUUID->"da7df72f-438b-4732-8074-c22ad7eac0f6"],
Cell[10179, 269, 256, 5, 70, "Notes",ExpressionUUID->"b9fccea5-6296-4ca5-a97f-fe791977f867"],
Cell[10438, 276, 479, 12, 70, "Notes",ExpressionUUID->"aab0e76a-a2a0-42d3-a42d-a0dbc8ce9109"]
}, Closed]],
Cell[10932, 291, 80, 0, 70, "PageDelimiter",ExpressionUUID->"f6f2ce2c-72f0-4c71-8764-c5bad489c70b"],
Cell[CellGroupData[{
Cell[11037, 295, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"8c8a2588-37c0-4850-a6b3-47542b8ddcbd",
 CellID->643775148],
Cell[12440, 334, 216, 4, 70, "Input",ExpressionUUID->"82f39fdd-2b19-4808-816d-efdd5a47999f",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12681, 342, 1235, 31, 70, "ExampleSection",ExpressionUUID->"0d6ab9ff-7c73-4432-8b2d-c4b9e79994a7",
 CellID->906298850],
Cell[13919, 375, 175, 3, 70, "ExampleText",ExpressionUUID->"8459e2b7-ceca-4511-8b50-48916d4c4500"],
Cell[CellGroupData[{
Cell[14119, 382, 706, 16, 70, "Input",ExpressionUUID->"7794c61a-6d18-4769-bf94-d98dab60e877"],
Cell[14828, 400, 107, 1, 70, "Output",ExpressionUUID->"8ac7d29e-0b43-42ba-be6d-f4de4a18c91e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14974, 406, 2004, 52, 70, "SeeAlsoSection",ExpressionUUID->"be035e68-5a49-4697-a9b8-27768829982e"],
Cell[16981, 460, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"839975e8-a416-4ead-9c17-2e332d4ebf5a"],
Cell[17676, 481, 78, 0, 70, "FooterCell",ExpressionUUID->"d416f66a-8cc1-4d44-be9e-3ad95fef8e9b"]
}
]
*)

(* End of internal cache information *)

