(* 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[     47954,       1292]
NotebookOptionsPosition[     38498,       1118]
NotebookOutlinePosition[     40997,       1174]
CellTagsIndexPosition[     40919,       1169]
WindowTitle->PermutationCandidates
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->
           "3ff006b5-d870-4ddc-8feb-2ee1cb3f2cf5"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "e8858f94-643e-4bad-938d-e55cb3dcc954"],
        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->
           "9f0c7d64-8790-4dc0-8fd6-819f3d06175a"]
         }],ExpressionUUID->"07341d3e-8503-4aa5-937c-371cda9c44c8"],
         StripOnInput->False],{
        StyleBox["\"Permutations\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/Permutations"], 
         StyleBox["\"MixedRadix\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/MixedRadix"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"CandidateEnumeration\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CandidateEnumeration"], 
         StyleBox[
          StyleBox[
           "\"SubsetCandidates\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SubsetCandidates"], 
         StyleBox[
          StyleBox[
           "\"WordlistCandidates\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/WordlistCandidates"], 
         StyleBox[
          StyleBox[
           "\"CandidateSweep\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CandidateSweep"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "7d5652ec-dbf0-4816-b892-93ea135f7b51"],
     "\[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->
           "ac95bc63-e38a-401e-92d8-c0d344166f37"]
         }],ExpressionUUID->"1715419b-3b52-4e23-9982-258e36ddec22"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "0a1bccee-5cf2-499f-b08a-c3c4cae4b51e"],
     "\[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->
           "562db25a-be32-4175-a8b1-0f3064d349dd"]
         }],ExpressionUUID->"2c5482e9-dde9-40e3-8ec3-cc5ec0f39bd3"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/PermutationCandidates\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/PermutationCandidates"], 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/PermutationCandidates.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/PermutationCandidates" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "a1687084-0aad-41bb-a04c-d6f1acdee0ff"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "8759e6ba-4880-4b07-817e-697a22104cf7"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"716af17f-aa5c-46f3-9064-0df91072cc6b"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"3efd05eb-1b35-4e66-b57d-33473336198b"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "PermutationCandidates", "ObjectName",ExpressionUUID->
      "1daf0451-f358-459b-bf2e-ed19bdaa5eb3"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"8dab5bd0-6dc7-4788-b375-a726b936edfb"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "968ff559-07aa-4d24-bac7-927280c39b98"]
    }],ExpressionUUID->"a7c341a9-b283-4f9a-bc39-22334cd34889"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"782677dd-6e46-4076-a9ab-\
d5910ec0843d"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["PermutationCandidates"]], 
         "paclet:WolframInstitute/Puzzles/ref/PermutationCandidates", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{"{", 
        RowBox[{
         StyleBox["e\:2081", "TI"], ",", " ", 
         StyleBox["e\:2082", "TI"], ",", " ", "\[Ellipsis]"}], "}"}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "8fcd1d03-9802-4885-8398-d298bcf5d599"],
     "\[LineSeparator]",
     "gives a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["CandidateEnumeration"]], 
        "paclet:WolframInstitute/Puzzles/ref/CandidateEnumeration", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "1d4fe9a1-797c-4eea-8156-a82a7664bddc"],
     " of all orderings of the elements, in the order of ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Permutations"]], "paclet:ref/Permutations"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f0dd4b10-fd1c-4720-a019-e0d8c5a032dd"],
     "."
    }],ExpressionUUID->"e2723d93-2635-43a3-9b6b-3407beddcff2"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["PermutationCandidates"]], 
         "paclet:WolframInstitute/Puzzles/ref/PermutationCandidates", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          StyleBox["e\:2081", "TI"], ",", " ", 
          StyleBox["e\:2082", "TI"], ",", " ", "\[Ellipsis]"}], "}"}], ",", 
        " ", 
        StyleBox["k", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "3e1b887d-c49d-4468-9330-9e4246478296"],
     "\[LineSeparator]",
     "gives the orderings of ",
     StyleBox["k", "TI"],
     " of the elements, in the order of ",
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["Permutations"]], "paclet:ref/Permutations"},
        "RefLink",
        BaseStyle->{"InlineFormula"}], "[", 
       RowBox[{
        StyleBox["list", "TI"], ",", " ", 
        RowBox[{"{", 
         StyleBox["k", "TI"], "}"}]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "902cfa82-fb54-4cf8-ab87-f0a7469da245"],
     "."
    }],ExpressionUUID->"4166eab2-89b6-4712-9522-b84b9f1248f4"]}
  }]], "Usage",ExpressionUUID->"d8c0b54f-5095-4742-8274-ee4467f31a57"]
}, 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->"5f9574dd-4917-4207-bb19-568ef4b3f36e"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"feca0d20-af16-43f3-8623-6e730723467f"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "6be9f9d2-cda4-4e0f-807f-46498ddfd5fe"]],ExpressionUUID->"6848cc77-145d-\
401f-bef1-5c0604d98c2d"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1148781421,ExpressionUUID->"7b44e1ae-3bbd-4183-b463-47c2103da258"],

Cell[TextData[{
 "The enumeration order is exactly that of ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Permutations"]], "paclet:ref/Permutations"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "606d3375-1801-41ba-9a99-91c920fb739f"],
 ": lexicographic in element position."
}], "Notes",ExpressionUUID->"67823652-36f5-4801-9486-9b54ea1cb681"],

Cell[TextData[{
 "The ",
 StyleBox["i", "TI"],
 "-th ordering is read off the Lehmer code of ",
 StyleBox["i", "TI"],
 " - 1, written in the mixed radix with bases ",
 StyleBox["n", "TI"],
 ", ",
 StyleBox["n", "TI"],
 " - 1, \[Ellipsis], ",
 StyleBox["n", "TI"],
 " - ",
 StyleBox["k", "TI"],
 " + 1 by ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["IntegerDigits"]], "paclet:ref/IntegerDigits"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "49616ce6-a145-48a4-93cb-027f53457463"],
 " and ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["MixedRadix"]], "paclet:ref/MixedRadix"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6dcacc33-38bb-47a3-86af-47f1898bd25c"],
 ". Nothing before the ",
 StyleBox["i", "TI"],
 "-th is produced."
}], "Notes",ExpressionUUID->"d55967ec-299f-4597-bce0-6521c6130148"],

Cell[TextData[{
 "The count is ",
 StyleBox["n", "TI"],
 "!/(",
 StyleBox["n", "TI"],
 " - ",
 StyleBox["k", "TI"],
 ")!, computed from ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Factorial"]], "paclet:ref/Factorial"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "44909e1c-f38b-4331-8503-277be4fc0015"],
 "."
}], "Notes",ExpressionUUID->"90f23972-bdce-4e6f-b997-7f38041000db"],

Cell[TextData[{
 "Only a duplicate-free list is in scope. ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Permutations"]], "paclet:ref/Permutations"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6d795bc2-309d-4846-b950-9c1d87cd5081"],
 " collapses repeated elements, so a list with repeats has fewer than ",
 StyleBox["n", "TI"],
 "!/(",
 StyleBox["n", "TI"],
 " - ",
 StyleBox["k", "TI"],
 ")! distinct orderings and the indexing would not agree with it; such a list \
matches no definition and the call is returned unevaluated."
}], "Notes",ExpressionUUID->"b00b6a50-6881-46a7-abdb-cf3bfc342025"],

Cell[TextData[{
 "A ",
 StyleBox["k", "TI"],
 " below zero or above the number of elements likewise matches no \
definition."
}], "Notes",ExpressionUUID->"dc04717e-38cf-4bf0-8eb4-f60853f788d4"],

Cell["\<\
Restoring the order of a known set of words, and anagramming a fragment, are \
the two searches this space is for.\
\>", "Notes",ExpressionUUID->"da96f5f7-be1d-4a83-95c6-864beeb4ed80"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"cccc7d41-448e-4064-9360-184207cf4f25"],

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->"6808cd38-0c68-4e62-a1ac-dad73537e0de"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"18c013cd-c8ad-41ea-81db-9e20455276e4"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "58e77be1-2472-45bc-ac96-64a403b6dc12"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1691356217,ExpressionUUID->"bbb44d84-af20-43bc-bb61-9380c1faa3c2"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"62f93384-e335-4c8e-8cbf-b0e8ba726e81"],

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->
  "5ed6e378-dcfc-4aa2-a666-02ce0381a146"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"af74b28f-71df-4986-a683-c2beab180776"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "93368c37-ec7e-48e4-96e0-9a1a8fe54704"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->382903780,ExpressionUUID->"237d66e6-22dd-4345-9988-2ee23beb3659"],

Cell["Every ordering of three words:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"ca7f4fea-1291-42ac-9a81-5075f091f2c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"PermutationCandidates", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<correct\>\"", ",", " ", "\"\<horse\>\"", ",", 
     " ", "\"\<battery\>\""}], "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ce2921af-40bf-4f60-abfa-1db4a81da5ca"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"correct\"\>", ",", "\<\"horse\"\>", ",", "\<\"battery\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"correct\"\>", ",", "\<\"battery\"\>", ",", "\<\"horse\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"horse\"\>", ",", "\<\"correct\"\>", ",", "\<\"battery\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"horse\"\>", ",", "\<\"battery\"\>", ",", "\<\"correct\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"battery\"\>", ",", "\<\"correct\"\>", ",", "\<\"horse\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"battery\"\>", ",", "\<\"horse\"\>", ",", "\<\"correct\"\>"}],
     "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0635edfe-689a-44ea-be0d-44b6b548aeb1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a5d190e7-631b-4f0c-aa45-2be0258fbfe2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9d45899e-1344-4e69-\
9314-3f5cf9e0161c"],

Cell["Orderings of a chosen number of the elements:", "ExampleText",ExpressionUUID->"0937c3d8-b520-481c-8f91-ac06e85c60b8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"PermutationCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\"", ",", " ", "\"\<c\>\"", ",", 
      " ", "\"\<d\>\""}], "}"}], ",", " ", "2"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f73b238c-a49f-4ab8-ae51-145eef447092"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"c\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"d\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"b\"\>", ",", "\<\"a\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"b\"\>", ",", "\<\"d\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"c\"\>", ",", "\<\"a\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"c\"\>", ",", "\<\"b\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"c\"\>", ",", "\<\"d\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"d\"\>", ",", "\<\"a\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"d\"\>", ",", "\<\"b\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"d\"\>", ",", "\<\"c\"\>"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"463bb33e-0fd6-46ac-a234-855c25678bd4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "03f573d5-80c9-438f-af5a-8b58c81c3a72"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"eeac144a-b272-4371-\
a343-15f7a451339f"],

Cell["The count of a space too large to produce:", "ExampleText",ExpressionUUID->"cb2a011a-a12a-4531-bea4-d32990d5cf7f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"PermutationCandidates", "[", 
   RowBox[{"Range", "[", "12", "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"74b1874a-b0f8-4024-b3ef-8cdc8656541a"],

Cell[BoxData["479001600"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1b08961c-0d71-40d9-aa7c-1d3e99124eff"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

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->
  "0a2d651d-371a-4df4-bf2e-6ee1ac088de3"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2c69c1ce-ebaa-4eb1-946c-fe4e00bbebb6"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "f90955c5-dff3-49f7-920f-bbaac7b825a1"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"273c13f5-eabf-4cb7-bb53-f05c1992692c"],

Cell["\<\
The last ordering of twelve elements, indexed directly out of a space of \
479001600:\
\>", "ExampleText",ExpressionUUID->"ea55f058-18ad-4324-92d2-13e675fe459a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PermutationCandidates", "[", 
   RowBox[{"Range", "[", "12", "]"}], "]"}], "[", "479001600", "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4dad773a-b2d4-4d25-8c28-4e1bbec1b9dd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "12", ",", "11", ",", "10", ",", "9", ",", "8", ",", "7", ",", "6", ",", 
   "5", ",", "4", ",", "3", ",", "2", ",", "1"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7419e37b-4fc3-499c-b0e6-9e04dbcaf345"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "67f0e6bc-2eb4-4fdf-b5a3-8cc85f012730"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"deb3dc28-f76f-4a46-\
96c8-a5a0307b449a"],

Cell["\<\
An anagram search over the letters of a word is a permutation space over its \
characters:\
\>", "ExampleText",ExpressionUUID->"2ab07eb6-677e-4de1-9d0a-c68324edf412"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringJoin", " ", "/@", " ", 
  RowBox[{"Normal", "[", 
   RowBox[{"PermutationCandidates", "[", 
    RowBox[{"Characters", "[", "\"\<abc\>\"", "]"}], "]"}], "]"}]}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"17863268-7b50-4a80-85d0-1963d5c4ccfd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"abc\"\>", ",", "\<\"acb\"\>", ",", "\<\"bac\"\>", 
   ",", "\<\"bca\"\>", ",", "\<\"cab\"\>", ",", "\<\"cba\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6862ae40-7584-4c14-ae6d-de82228e0836"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7ed2e416-ac2d-4fa6-bdb0-35a58705799f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2f08eeaa-3420-45ab-\
aef2-c1c30ad12b50"],

Cell["\<\
Taking none of the elements leaves the single empty ordering:\
\>", "ExampleText",ExpressionUUID->"16b87411-0ed4-4b55-a924-cc12ffb36b02"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"PermutationCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\""}], "}"}], ",", " ", "0"}], 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bba4a3f4-ebbb-41b5-b8dd-24011db0ef0e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "}"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2507003f-bd08-4ce7-9953-b67e5f64361f"]
}, Open  ]]
}, Open  ]]
}, Closed]],

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->
  "e654821e-19c7-408e-8af5-542a2e12dc72"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"f2965ab9-e2ac-4eac-bcf2-7b5741326894"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "6e9521af-5749-454d-a167-cb351c18e755"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"0f14b27c-ae91-4e03-ba64-1ff9d8a2ecb5"],

Cell[TextData[{
 "The enumeration agrees with ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Permutations"]], "paclet:ref/Permutations"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7b74cef9-a307-47aa-8b7a-a90f5bef83d9"],
 " element for element:"
}], "ExampleText",ExpressionUUID->"ac4da48a-e039-4239-85e3-f0bd701140e3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Normal", "[", 
   RowBox[{"PermutationCandidates", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", " ", "3"}], "]"}], "]"}], " ", "===",
   " ", 
  RowBox[{"Permutations", "[", 
   RowBox[{
    RowBox[{"Range", "[", "5", "]"}], ",", " ", 
    RowBox[{"{", "3", "}"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a6c91635-5dd8-473f-afaf-85697669ef23"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f99c8109-7b11-4574-a7a0-9d3d836b9939"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "330c3d2f-93a4-420d-b2df-f7edd6b2837d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7182603e-1d63-4922-\
ba2c-ed96d4088c11"],

Cell["The count is the falling factorial:", "ExampleText",ExpressionUUID->"64524311-7895-43f2-8e0e-4cd0894935a0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"PermutationCandidates", "[", 
    RowBox[{
     RowBox[{"Range", "[", "10", "]"}], ",", " ", "4"}], "]"}], "]"}], " ", "===",
   " ", 
  RowBox[{
   RowBox[{"10", "!"}], "/", 
   RowBox[{"6", "!"}]}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6ad268a1-9d19-4a2c-8a01-a85f89c1797f"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"249abd8e-c02e-4323-a4a3-67b7df5d7fbf"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "69bc10de-dd25-4e6c-bf4f-f541fd33cf94"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"8ffe1eea-e2c1-45f6-\
934e-6f50c39ba393"],

Cell["\<\
A permutation space and a subset space of the same elements differ in both \
order and size:\
\>", "ExampleText",ExpressionUUID->"8e559385-94a0-4074-b001-b6e77c2e9445"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", 
    RowBox[{"PermutationCandidates", "[", 
     RowBox[{
      RowBox[{"Range", "[", "5", "]"}], ",", " ", "2"}], "]"}], "]"}], ",", 
   " ", 
   RowBox[{"Length", "[", 
    RowBox[{"SubsetCandidates", "[", 
     RowBox[{
      RowBox[{"Range", "[", "5", "]"}], ",", " ", 
      RowBox[{"{", "2", "}"}]}], "]"}], "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"44555b63-5ed3-49a0-8dc0-7d37c12bcc5e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"20", ",", "10"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d63c0353-8149-4661-949a-7b96de592ff1"]
}, Open  ]]
}, Open  ]]
}, Closed]],

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->
  "7a8075d7-7f41-46a3-b912-1efbde28b375"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"354da46d-a033-401a-92c3-b37779214015"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "59d09f06-5acc-4155-b9f7-d90c589f5077"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"35c3c1bf-1f32-4566-87ce-ee991450e594"],

Cell[TextData[{
 "A list with a repeated element is out of scope, because ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Permutations"]], "paclet:ref/Permutations"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "745c59eb-100f-48ca-ad43-76a8bc4b8e71"],
 " would give fewer orderings than the count assumes:"
}], "ExampleText",ExpressionUUID->"4ec586aa-10ca-475f-a981-c787a4ebe3db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PermutationCandidates", "[", 
  RowBox[{"{", 
   RowBox[{"\"\<a\>\"", ",", " ", "\"\<a\>\"", ",", " ", "\"\<b\>\""}], "}"}],
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0bb7807f-1971-4454-a00a-525a814d67da"],

Cell[BoxData[
 RowBox[{"PermutationCandidates", "[", 
  RowBox[{"{", 
   RowBox[{"\<\"a\"\>", ",", "\<\"a\"\>", ",", "\<\"b\"\>"}], "}"}], 
  "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"18d1c5ac-7100-43e2-9b21-e23d3f4a9ac6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "336294b9-c529-42e8-9dcf-3c6ab6118602"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4500d18c-dc1f-4943-\
883d-331597929fce"],

Cell["Taking more elements than there are matches no definition:", \
"ExampleText",ExpressionUUID->"04e243a0-7430-4904-b541-0b5336290845"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PermutationCandidates", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\""}], "}"}], ",", " ", "5"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ce3f318a-a792-4337-8332-13b59f2bea1b"],

Cell[BoxData[
 RowBox[{"PermutationCandidates", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>"}], "}"}], ",", "5"}], 
  "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c8c089e6-6a84-4803-a1a2-ae0c31e95e36"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, 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["CandidateEnumeration"]], 
           "paclet:WolframInstitute/Puzzles/ref/CandidateEnumeration", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "19e558d7-e1f6-4109-b073-4136d5e0cd9f"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["SubsetCandidates"]], 
           "paclet:WolframInstitute/Puzzles/ref/SubsetCandidates", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c61665db-98a5-4e47-9125-44d7a002ab33"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["WordlistCandidates"]], 
           "paclet:WolframInstitute/Puzzles/ref/WordlistCandidates", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "96e8707f-867d-4758-9c42-2bd2123fa179"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["CandidateSweep"]], 
           "paclet:WolframInstitute/Puzzles/ref/CandidateSweep", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "97f2e375-b9e5-4800-80b6-99e815e0345e"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Permutations"]], "paclet:ref/Permutations"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a8378e1c-b1d0-45d7-8a56-3df21c77725c"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["MixedRadix"]], "paclet:ref/MixedRadix"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7925295e-e470-46b6-bfb0-48a3da376a4b"]
       }], "SeeAlso",ExpressionUUID->"21ea3b21-5e10-43d2-b961-6cb6dcb04747"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"e3009ee7-2372-4748-9ca2-\
3dbd3a55736a"],

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->
         "5920dfea-2c90-40b0-9d78-099e1d0168e0"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"242d108e-0d39-4fc5-ae4d-\
ba80d8e7fbcf"],

Cell[" ", "FooterCell",ExpressionUUID->"fa9a3505-30f4-4782-9c05-2bf2d53ac579"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"PermutationCandidates",
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, 44.464175}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[PermutationCandidates, paclet : \
WolframInstitute/Puzzles/ref/PermutationCandidates, WolframInstitute/Puzzles \
Package Symbol][{e\:2081, e\:2082, ...}] gives a \
PackageLink[CandidateEnumeration, paclet : \
WolframInstitute/Puzzles/ref/CandidateEnumeration, WolframInstitute/Puzzles \
Package Symbol] of all orderings of the elements, in the order of \
Permutations. PackageLink[PermutationCandidates, paclet : \
WolframInstitute/Puzzles/ref/PermutationCandidates, WolframInstitute/Puzzles \
Package Symbol][{e\:2081, e\:2082, ...}, k] gives the orderings of k of the \
elements, in the order of Permutations[list, {k}].", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "PermutationCandidates", "titlemodifier" -> 
    "", "metadescription" -> "", "windowtitle" -> "PermutationCandidates", 
    "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/PermutationCandidates", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"232b400e-e787-4d7c-9e98-1bc48c1ff659"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[18401, 514, 140, 2, 70, "ExampleText",ExpressionUUID->"ca7f4fea-1291-42ac-9a81-5075f091f2c6",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 40762, 1163}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[589, 21, 6501, 156, 70, "AnchorBarGrid",ExpressionUUID->"716af17f-aa5c-46f3-9064-0df91072cc6b",
 CellID->1],
Cell[7093, 179, 107, 0, 70, "ContextNameCell",ExpressionUUID->"3efd05eb-1b35-4e66-b57d-33473336198b"],
Cell[CellGroupData[{
Cell[7225, 183, 564, 14, 70, "ObjectNameGrid",ExpressionUUID->"782677dd-6e46-4076-a9ab-d5910ec0843d"],
Cell[7792, 199, 3051, 84, 70, "Usage",ExpressionUUID->"d8c0b54f-5095-4742-8274-ee4467f31a57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10880, 288, 1444, 34, 70, "NotesSection",ExpressionUUID->"7b44e1ae-3bbd-4183-b463-47c2103da258",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1148781421],
Cell[12327, 324, 453, 12, 70, "Notes",ExpressionUUID->"67823652-36f5-4801-9486-9b54ea1cb681"],
Cell[12783, 338, 1018, 36, 70, "Notes",ExpressionUUID->"d55967ec-299f-4597-bce0-6521c6130148"],
Cell[13804, 376, 489, 18, 70, "Notes",ExpressionUUID->"90f23972-bdce-4e6f-b997-7f38041000db"],
Cell[14296, 396, 708, 19, 70, "Notes",ExpressionUUID->"b00b6a50-6881-46a7-abdb-cf3bfc342025"],
Cell[15007, 417, 193, 5, 70, "Notes",ExpressionUUID->"dc04717e-38cf-4bf0-8eb4-f60853f788d4"],
Cell[15203, 424, 194, 3, 70, "Notes",ExpressionUUID->"da96f5f7-be1d-4a83-95c6-864beeb4ed80"]
}, Closed]],
Cell[15412, 430, 80, 0, 70, "PageDelimiter",ExpressionUUID->"cccc7d41-448e-4064-9360-184207cf4f25"],
Cell[CellGroupData[{
Cell[15517, 434, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"bbb44d84-af20-43bc-bb61-9380c1faa3c2",
 CellID->1691356217],
Cell[16922, 473, 216, 4, 70, "Input",ExpressionUUID->"62f93384-e335-4c8e-8cbf-b0e8ba726e81",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[17163, 481, 1235, 31, 70, "ExampleSection",ExpressionUUID->"237d66e6-22dd-4345-9988-2ee23beb3659",
 CellID->382903780],
Cell[18401, 514, 140, 2, 70, "ExampleText",ExpressionUUID->"ca7f4fea-1291-42ac-9a81-5075f091f2c6",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[18566, 520, 349, 7, 70, "Input",ExpressionUUID->"ce2921af-40bf-4f60-abfa-1db4a81da5ca"],
Cell[18918, 529, 816, 21, 70, "Output",ExpressionUUID->"0635edfe-689a-44ea-be0d-44b6b548aeb1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19771, 555, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9d45899e-1344-4e69-9314-3f5cf9e0161c"],
Cell[19998, 562, 123, 0, 70, "ExampleText",ExpressionUUID->"0937c3d8-b520-481c-8f91-ac06e85c60b8"],
Cell[CellGroupData[{
Cell[20146, 566, 388, 8, 70, "Input",ExpressionUUID->"f73b238c-a49f-4ab8-ae51-145eef447092"],
Cell[20537, 576, 1032, 27, 70, "Output",ExpressionUUID->"463bb33e-0fd6-46ac-a234-855c25678bd4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21618, 609, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"eeac144a-b272-4371-a343-15f7a451339f"],
Cell[21845, 616, 120, 0, 70, "ExampleText",ExpressionUUID->"cb2a011a-a12a-4531-bea4-d32990d5cf7f"],
Cell[CellGroupData[{
Cell[21990, 620, 268, 5, 70, "Input",ExpressionUUID->"74b1874a-b0f8-4024-b3ef-8cdc8656541a"],
Cell[22261, 627, 115, 1, 70, "Output",ExpressionUUID->"1b08961c-0d71-40d9-aa7c-1d3e99124eff"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22437, 635, 1227, 31, 70, "ExampleSection",ExpressionUUID->"273c13f5-eabf-4cb7-bb53-f05c1992692c",
 CellID->1293636265],
Cell[23667, 668, 171, 3, 70, "ExampleText",ExpressionUUID->"ea55f058-18ad-4324-92d2-13e675fe459a"],
Cell[CellGroupData[{
Cell[23863, 675, 273, 6, 70, "Input",ExpressionUUID->"4dad773a-b2d4-4d25-8c28-4e1bbec1b9dd"],
Cell[24139, 683, 262, 5, 70, "Output",ExpressionUUID->"7419e37b-4fc3-499c-b0e6-9e04dbcaf345"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24438, 693, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"deb3dc28-f76f-4a46-96c8-a5a0307b449a"],
Cell[24665, 700, 176, 3, 70, "ExampleText",ExpressionUUID->"2ab07eb6-677e-4de1-9d0a-c68324edf412"],
Cell[CellGroupData[{
Cell[24866, 707, 329, 7, 70, "Input",ExpressionUUID->"17863268-7b50-4a80-85d0-1963d5c4ccfd"],
Cell[25198, 716, 259, 5, 70, "Output",ExpressionUUID->"6862ae40-7584-4c14-ae6d-de82228e0836"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25506, 727, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2f08eeaa-3420-45ab-aef2-c1c30ad12b50"],
Cell[25733, 734, 147, 2, 70, "ExampleText",ExpressionUUID->"16b87411-0ed4-4b55-a924-cc12ffb36b02"],
Cell[CellGroupData[{
Cell[25905, 740, 339, 8, 70, "Input",ExpressionUUID->"bba4a3f4-ebbb-41b5-b8dd-24011db0ef0e"],
Cell[26247, 750, 147, 3, 70, "Output",ExpressionUUID->"2507003f-bd08-4ce7-9953-b67e5f64361f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26455, 760, 1244, 31, 70, "ExampleSection",ExpressionUUID->"0f14b27c-ae91-4e03-ba64-1ff9d8a2ecb5",
 CellID->2123667759],
Cell[27702, 793, 431, 12, 70, "ExampleText",ExpressionUUID->"ac4da48a-e039-4239-85e3-f0bd701140e3"],
Cell[CellGroupData[{
Cell[28158, 809, 465, 12, 70, "Input",ExpressionUUID->"a6c91635-5dd8-473f-afaf-85697669ef23"],
Cell[28626, 823, 110, 1, 70, "Output",ExpressionUUID->"f99c8109-7b11-4574-a7a0-9d3d836b9939"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28773, 829, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7182603e-1d63-4922-ba2c-ed96d4088c11"],
Cell[29000, 836, 113, 0, 70, "ExampleText",ExpressionUUID->"64524311-7895-43f2-8e0e-4cd0894935a0"],
Cell[CellGroupData[{
Cell[29138, 840, 401, 11, 70, "Input",ExpressionUUID->"6ad268a1-9d19-4a2c-8a01-a85f89c1797f"],
Cell[29542, 853, 110, 1, 70, "Output",ExpressionUUID->"249abd8e-c02e-4323-a4a3-67b7df5d7fbf"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29701, 860, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"8ffe1eea-e2c1-45f6-934e-6f50c39ba393"],
Cell[29928, 867, 178, 3, 70, "ExampleText",ExpressionUUID->"8e559385-94a0-4074-b001-b6e77c2e9445"],
Cell[CellGroupData[{
Cell[30131, 874, 532, 14, 70, "Input",ExpressionUUID->"44555b63-5ed3-49a0-8dc0-7d37c12bcc5e"],
Cell[30666, 890, 154, 3, 70, "Output",ExpressionUUID->"d63c0353-8149-4661-949a-7b96de592ff1"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30881, 900, 1237, 31, 70, "ExampleSection",ExpressionUUID->"35c3c1bf-1f32-4566-87ce-ee991450e594",
 CellID->1305812373],
Cell[32121, 933, 489, 12, 70, "ExampleText",ExpressionUUID->"4ec586aa-10ca-475f-a981-c787a4ebe3db"],
Cell[CellGroupData[{
Cell[32635, 949, 295, 6, 70, "Input",ExpressionUUID->"0bb7807f-1971-4454-a00a-525a814d67da"],
Cell[32933, 957, 238, 5, 70, "Output",ExpressionUUID->"18d1c5ac-7100-43e2-9b21-e23d3f4a9ac6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33208, 967, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4500d18c-dc1f-4943-883d-331597929fce"],
Cell[33435, 974, 138, 1, 70, "ExampleText",ExpressionUUID->"04e243a0-7430-4904-b541-0b5336290845"],
Cell[CellGroupData[{
Cell[33598, 979, 302, 7, 70, "Input",ExpressionUUID->"ce3f318a-a792-4337-8332-13b59f2bea1b"],
Cell[33903, 988, 245, 6, 70, "Output",ExpressionUUID->"c8c089e6-6a84-4803-a1a2-ae0c31e95e36"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[34199, 1000, 3519, 93, 70, "SeeAlsoSection",ExpressionUUID->"e3009ee7-2372-4748-9ca2-3dbd3a55736a"],
Cell[37721, 1095, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"242d108e-0d39-4fc5-ae4d-ba80d8e7fbcf"],
Cell[38416, 1116, 78, 0, 70, "FooterCell",ExpressionUUID->"fa9a3505-30f4-4782-9c05-2bf2d53ac579"]
}
]
*)

(* End of internal cache information *)

