(* 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[     22379,        565]
NotebookOptionsPosition[     17965,        482]
NotebookOutlinePosition[     20091,        529]
CellTagsIndexPosition[     20048,        526]
WindowTitle->KeyedAlphabet
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->
           "c8183387-09c1-4765-9b42-06e6c4cbb6fd"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "0760249f-08b4-4184-ae18-e93391b37df6"],
        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->
           "3a193bea-548a-4db5-8696-5ec30b2df7ff"]
         }],ExpressionUUID->"ec8bc6cb-ad9f-4520-b0ad-27acd4c590e2"],
         StripOnInput->False],{
        StyleBox[
          "\"VigenereCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereCipher"], 
         StyleBox[
          "\"VigenereSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereSolve"], 
         StyleBox[
          "\"ColumnarTransposition\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e675784f-6318-4877-b0d5-ba3d33577fbc"],
     "\[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->
           "3c89bae8-2ceb-459c-a77f-249fac26e8aa"]
         }],ExpressionUUID->"92f7b058-317b-4319-85ca-33abee40da0e"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "be9b1b73-29ac-4d4b-995f-c3345617b80e"],
     "\[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->
           "50302648-f1cf-43b2-b031-0c3041cb6f23"]
         }],ExpressionUUID->"80b4bb0e-cb9c-4c50-806a-708324a5a6f9"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/KeyedAlphabet\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/KeyedAlphabet"], 
         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/KeyedAlphabet.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/KeyedAlphabet" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "83b951c2-08e2-4347-9514-b1d7929d763b"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "28fbe188-d8b6-4327-bc7c-53a35c856a57"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"34ed7ebe-5728-479a-9422-f02e03f2f1bd"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"9e769a8f-48ba-423a-87f8-94f4dbed9c1a"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "KeyedAlphabet", "ObjectName",ExpressionUUID->
      "c92e85f7-8232-45ae-905f-5d9bb5a71234"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"8d5bfebe-3560-45bf-8a78-a6fb188cd1dc"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "716de629-ec21-40b4-8286-863877ace3ba"]
    }],ExpressionUUID->"144c2c01-6239-49f7-97e1-b2b0fc9aac94"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"947bbe91-c714-4148-84be-\
f6c758991be0"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["KeyedAlphabet"]], 
         "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["keyword", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "3ce2011f-79dc-40e3-a310-a6b1a342175a"],
     "\[LineSeparator]",
     "gives the 26-letter mixed alphabet a keyword induces: the keyword's \
distinct letters in order of first appearance, followed by the letters of A-Z \
it did not use."
    }],ExpressionUUID->"e6fb9246-f048-4f16-a5ed-1f46bf5a1fcc"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["KeyedAlphabet"]], 
         "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["keyword", "TI"], ",", " ", 
        StyleBox["alphabet", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "2aff527c-9670-4268-a8db-5de10e4f60be"],
     "\[LineSeparator]",
     "keys the given base alphabet instead of A-Z."
    }],ExpressionUUID->"2806753c-3941-410e-b5d7-2e4b3ecd4eda"]}
  }]], "Usage",ExpressionUUID->"fb4bc07e-1e85-4718-8967-6fdf797e0252"]
}, 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->"03db133f-7018-4586-87a1-bd126ad63f88"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"7531e1c2-6aba-4ad1-9082-b489649e8ebf"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "afe36a6b-1ba5-423a-9a0a-0fe2526f8932"]],ExpressionUUID->"a473a074-f456-\
461f-81db-e357df92a353"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->513084284,ExpressionUUID->"53d62d44-0ccc-40bb-b1d8-cf7b9ec5457b"],

Cell["\<\
A keyed (mixed) alphabet is the building block of the Kryptos-style Quagmire \
ciphers: it is the alphabet the plaintext and/or ciphertext side of a \
Vigenere tableau is written in.\
\>", "Notes",ExpressionUUID->"164e5dfe-684e-4bea-9c65-08abe4716782"],

Cell[TextData[{
 "Case is ignored and non-letters are dropped, so ",
 Cell[BoxData["\<\"KRYPTOS\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4e93acbb-a8c1-4f39-b39b-4866d2659a83"],
 ", ",
 Cell[BoxData["\<\"kryptos\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4128ed65-85db-46c1-b5f4-a62de0ba375f"],
 ", and ",
 Cell[BoxData["\<\"K R Y P T O S\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c66d6ade-887f-4d00-977a-5baa83b99114"],
 " all give the same result."
}], "Notes",ExpressionUUID->"bcec3f7f-8e46-465a-b5d8-66742780ca41"],

Cell["The result is always a permutation of the 26 letters.", "Notes",ExpressionUUID->"a4943dd4-4c7f-4d7e-9c57-c0f86d20f660"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"b6c7e1fa-64ff-4914-acc1-c2c1074deffb"],

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->"91360e5f-33f3-4869-adaa-f71d62149efb"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"8fb69aff-d4aa-4049-b4ad-690bb05b0257"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "15d1c427-3b3e-4b43-87ba-ffc28b935bce"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1260718483,ExpressionUUID->"04e752f1-570e-4fd8-9198-25b5f7ebc358"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"15ec1728-461d-4a52-8632-3bf464a780cb"],

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->
  "fb08c3c3-c238-415d-b04e-3d5799744d2f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2637c616-cade-4429-9959-3cf2051bbfae"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "b2d36002-c4cf-4683-9932-634294a3ae32"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1821882479,ExpressionUUID->"03c8e54d-d471-4698-be2f-7ee3fdabf92b"],

Cell["The alphabet behind Kryptos K1-K3:", "ExampleText",ExpressionUUID->"b704e4ab-0238-4408-a843-3659840d3071"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyedAlphabet", "[", "\"\<KRYPTOS\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3538fec0-cad8-46b8-bb05-81d9a420af22"],

Cell[BoxData["\<\"KRYPTOSABCDEFGHIJLMNQUVWXZ\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f429314a-9f1a-4c9a-a6ee-e03916e870cc"]
}, Open  ]],

Cell["Repeated letters and spaces collapse:", "ExampleText",ExpressionUUID->"11c158cc-71c8-4492-8263-72a7f09335b9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sort", "[", 
   RowBox[{"Characters", "[", 
    RowBox[{"KeyedAlphabet", "[", "\"\<THE QUICK BROWN FOX\>\"", "]"}], "]"}],
    "]"}], " ", "===", " ", 
  RowBox[{"CharacterRange", "[", 
   RowBox[{"\"\<A\>\"", ",", " ", "\"\<Z\>\""}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[2]:=",ExpressionUUID->"da300b29-4526-4df2-a87b-fd61761db333"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[2]= ",ExpressionUUID->"f3b300e7-cba7-4af2-a7d3-225fa482ba6f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["VigenereCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c7536c99-4d71-484d-97c2-2495bd503272"],
        "\[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->
         "0f3added-bf0e-4cec-a1a1-fcb6caf8f813"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ColumnarTransposition"]], 
           "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7518c591-1050-4f17-ab24-b17eef693e1f"]
       }], "SeeAlso",ExpressionUUID->"6b80fb10-79f2-4752-8b31-0dfde1b54f1c"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"7e1bfc5a-5176-48c1-bf46-\
50659495f659"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, "RelatedGuide.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "0f2f7c52-1794-49d9-9140-687f68ceeff2"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"8056ea16-580a-4d8b-9c33-\
5f21b76bf7aa"],

Cell[" ", "FooterCell",ExpressionUUID->"16b6b69c-e76d-4d34-ac4f-d76e1b6aa72e"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"KeyedAlphabet",
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, 40.059642}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[KeyedAlphabet,paclet : \
WolframInstitute/Puzzles/ref/KeyedAlphabet, WolframInstitute/Puzzles Package \
Symbol][keyword] gives the 26-letter mixed alphabet a keyword induces: the \
keyword's distinct letters in order of first appearance, followed by the \
letters of A-Z it did not use. PackageLink[KeyedAlphabet,paclet : \
WolframInstitute/Puzzles/ref/KeyedAlphabet, WolframInstitute/Puzzles Package \
Symbol][keyword, alphabet] keys the given base alphabet instead of A-Z.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "KeyedAlphabet", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "KeyedAlphabet", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/KeyedAlphabet", "WorkflowDockedCell" -> ""},
   "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"8b882ecd-58ee-4d6f-961b-0e49d3b89a5a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[581, 21, 5434, 135, 70, "AnchorBarGrid",ExpressionUUID->"34ed7ebe-5728-479a-9422-f02e03f2f1bd",
 CellID->1],
Cell[6018, 158, 107, 0, 70, "ContextNameCell",ExpressionUUID->"9e769a8f-48ba-423a-87f8-94f4dbed9c1a"],
Cell[CellGroupData[{
Cell[6150, 162, 556, 14, 70, "ObjectNameGrid",ExpressionUUID->"947bbe91-c714-4148-84be-f6c758991be0"],
Cell[6709, 178, 1573, 39, 70, "Usage",ExpressionUUID->"fb4bc07e-1e85-4718-8967-6fdf797e0252"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8319, 222, 1443, 34, 70, "NotesSection",ExpressionUUID->"53d62d44-0ccc-40bb-b1d8-cf7b9ec5457b",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->513084284],
Cell[9765, 258, 262, 4, 70, "Notes",ExpressionUUID->"164e5dfe-684e-4bea-9c65-08abe4716782"],
Cell[10030, 264, 700, 17, 70, "Notes",ExpressionUUID->"bcec3f7f-8e46-465a-b5d8-66742780ca41"],
Cell[10733, 283, 125, 0, 70, "Notes",ExpressionUUID->"a4943dd4-4c7f-4d7e-9c57-c0f86d20f660"]
}, Closed]],
Cell[10873, 286, 80, 0, 70, "PageDelimiter",ExpressionUUID->"b6c7e1fa-64ff-4914-acc1-c2c1074deffb"],
Cell[CellGroupData[{
Cell[10978, 290, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"04e752f1-570e-4fd8-9198-25b5f7ebc358",
 CellID->1260718483],
Cell[12382, 329, 216, 4, 70, "Input",ExpressionUUID->"15ec1728-461d-4a52-8632-3bf464a780cb",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12623, 337, 1236, 31, 70, "ExampleSection",ExpressionUUID->"03c8e54d-d471-4698-be2f-7ee3fdabf92b",
 CellID->1821882479],
Cell[13862, 370, 112, 0, 70, "ExampleText",ExpressionUUID->"b704e4ab-0238-4408-a843-3659840d3071"],
Cell[CellGroupData[{
Cell[13999, 374, 207, 3, 70, "Input",ExpressionUUID->"3538fec0-cad8-46b8-bb05-81d9a420af22"],
Cell[14209, 379, 140, 1, 70, "Output",ExpressionUUID->"f429314a-9f1a-4c9a-a6ee-e03916e870cc"]
}, Open  ]],
Cell[14364, 383, 115, 0, 70, "ExampleText",ExpressionUUID->"11c158cc-71c8-4492-8263-72a7f09335b9"],
Cell[CellGroupData[{
Cell[14504, 387, 415, 9, 70, "Input",ExpressionUUID->"da300b29-4526-4df2-a87b-fd61761db333"],
Cell[14922, 398, 110, 1, 70, "Output",ExpressionUUID->"f3b300e7-cba7-4af2-a7d3-225fa482ba6f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[15071, 404, 2060, 53, 70, "SeeAlsoSection",ExpressionUUID->"7e1bfc5a-5176-48c1-bf46-50659495f659"],
Cell[17134, 459, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"8056ea16-580a-4d8b-9c33-5f21b76bf7aa"],
Cell[17883, 480, 78, 0, 70, "FooterCell",ExpressionUUID->"16b6b69c-e76d-4d34-ac4f-d76e1b6aa72e"]
}
]
*)

(* End of internal cache information *)

