(* 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[     23765,        599]
NotebookOptionsPosition[     19573,        520]
NotebookOutlinePosition[     21701,        567]
CellTagsIndexPosition[     21658,        564]
WindowTitle->ColumnarTranspositionSolve
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->
           "f022329c-5bf2-442b-8098-0e224cb376aa"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "adfa91b9-f4bd-4eae-808f-5d8179d12c76"],
        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->
           "04713b6e-b3f5-4651-98dd-b043e5cbb120"]
         }],ExpressionUUID->"11c1bc0e-0031-4c3a-8cef-22c6a00ff86d"],
         StripOnInput->False],{
        StyleBox[
          "\"ColumnarTransposition\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition"], 
         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->
      "34fdc786-ff19-4162-99af-94a43ffe9247"],
     "\[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->
           "2dc401bd-6eab-41fc-88bc-00a5dbe3f02d"]
         }],ExpressionUUID->"596de41c-392e-4a47-b0a4-e918fd50d367"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "877a32ab-7e9a-42ea-bb7a-c1ce81f728e7"],
     "\[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->
           "2db4cf48-5cae-48a0-9c51-a070aecb01ee"]
         }],ExpressionUUID->"3c72a485-7382-4fa7-9996-5953372a85a5"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve\"" :> None,
          "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve"], 
         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/ColumnarTranspositionSolve.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/ColumnarTranspositionSolve" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8bf67a42-c7f7-455e-9ac0-c7c72aba57f8"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "c150cafd-c955-48d5-806d-9d70829f076c"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"2a056405-18cc-4c11-bb1f-13313b0e48f4"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"5635d3a8-424e-4ebe-82a0-85c08b450e50"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ColumnarTranspositionSolve", "ObjectName",ExpressionUUID->
      "f6274cea-9e99-43f2-82e1-13676e8a7e33"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"2c269923-e591-4722-af15-bfc0801575a4"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "83ebd17b-b97d-443e-becc-85be6caf19cd"]
    }],ExpressionUUID->"67e32b26-1a18-48f1-a501-55e1071c4288"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"7ddcf3fc-a125-4b33-a4dc-\
41abb900110e"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ColumnarTranspositionSolve"]], 
         "paclet:WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["text", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "282b51ae-b37a-4ac8-8152-ab7c741d0590"],
     "\[LineSeparator]",
     "recovers a columnar transposition by scoring every column order with ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["EnglishNgramScore"]], 
        "paclet:WolframInstitute/Puzzles/ref/EnglishNgramScore", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "0cd58e9b-f4ba-4893-9a79-e2ca13dad9d2"],
     ", giving an Association with the best ",
     Cell[BoxData["\"\<Plaintext\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c5cb8977-8650-4511-8af8-e3d103ec9642"],
     ", ",
     Cell[BoxData["\"\<Columns\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "2ff350d7-6742-4104-846b-0a5bff4e6f1b"],
     ", ",
     Cell[BoxData["\"\<Order\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "8a7b1a82-bcb8-4081-a583-3ed662155e49"],
     ", and ",
     Cell[BoxData["\"\<Score\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "32faaeee-7d42-452f-936a-89d5e1961751"],
     "."
    }],ExpressionUUID->"be80ecc3-1465-4a45-99fb-7da846c01674"]}
  }]], "Usage",ExpressionUUID->"e432e091-a5fe-44cd-a171-a5f33471f11f"]
}, 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->"c7b09d67-9a1a-446f-a4dc-867cd7f50a2a"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"602b099e-d993-40f3-a2f6-72814ab6ecc5"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "acc724c1-c95d-4787-b918-e7a21f00b91b"]],ExpressionUUID->"cb67757b-38a7-\
4dbc-982e-73fddc66a1f4"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->2135670026,ExpressionUUID->"b6c0e866-c56d-4788-89fe-3cee7d0a00aa"],

Cell[TextData[{
 "Because a transposition leaves the letter frequencies untouched, only ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["EnglishNgramScore"]], 
    "paclet:WolframInstitute/Puzzles/ref/EnglishNgramScore", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "3f0f42ae-dc19-4fa8-8069-6e731a354fde"],
 " \[LongDash] not the index of coincidence \[LongDash] can tell a correct \
column order from a wrong one."
}], "Notes",ExpressionUUID->"34a52db2-6c78-411f-8458-9825a3249051"],

Cell["\<\
Every column order is tried for each width, so the search is exhaustive up to \
the column bound but grows as the factorial of the width.\
\>", "Notes",ExpressionUUID->"58c47f71-f38e-4221-89b2-be87999cd4aa"],

Cell[TextData[{
 "The options ",
 Cell[BoxData["\<\"MinColumns\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0c8809db-1206-4c80-a4a4-2a291064cdbf"],
 " (default ",
 Cell[BoxData["2"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dd68abd2-509f-4d8f-a24b-cc66d4a753fc"],
 ") and ",
 Cell[BoxData["\<\"MaxColumns\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c107ae58-e259-40b5-a34a-f41a69882368"],
 " (default ",
 Cell[BoxData["8"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "32f59043-d5cd-4023-a49b-33f7346c9426"],
 ") bound the number of columns tried."
}], "Notes",ExpressionUUID->"fc247f05-8798-4d95-affe-443150a7c82e"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"Method", " ", "->", " ", "\<\"C\"\>"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "bfe7882b-3e89-417e-96f4-6f13c50df67a"],
 " brutes the column orders through a LibraryLink C accelerator (",
 Cell["LibraryResources/Source/wlqcrack.c", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "e9ef0d07-f9f7-459f-806b-7095561b7e62"],
 ", compiled on first use), which is far faster than the Wolfram-Language \
brute and so lets ",
 Cell[BoxData["\<\"MaxColumns\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7c609e7f-1c17-41d1-8186-c7239682baa7"],
 " go higher; it returns the identical exhaustive result and falls back to \
the Wolfram-Language solve when no C compiler is present."
}], "Notes",ExpressionUUID->"ce642530-afb0-4790-a50c-b6cb87c824bc"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"7cdc6938-114c-4a14-81c1-3242027a4e1d"],

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->"4baa1a60-49f7-4e71-99dd-138d2f9ac470"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a5e6bd94-762f-4a7c-8c61-2e521f4f0c30"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "57174c08-b8dd-457b-a959-9c5cee5de145"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1164451024,ExpressionUUID->"a44beb83-3b08-4a53-b480-d9b101b98202"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"ce2b3e5e-9e68-499d-9d26-527d2e309f67"],

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->
  "47954c6f-3a2c-4ac4-bf8f-af12ff63531f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"0549cd2c-0439-44f3-b21d-88b53badfcbe"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "e3a38369-5620-4b8e-9a67-dee567214120"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->909885257,ExpressionUUID->"090b38cb-ff9c-4715-8807-d89ddcab7924"],

Cell["Undo an unknown columnar transposition:", "ExampleText",ExpressionUUID->"5b37b063-76e3-4562-9a20-dcd1ac348ddc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"cipher", " ", "=", " ", 
   RowBox[{"ColumnarTransposition", "[", 
    RowBox[{"\"\<MEETMEATTHEOLDMILLATMIDNIGHTANDBRINGTHEMAP\>\"", ",", 
     " ", "\"\<ZEBRA\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ColumnarTranspositionSolve", "[", 
   RowBox[{"cipher", ",", " ", 
    RowBox[{"\"\<MaxColumns\>\"", " ", "->", " ", "5"}]}], "]"}], 
  "[", "\"\<Plaintext\>\"", "]"}]}], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9c7078ba-3e1f-4b1c-bc10-3bb5f56a35d4"],

Cell[BoxData["\<\"MEETMEATTHEOLDMILLATMIDNIGHTANDBRINGTHEMAP\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"af6a4964-8926-44d3-85cc-461e92f6bba7"]
}, 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["ColumnarTransposition"]], 
           "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "fea1554f-616c-422a-82d8-ca8dbbd8e7f0"],
        "\[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->
         "3aaf1f60-4d5a-40d8-a26e-a4de486d154e"],
        "\[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->
         "92050757-e735-4228-b6d7-f837c23150e3"]
       }], "SeeAlso",ExpressionUUID->"02b91169-5582-4c38-9cf6-32c85cdbaddc"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"103ff680-714d-4f84-9513-\
e750ea3546ac"],

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->
         "6370c07e-9857-4a32-a939-0b87232e90dd"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"7554a49f-9f62-49f5-b1ac-\
177be5514297"],

Cell[" ", "FooterCell",ExpressionUUID->"48c7c0df-97b6-442e-8fa7-7a0c46f2bf0a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ColumnarTranspositionSolve",
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, 38.774908}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ColumnarTranspositionSolve, paclet : \
WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve, \
WolframInstitute/Puzzles Package Symbol][text] recovers a columnar \
transposition by scoring every column order with \
PackageLink[EnglishNgramScore, paclet : \
WolframInstitute/Puzzles/ref/EnglishNgramScore, WolframInstitute/Puzzles \
Package Symbol], giving an Association with the best Plaintext, Columns, \
Order, and Score.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "ColumnarTranspositionSolve", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "ColumnarTranspositionSolve", "type" -> "Symbol", 
    "uri" -> "WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"2129d7de-d37a-46eb-838b-25720262e86d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[594, 21, 5498, 136, 70, "AnchorBarGrid",ExpressionUUID->"2a056405-18cc-4c11-bb1f-13313b0e48f4",
 CellID->1],
Cell[6095, 159, 107, 0, 70, "ContextNameCell",ExpressionUUID->"5635d3a8-424e-4ebe-82a0-85c08b450e50"],
Cell[CellGroupData[{
Cell[6227, 163, 569, 14, 70, "ObjectNameGrid",ExpressionUUID->"7ddcf3fc-a125-4b33-a4dc-41abb900110e"],
Cell[6799, 179, 2012, 49, 70, "Usage",ExpressionUUID->"e432e091-a5fe-44cd-a171-a5f33471f11f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8848, 233, 1444, 34, 70, "NotesSection",ExpressionUUID->"b6c0e866-c56d-4788-89fe-3cee7d0a00aa",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->2135670026],
Cell[10295, 269, 616, 14, 70, "Notes",ExpressionUUID->"34a52db2-6c78-411f-8458-9825a3249051"],
Cell[10914, 285, 217, 3, 70, "Notes",ExpressionUUID->"58c47f71-f38e-4221-89b2-be87999cd4aa"],
Cell[11134, 290, 839, 22, 70, "Notes",ExpressionUUID->"fc247f05-8798-4d95-affe-443150a7c82e"],
Cell[11976, 314, 910, 18, 70, "Notes",ExpressionUUID->"ce642530-afb0-4790-a50c-b6cb87c824bc"]
}, Closed]],
Cell[12901, 335, 80, 0, 70, "PageDelimiter",ExpressionUUID->"7cdc6938-114c-4a14-81c1-3242027a4e1d"],
Cell[CellGroupData[{
Cell[13006, 339, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"a44beb83-3b08-4a53-b480-d9b101b98202",
 CellID->1164451024],
Cell[14410, 378, 216, 4, 70, "Input",ExpressionUUID->"ce2b3e5e-9e68-499d-9d26-527d2e309f67",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14651, 386, 1235, 31, 70, "ExampleSection",ExpressionUUID->"090b38cb-ff9c-4715-8807-d89ddcab7924",
 CellID->909885257],
Cell[15889, 419, 117, 0, 70, "ExampleText",ExpressionUUID->"5b37b063-76e3-4562-9a20-dcd1ac348ddc"],
Cell[CellGroupData[{
Cell[16031, 423, 554, 12, 70, "Input",ExpressionUUID->"9c7078ba-3e1f-4b1c-bc10-3bb5f56a35d4"],
Cell[16588, 437, 156, 1, 70, "Output",ExpressionUUID->"af6a4964-8926-44d3-85cc-461e92f6bba7"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[16783, 443, 2010, 52, 70, "SeeAlsoSection",ExpressionUUID->"103ff680-714d-4f84-9513-e750ea3546ac"],
Cell[18796, 497, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"7554a49f-9f62-49f5-b1ac-177be5514297"],
Cell[19491, 518, 78, 0, 70, "FooterCell",ExpressionUUID->"48c7c0df-97b6-442e-8fa7-7a0c46f2bf0a"]
}
]
*)

(* End of internal cache information *)

