(* 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[     22752,        572]
NotebookOptionsPosition[     18365,        490]
NotebookOutlinePosition[     20786,        541]
CellTagsIndexPosition[     20743,        538]
WindowTitle->FractionatedMorseCipher
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->
           "20377b5e-c684-4de9-8b97-6e6fcb747810"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "7e918cc2-d268-4b16-989b-11ebda80fb59"],
        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->
           "1bee5ebb-d6e2-44ce-96cb-c5445d3bc20b"]
         }],ExpressionUUID->"28859f4a-82d2-4b7b-96f6-dc35b9cd86f0"],
         StripOnInput->False],{
        StyleBox[
          "\"KeyedAlphabet\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet"], 
         StyleBox[
          "\"VigenereCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereCipher"], 
         StyleBox["\"BifidCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BifidCipher"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c71e67b6-3b01-41fa-8be5-b81d438188c7"],
     "\[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->
           "496a8183-0d4b-49fe-a568-36aeaa11a40d"]
         }],ExpressionUUID->"f45f54ae-e236-496a-a038-2bd63d1f0d9f"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "ebf5f215-0459-4fd0-8a6d-f6c2b33ce463"],
     "\[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->
           "10b099d1-e02e-4154-b71c-e45bef910230"]
         }],ExpressionUUID->"da9e6944-81f4-44ea-b99d-e5695032b9fd"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/FractionatedMorseCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/FractionatedMorseCipher"], 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/FractionatedMorseCipher.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/FractionatedMorseCipher" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "18f81e76-6536-412a-ab78-f122a3e516cd"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "51e1347d-967b-45cc-bc2b-7d0f70d03e60"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"3e8c7def-f093-4533-ba93-598c73744311"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"59c156c2-d8e3-4214-9bb7-e41e7ac0ad8e"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "FractionatedMorseCipher", "ObjectName",ExpressionUUID->
      "1f221b6b-e79f-4f70-aec4-758a6669bd91"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"abdaae49-d6b5-48b6-b457-86beecaf065a"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "d6f83078-3bea-4d2a-82ff-84ed25d42110"]
    }],ExpressionUUID->"98b89c58-81d8-47d5-9794-82557de3165e"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"e534f294-6ee0-4874-bf79-\
82e742397d21"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["FractionatedMorseCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/FractionatedMorseCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["keyword", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "967d8073-4d31-4999-ac3a-22e2ed4088c9"],
     "\[LineSeparator]",
     "enciphers text with the Fractionated Morse cipher: the message is \
written in Morse code with dots, dashes and an ",
     Cell[BoxData["x"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "716e2712-c9ed-4c8f-a66b-0fe679ac716a"],
     " letter-separator, the resulting three-symbol stream is cut into \
trigrams, and each trigram is replaced by the letter at its position in the ",
     
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["KeyedAlphabet"]], 
        "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "f9744cb5-9582-4621-a55a-0bff4fb2d159"],
     " of ",
     StyleBox["keyword", "TI"],
     "."
    }],ExpressionUUID->"90765be2-8eb2-49a2-847e-93488ce2a556"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["FractionatedMorseCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/FractionatedMorseCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["keyword", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d73381ab-0a56-4222-93c5-9c4da2f53ebb"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"9379bc92-2bb6-474c-af5e-9994ae2b5ea0"]}
  }]], "Usage",ExpressionUUID->"eb9b4e01-ba9d-4a13-a87d-7107497655f6"]
}, 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->"44f0d2e9-9e5a-4400-9cdb-804864c6aa12"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"cb5a3776-ad95-4355-90da-a6ccedad5c17"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "b0b1ef5f-cf4a-4c70-9912-be0b9933c4b7"]],ExpressionUUID->"da644946-b304-\
433a-826f-f0b6089b1a41"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->298851851,ExpressionUUID->"414a3395-1db1-4ebc-bbb4-3ba865161bf6"],

Cell[TextData[{
 "There are 26 trigrams over ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"\<\".\"\>", ",", " ", "\<\"-\"\>", ",", " ", "\<\"x\"\>"}], 
   "}"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d0dd6f62-64b4-4cdb-ae6b-9f7339f0d5ca"],
 " once the all-separator ",
 Cell[BoxData["\<\"xxx\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "89b4c8ec-88d0-4a67-abf3-63e8fd1bf6b1"],
 " is dropped, so they map one-to-one onto the 26 letters of the keyed \
alphabet."
}], "Notes",ExpressionUUID->"77b85c07-1fe5-43e7-8875-7fb7b142ecfa"],

Cell["\<\
The fractionation smears each plaintext letter across several ciphertext \
letters (a short letter like E can share a ciphertext letter with its \
neighbours), which flattens the letter-frequency profile and defeats a simple \
monoalphabetic attack - unlike Playfair or Bifid it imposes no even-length or \
25-letter-square constraint, and the ciphertext uses all 26 letters.\
\>", "Notes",ExpressionUUID->"df45552f-218f-4284-8474-e92fd640254f"],

Cell["Non-letters in the input are dropped before enciphering.", "Notes",ExpressionUUID->"3431ef58-cd20-4eba-8330-7afb1205ecb8"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"2d30be67-8cae-4e2d-9a88-a043c93cb25b"],

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->"22425560-0248-47e1-be25-852bfb347b7c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2d027623-0aa1-4056-ba87-6e8e6be61e85"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "b20453e2-ab53-473a-a7cf-279592c9a1b9"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1986293071,ExpressionUUID->"45d347fb-6825-4d16-8de5-b3525851395d"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"00cf0d42-0847-4891-88ed-b654eb29a108"],

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->
  "8b011524-742e-47d5-89fd-b3f949782dcd"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"07a8d76c-029b-4948-a245-4323b9b0267e"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "edf5f899-2ecb-44f6-9a51-893dde85267b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->994351682,ExpressionUUID->"d177e527-ff82-492a-869a-41b1becab7a4"],

Cell["Encipher and recover a message:", "ExampleText",ExpressionUUID->"365cce41-e8bf-4bce-9590-17833505093c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FractionatedMorseCipher", "[", 
  RowBox[{
   RowBox[{"FractionatedMorseCipher", "[", 
    RowBox[{"\"\<THENEEDLELIESHIDDENINTHEBARN\>\"", ",", 
     " ", "\"\<WHITESMITH\>\""}], "]"}], ",", " ", "\"\<WHITESMITH\>\"", ",", 
   " ", "\"\<Decrypt\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6c9d7e39-e167-4a28-8d77-54cfd57355cc"],

Cell[BoxData["\<\"THENEEDLELIESHIDDENINTHEBARN\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3a83d727-6ff4-4b05-89d2-e65964df9cab"]
}, 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["KeyedAlphabet"]], 
           "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "813dfa10-3287-4ce8-aa0a-3f2197c849b1"],
        "\[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->
         "9ec35c07-bbd1-4826-a7ef-47899d23ebab"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BifidCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/BifidCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a9c5a4ac-3ee9-40a1-ab31-4a357b7f357a"]
       }], "SeeAlso",ExpressionUUID->"e9b42eaf-090a-43e3-845f-e9383a3b7199"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"d355dc75-7334-44c8-8d30-\
3e7a9862dcf8"],

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->
         "67b4d390-fa24-4cc0-b386-2d787ed4aa94"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"fe7136b4-d241-479f-85d1-\
87f64fc109a6"],

Cell[" ", "FooterCell",ExpressionUUID->"a483fa36-8b81-4f67-a54d-cc1823536591"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"FractionatedMorseCipher",
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, 42.673365}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[FractionatedMorseCipher, paclet : \
WolframInstitute/Puzzles/ref/FractionatedMorseCipher, \
WolframInstitute/Puzzles Package Symbol][text, keyword] enciphers text with \
the Fractionated Morse cipher: the message is written in Morse code with \
dots, dashes and an x letter-separator, the resulting three-symbol stream is \
cut into trigrams, and each trigram is replaced by the letter at its position \
in the PackageLink[KeyedAlphabet, paclet : \
WolframInstitute/Puzzles/ref/KeyedAlphabet, WolframInstitute/Puzzles Package \
Symbol] of keyword. PackageLink[FractionatedMorseCipher, paclet : \
WolframInstitute/Puzzles/ref/FractionatedMorseCipher, \
WolframInstitute/Puzzles Package Symbol][text, keyword, Decrypt] deciphers.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "FractionatedMorseCipher",
     "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "FractionatedMorseCipher", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/FractionatedMorseCipher", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"aab526ef-3fc8-4090-a333-f126f381fe31"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[591, 21, 5453, 135, 70, "AnchorBarGrid",ExpressionUUID->"3e8c7def-f093-4533-ba93-598c73744311",
 CellID->1],
Cell[6047, 158, 107, 0, 70, "ContextNameCell",ExpressionUUID->"59c156c2-d8e3-4214-9bb7-e41e7ac0ad8e"],
Cell[CellGroupData[{
Cell[6179, 162, 566, 14, 70, "ObjectNameGrid",ExpressionUUID->"e534f294-6ee0-4874-bf79-82e742397d21"],
Cell[6748, 178, 2389, 61, 70, "Usage",ExpressionUUID->"eb9b4e01-ba9d-4a13-a87d-7107497655f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9174, 244, 1443, 34, 70, "NotesSection",ExpressionUUID->"414a3395-1db1-4ebc-bbb4-3ba865161bf6",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->298851851],
Cell[10620, 280, 645, 16, 70, "Notes",ExpressionUUID->"77b85c07-1fe5-43e7-8875-7fb7b142ecfa"],
Cell[11268, 298, 455, 6, 70, "Notes",ExpressionUUID->"df45552f-218f-4284-8474-e92fd640254f"],
Cell[11726, 306, 128, 0, 70, "Notes",ExpressionUUID->"3431ef58-cd20-4eba-8330-7afb1205ecb8"]
}, Closed]],
Cell[11869, 309, 80, 0, 70, "PageDelimiter",ExpressionUUID->"2d30be67-8cae-4e2d-9a88-a043c93cb25b"],
Cell[CellGroupData[{
Cell[11974, 313, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"45d347fb-6825-4d16-8de5-b3525851395d",
 CellID->1986293071],
Cell[13378, 352, 216, 4, 70, "Input",ExpressionUUID->"00cf0d42-0847-4891-88ed-b654eb29a108",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13619, 360, 1235, 31, 70, "ExampleSection",ExpressionUUID->"d177e527-ff82-492a-869a-41b1becab7a4",
 CellID->994351682],
Cell[14857, 393, 109, 0, 70, "ExampleText",ExpressionUUID->"365cce41-e8bf-4bce-9590-17833505093c"],
Cell[CellGroupData[{
Cell[14991, 397, 420, 8, 70, "Input",ExpressionUUID->"6c9d7e39-e167-4a28-8d77-54cfd57355cc"],
Cell[15414, 407, 142, 1, 70, "Output",ExpressionUUID->"3a83d727-6ff4-4b05-89d2-e65964df9cab"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[15595, 413, 1984, 52, 70, "SeeAlsoSection",ExpressionUUID->"d355dc75-7334-44c8-8d30-3e7a9862dcf8"],
Cell[17582, 467, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"fe7136b4-d241-479f-85d1-87f64fc109a6"],
Cell[18283, 488, 78, 0, 70, "FooterCell",ExpressionUUID->"a483fa36-8b81-4f67-a54d-cc1823536591"]
}
]
*)

(* End of internal cache information *)

