(* 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[     22773,        573]
NotebookOptionsPosition[     18254,        489]
NotebookOutlinePosition[     20392,        536]
CellTagsIndexPosition[     20349,        533]
WindowTitle->ColumnarTransposition
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->
           "552f7937-d11c-4f91-b82b-2c35347ad95e"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "3b181e32-b09d-428d-8e70-d9ef17f9f220"],
        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->
           "51309a73-9d93-488b-8e42-919987df6054"]
         }],ExpressionUUID->"1d590af3-78ad-40da-aab9-2a67f7caf526"],
         StripOnInput->False],{
        StyleBox[
          "\"ColumnarTranspositionSolve\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve"], 
         StyleBox[
          "\"VigenereCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereCipher"], 
         StyleBox[
          "\"KeyedAlphabet\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "4a25e201-f6e0-407e-a27a-b7ba568f0dbb"],
     "\[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->
           "563fd685-e6a0-431d-84e4-82bbe8399d5c"]
         }],ExpressionUUID->"9b612a9a-d221-4b73-9a08-44ebaa207c68"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "21811d7f-be79-418e-a7dc-c9a86653857f"],
     "\[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->
           "fc27259f-12c8-49bb-9982-f508bf969b0b"]
         }],ExpressionUUID->"ed02af09-2299-4c51-9813-38b39a35a31e"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ColumnarTransposition\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/ColumnarTransposition"], 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/ColumnarTransposition.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/ColumnarTransposition" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "db8c8ef6-2500-4ae3-a9d6-5849dc953e2e"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "2e4b8c9f-3d2a-4604-9242-73a7de3fb816"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"8adb3b13-95d7-4e8f-9865-b909c66fb7c1"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"8d59c9e9-0fa7-43b8-9d24-32386a8740bd"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ColumnarTransposition", "ObjectName",ExpressionUUID->
      "e45b38af-86f0-4706-90df-a2d5ee3509a7"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"cea7840e-3f70-405b-b63f-587b0aa79014"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "29da57e9-ff8b-4e6b-8d74-976595fdfd7f"]
    }],ExpressionUUID->"15284004-b68f-44d7-8dd3-1a8a7cc0f276"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"051c21d9-a878-418e-89c8-\
23075b626d68"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ColumnarTransposition"]], 
         "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "47f75fde-d016-4a0d-b81e-875c44357d0a"],
     "\[LineSeparator]",
     "enciphers text by writing it into rows of width ",
     Cell[BoxData[
      RowBox[{"Length", "[", "key", "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "091b545d-564e-467b-85b1-98f8b02116fd"],
     " and reading the columns off in the order the key sorts into."
    }],ExpressionUUID->"8e79f3e6-8918-4df0-821c-1c97710ba594"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ColumnarTransposition"]], 
         "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d111eeaf-4235-4a36-8c98-299633d7cf7c"],
     "\[LineSeparator]",
     "inverts the transposition."
    }],ExpressionUUID->"12981d9a-872e-4817-a94b-2127c920d25f"]}
  }]], "Usage",ExpressionUUID->"a55f2fd8-bf6b-45c7-a347-28ff32fd7905"]
}, 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->"5395e203-f449-4213-99d1-a2f7d1a6163e"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"02735f86-f20d-46c3-86e7-700106892c30"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "d1b221dc-7287-435c-ab0e-1b08913e6ad8"]],ExpressionUUID->"33cf690b-3215-\
436e-a685-bab2c79438f4"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1227262961,ExpressionUUID->"37352871-9a1b-47d8-8032-e751f73eeb77"],

Cell["\<\
The key is a keyword \[LongDash] its columns are ranked by (letter, then \
original position), ties broken left to right \[LongDash] or an explicit \
permutation of the column indices (1- or 0-based).\
\>", "Notes",ExpressionUUID->"5963c19e-82b1-4ed6-ae0a-445981a42472"],

Cell[TextData[{
 "A columnar transposition only rearranges letters, so the ciphertext keeps \
the plaintext's letter frequencies and its ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["IndexOfCoincidence"]], 
    "paclet:WolframInstitute/Puzzles/ref/IndexOfCoincidence", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "918976ce-23df-4b49-bd33-60bb7659f9a2"],
 "."
}], "Notes",ExpressionUUID->"8b8663db-4786-49c4-8c5e-7df610f35229"],

Cell["\<\
When the text does not fill the final row, the leftmost columns are the \
taller ones; decryption accounts for that.\
\>", "Notes",ExpressionUUID->"36f766f6-1533-4bbb-99bc-b3a3622eecee"],

Cell["This is the family of the real Kryptos K3 panel.", "Notes",ExpressionUUID->"99e70a4d-b348-48c2-8729-347a6645cd29"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"470c6e67-0dd4-4326-9cef-f7460696355a"],

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->"87688c06-661c-4c10-9b2e-40f6b974d230"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a08d5f3e-718f-48fc-a8e4-ae75486eb93b"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "a9a54126-2320-4d5c-9296-29e09d378461"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->28156092,ExpressionUUID->"69a00158-5a00-419d-b65f-5f4758f45554"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"728632b7-85f5-477c-9bd3-cb4023916d80"],

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->
  "7ed0a8a4-d96d-4b21-a7ac-a041e011d90b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"48c1e0ce-8602-43de-8aa3-c0f48cff64cb"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "0eb006b2-4671-40bb-b65e-c84539291cfd"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->773035904,ExpressionUUID->"1463e17e-8662-4a4d-af98-6d22b5c8cfd1"],

Cell["Encipher under the keyword ZEBRA:", "ExampleText",ExpressionUUID->"d1a674dc-0518-4e36-9a72-d71bfdddadb3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ColumnarTransposition", "[", 
  RowBox[{"\"\<WEAREDISCOVEREDFLEEATONCE\>\"", ",", " ", "\"\<ZEBRA\>\""}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e6d2bc86-1cea-45bd-9cef-4ca3f15bf053"],

Cell[BoxData["\<\"EODAEASRENEIELORCEECWDVFT\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d75a3a92-595c-4839-bd72-cdbfde6ea8ea"]
}, Open  ]],

Cell["Decryption is the inverse:", "ExampleText",ExpressionUUID->"396cb170-1c4c-4566-950b-21493b14f097"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ColumnarTransposition", "[", 
  RowBox[{"\"\<EODAEASRENEIELORCEECWDVFT\>\"", ",", " ", "\"\<ZEBRA\>\"", ",",
    " ", "\"\<Decrypt\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[2]:=",ExpressionUUID->"8a65dae8-e31c-45af-816a-d43bd42ffaf6"],

Cell[BoxData["\<\"WEAREDISCOVEREDFLEEATONCE\"\>"], "Output",
 CellLabel->"Out[2]= ",ExpressionUUID->"96155cfb-d953-4713-93f5-74162a5f36df"]
}, 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["ColumnarTranspositionSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "4459618a-b1d4-4357-83fe-b15cb4af15dd"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["VigenereCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ad29096b-b9ae-44e1-bf9b-7b2c1ea82bd9"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["KeyedAlphabet"]], 
           "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "0510dde7-752a-4f87-8a18-06d75e229765"]
       }], "SeeAlso",ExpressionUUID->"6cbdba2b-59ca-469a-a6bb-3d8919497b4a"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"0407173e-5c71-4ee5-9a8e-\
bd03cce3a8cb"],

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["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "fa40c6d7-a9dc-409b-af8c-0ba8f40a93dd"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"eea85805-ab12-4445-8329-\
0f8fa55c21dd"],

Cell[" ", "FooterCell",ExpressionUUID->"437ec74b-3675-4e1d-ba4e-577eed538a2a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ColumnarTransposition",
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, 36.947321}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ColumnarTransposition, paclet : \
WolframInstitute/Puzzles/ref/ColumnarTransposition, WolframInstitute/Puzzles \
Package Symbol][text, key] enciphers text by writing it into rows of width \
Length[key] and reading the columns off in the order the key sorts into. \
PackageLink[ColumnarTransposition, paclet : \
WolframInstitute/Puzzles/ref/ColumnarTransposition, WolframInstitute/Puzzles \
Package Symbol][text, key, Decrypt] inverts the transposition.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "ColumnarTransposition", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "ColumnarTransposition", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/ColumnarTransposition", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"e69fce1c-4fa5-45d9-8219-85d39ef495eb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[589, 21, 5488, 136, 70, "AnchorBarGrid",ExpressionUUID->"8adb3b13-95d7-4e8f-9865-b909c66fb7c1",
 CellID->1],
Cell[6080, 159, 107, 0, 70, "ContextNameCell",ExpressionUUID->"8d59c9e9-0fa7-43b8-9d24-32386a8740bd"],
Cell[CellGroupData[{
Cell[6212, 163, 564, 14, 70, "ObjectNameGrid",ExpressionUUID->"051c21d9-a878-418e-89c8-23075b626d68"],
Cell[6779, 179, 1837, 46, 70, "Usage",ExpressionUUID->"a55f2fd8-bf6b-45c7-a347-28ff32fd7905"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8653, 230, 1444, 34, 70, "NotesSection",ExpressionUUID->"37352871-9a1b-47d8-8032-e751f73eeb77",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1227262961],
Cell[10100, 266, 280, 4, 70, "Notes",ExpressionUUID->"5963c19e-82b1-4ed6-ae0a-445981a42472"],
Cell[10383, 272, 563, 14, 70, "Notes",ExpressionUUID->"8b8663db-4786-49c4-8c5e-7df610f35229"],
Cell[10949, 288, 196, 3, 70, "Notes",ExpressionUUID->"36f766f6-1533-4bbb-99bc-b3a3622eecee"],
Cell[11148, 293, 120, 0, 70, "Notes",ExpressionUUID->"99e70a4d-b348-48c2-8729-347a6645cd29"]
}, Closed]],
Cell[11283, 296, 80, 0, 70, "PageDelimiter",ExpressionUUID->"470c6e67-0dd4-4326-9cef-f7460696355a"],
Cell[CellGroupData[{
Cell[11388, 300, 1399, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"69a00158-5a00-419d-b65f-5f4758f45554",
 CellID->28156092],
Cell[12790, 339, 216, 4, 70, "Input",ExpressionUUID->"728632b7-85f5-477c-9bd3-cb4023916d80",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13031, 347, 1235, 31, 70, "ExampleSection",ExpressionUUID->"1463e17e-8662-4a4d-af98-6d22b5c8cfd1",
 CellID->773035904],
Cell[14269, 380, 111, 0, 70, "ExampleText",ExpressionUUID->"d1a674dc-0518-4e36-9a72-d71bfdddadb3"],
Cell[CellGroupData[{
Cell[14405, 384, 276, 5, 70, "Input",ExpressionUUID->"e6d2bc86-1cea-45bd-9cef-4ca3f15bf053"],
Cell[14684, 391, 139, 1, 70, "Output",ExpressionUUID->"d75a3a92-595c-4839-bd72-cdbfde6ea8ea"]
}, Open  ]],
Cell[14838, 395, 104, 0, 70, "ExampleText",ExpressionUUID->"396cb170-1c4c-4566-950b-21493b14f097"],
Cell[CellGroupData[{
Cell[14967, 399, 306, 5, 70, "Input",ExpressionUUID->"8a65dae8-e31c-45af-816a-d43bd42ffaf6"],
Cell[15276, 406, 139, 1, 70, "Output",ExpressionUUID->"96155cfb-d953-4713-93f5-74162a5f36df"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[15454, 412, 2014, 52, 70, "SeeAlsoSection",ExpressionUUID->"0407173e-5c71-4ee5-9a8e-bd03cce3a8cb"],
Cell[17471, 466, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"eea85805-ab12-4445-8329-0f8fa55c21dd"],
Cell[18172, 487, 78, 0, 70, "FooterCell",ExpressionUUID->"437ec74b-3675-4e1d-ba4e-577eed538a2a"]
}
]
*)

(* End of internal cache information *)

