(* 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[     52046,       1412]
NotebookOptionsPosition[     41792,       1225]
NotebookOutlinePosition[     44617,       1286]
CellTagsIndexPosition[     44539,       1281]
WindowTitle->SubsetCandidates
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->
           "2fd9cece-1b40-4f0f-b914-197f59b4c1d6"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "deb2ceb3-b5e0-49ed-8d6b-9840d2da810d"],
        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->
           "faf423ac-ad3f-4f68-abdf-1c83e23ef4bf"]
         }],ExpressionUUID->"afb96826-65b0-45bd-af06-01f36796ae96"],
         StripOnInput->False],{
        StyleBox["\"Subsets\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/Subsets"], 
         StyleBox["\"Binomial\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/Binomial"], 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[
           "\"PermutationCandidates\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PermutationCandidates"], 
         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->
      "c4dd3741-c8f5-494e-9d65-7c237ba4f8d4"],
     "\[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->
           "9259b699-c601-446c-a103-3b9b2fcb368f"]
         }],ExpressionUUID->"d84ed2f2-cdfb-4b3a-b5eb-11448bc9982e"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "294e0847-d690-43f3-a60b-19ca2f23d610"],
     "\[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->
           "bbdd1b9a-6a32-4eb1-80a3-f402ef5089de"]
         }],ExpressionUUID->"9d46c8ca-12cf-4da2-bb3d-10cd215ce781"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/SubsetCandidates\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/SubsetCandidates"], 
         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/SubsetCandidates.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/SubsetCandidates" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "add4e849-88a2-417c-b5c3-2807ccb0b9d5"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "d860e5bb-43ef-4574-bdf9-e713d3668626"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"be768eeb-f22e-401a-8c0f-911dce1d28fc"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"7c13c57b-84e9-4172-9628-e7498c840af6"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "SubsetCandidates", "ObjectName",ExpressionUUID->
      "3a227a2e-1b50-4423-a8c1-164baf64fa9b"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"f8906ca9-6eae-42e0-a0c4-65f6bb0b468e"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "9349c384-405a-4948-9d69-158ec6a1d4a8"]
    }],ExpressionUUID->"7f641314-ba39-4fab-a1aa-a9a579c045a3"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"cbc2a14c-1c52-4b29-9c05-\
e39a7f59a0b9"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SubsetCandidates"]], 
         "paclet:WolframInstitute/Puzzles/ref/SubsetCandidates", 
         "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->
      "53d529fa-f9b0-41d0-b821-bfbb205f5dac"],
     "\[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->
      "1def96d5-4bb1-4d3c-a51a-3a688fa7f879"],
     " of all subsets of the elements, in the order of ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Subsets"]], "paclet:ref/Subsets"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "8addcdbe-88c9-4647-885e-0febfbc7dd8c"],
     "."
    }],ExpressionUUID->"fb343708-8470-4458-bc16-7b9276261b43"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SubsetCandidates"]], 
         "paclet:WolframInstitute/Puzzles/ref/SubsetCandidates", 
         "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->
      "deea2908-dabe-4367-ba52-39ade956ff37"],
     "\[LineSeparator]",
     "gives the subsets of length at most ",
     StyleBox["k", "TI"],
     "."
    }],ExpressionUUID->"072f978f-1c37-4177-8876-f53dd64322c2"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SubsetCandidates"]], 
         "paclet:WolframInstitute/Puzzles/ref/SubsetCandidates", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          StyleBox["e\:2081", "TI"], ",", " ", 
          StyleBox["e\:2082", "TI"], ",", " ", "\[Ellipsis]"}], "}"}], ",", 
        " ", 
        RowBox[{"{", 
         StyleBox["k", "TI"], "}"}]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "9d12984d-9928-4f25-805a-9c1b51942b00"],
     "\[LineSeparator]",
     "gives the subsets of length exactly ",
     StyleBox["k", "TI"],
     "."
    }],ExpressionUUID->"65cac468-e2b0-4b26-ac71-606da51f1933"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SubsetCandidates"]], 
         "paclet:WolframInstitute/Puzzles/ref/SubsetCandidates", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          StyleBox["e\:2081", "TI"], ",", " ", 
          StyleBox["e\:2082", "TI"], ",", " ", "\[Ellipsis]"}], "}"}], ",", 
        " ", 
        RowBox[{"{", 
         RowBox[{
          StyleBox["kmin", "TI"], ",", " ", 
          StyleBox["kmax", "TI"]}], "}"}]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "03605b09-dddc-4971-aa60-dd0981570b04"],
     "\[LineSeparator]",
     "gives the subsets of length ",
     StyleBox["kmin", "TI"],
     " through ",
     StyleBox["kmax", "TI"],
     "."
    }],ExpressionUUID->"6d908c02-c001-4228-8646-4f4f9a7b462b"]}
  }]], "Usage",ExpressionUUID->"72ed9ef7-636b-4f7a-9a3e-ec2682df4578"]
}, 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->"8e2a1f5f-f255-48b2-94f7-67b10aece994"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"05b91bae-cd2e-48dd-acf5-bc3b28e46f5c"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "6944ce14-8489-41c3-ba8f-9c4976657ec2"]],ExpressionUUID->"28a20fe2-2e9f-\
461d-aa6d-4e01e81e5c10"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->981144384,ExpressionUUID->"22716579-1b92-43c6-a9e4-141d50035a69"],

Cell[TextData[{
 "The enumeration order is exactly that of ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Subsets"]], "paclet:ref/Subsets"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b3d8588e-4722-4a5d-ad86-f20163197cb0"],
 ": by increasing length, and lexicographic in element position within a \
length."
}], "Notes",ExpressionUUID->"85649495-9b0c-4a7a-81f8-58d037d680ef"],

Cell[TextData[{
 "The count is computed from ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Binomial"]], "paclet:ref/Binomial"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e0b2870e-5b87-4722-89c7-3a32838a9dbe"],
 " rather than by producing the subsets, so a space far larger than memory \
still reports its length at once."
}], "Notes",ExpressionUUID->"36e769a5-4b7f-44fc-8036-c9154c3655a6"],

Cell[TextData[{
 "Indexed access is delegated to the kernel's own ",
 Cell[BoxData[
  RowBox[{
   TemplateBox[{
     Cell[
      TextData["Subsets"]], "paclet:ref/Subsets"},
    "RefLink",
    BaseStyle->{"InlineFormula"}], "[", 
   RowBox[{
    StyleBox["list", "TI"], ",", " ", 
    StyleBox["spec", "TI"], ",", " ", 
    RowBox[{"{", 
     StyleBox["i", "TI"], "}"}]}], "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1dd60237-8117-4659-a63f-9a446724dccb"],
 " form, so the ",
 StyleBox["i", "TI"],
 "-th subset of a space of billions is one call away."
}], "Notes",ExpressionUUID->"4ae3b09f-31f1-46f2-b34e-79517d26517b"],

Cell[TextData[{
 "A length specification outside the forms ",
 Cell[BoxData["All"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a055fb5b-f3a0-4fb8-ab7f-fc313e88a0be"],
 ", ",
 StyleBox["k", "TI"],
 ", {",
 StyleBox["k", "TI"],
 "} and {",
 StyleBox["kmin", "TI"],
 ", ",
 StyleBox["kmax", "TI"],
 "} matches no definition and the call is returned unevaluated."
}], "Notes",ExpressionUUID->"97f24b33-b514-4fdf-a69f-b8b702bc2a00"],

Cell[TextData[{
 "A length range that reaches past the number of elements is clipped, exactly \
as ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Subsets"]], "paclet:ref/Subsets"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8c6ad443-0c71-477f-bb14-136147e218d1"],
 " clips it."
}], "Notes",ExpressionUUID->"af423b10-eb7f-4ff7-a0a6-586712679f51"],

Cell[TextData[{
 "The elements need not be strings; a subset is whatever ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Subsets"]], "paclet:ref/Subsets"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a92e932b-97da-47e9-8f06-d30039683b74"],
 " gives. A sweep that wants strings joins them itself."
}], "Notes",ExpressionUUID->"1d10788a-0857-488e-a2e3-8fcd044993f8"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"a873a399-5554-45f9-ac84-736757e490ea"],

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->"5e57fd11-5c93-4082-b598-d05d4e63c854"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b6eb6d9f-8748-48a9-b10e-3b1156e25f85"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "29e246e4-168d-42fb-824c-fb4707693580"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1714220222,ExpressionUUID->"c35fc6df-06d0-424c-a57c-ac07e42efb11"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"644430c8-9a66-410f-9f4f-6ede74e0465d"],

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->
  "60e31330-da30-4561-b799-2f86ba2433e2"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"85efc2d4-53d4-4287-8b61-50fbeaf12a08"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "6f43d9d2-a80d-4c91-8020-2136df4a651b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258663002,ExpressionUUID->"ef405b8d-441f-4218-b563-5f58149fb0f0"],

Cell[TextData[{
 "Every subset of three elements, in the order of ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Subsets"]], "paclet:ref/Subsets"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1cad55b8-a77f-4c3e-92e9-9c0f070556d7"],
 ":"
}], "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"95733981-dfe7-4cb9-9001-637b489c2c9b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"SubsetCandidates", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\"", ",", " ", "\"\<c\>\""}], 
    "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1369a40d-3f34-4dea-9e31-6e1c62d82938"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "\<\"a\"\>", "}"}], ",", 
   RowBox[{"{", "\<\"b\"\>", "}"}], ",", 
   RowBox[{"{", "\<\"c\"\>", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"c\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9b81d5e0-0773-49f2-8004-5a58b439529a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5b6129c5-7685-46c0-a5de-e2433bb83a09"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"50c8e9a5-57c4-4aeb-\
91a1-777ed445be81"],

Cell["The subsets of a fixed length:", "ExampleText",ExpressionUUID->"5efde77a-8c48-400e-987e-eb25fcd1b268"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"SubsetCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\"", ",", " ", "\"\<c\>\"", ",", 
      " ", "\"\<d\>\""}], "}"}], ",", " ", 
    RowBox[{"{", "2", "}"}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e2663dc0-5a4d-4674-919e-0f52c28653d2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"c\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"d\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"b\"\>", ",", "\<\"d\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"c\"\>", ",", "\<\"d\"\>"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0f88a3d4-bc74-43f1-9d6c-0ee604e2c80c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7987aa83-cd2d-4ca3-a9a4-f6aca87d6879"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"328d4a19-f448-41db-\
bc57-d92be9ae9f2c"],

Cell["A count is available without producing anything:", "ExampleText",ExpressionUUID->"cd486ac9-6137-4104-a2ae-4a8e9fd3ee7f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"SubsetCandidates", "[", 
   RowBox[{
    RowBox[{"Range", "[", "64", "]"}], ",", " ", 
    RowBox[{"{", "8", "}"}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c134b339-c926-4078-b6cf-20862f8df9ae"],

Cell[BoxData["4426165368"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b44cf421-429c-48c4-bc35-62e4f9889d13"]
}, 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->
  "83a494c6-3ee5-40b8-a69b-c9ecf0b374fc"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"9a5676d8-d434-4e78-8a0f-2f6a674d28f9"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "5a0dffb9-f8da-4eb2-ac6b-1896737ddede"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"9c10ed1a-1229-4504-bf5b-81810bb6e5a0"],

Cell["The subsets of length at most two:", "ExampleText",ExpressionUUID->"074766cd-2c40-48d2-bebb-ece86085828a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"SubsetCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], ",", " ", "2"}], 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ee4a2673-eb48-42d1-9175-e80952b45e67"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b0f2a2dc-3e9c-425f-86a8-adb7458aeacf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4c688c3a-1ae3-4882-ac04-45a472c95a0f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6ead496c-5672-4026-\
b9e9-1e6307611b04"],

Cell["A range of lengths:", "ExampleText",ExpressionUUID->"6b3dcede-a336-4d3a-963e-c9f64eca877d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"SubsetCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2", ",", " ", "3", ",", " ", "4"}], "}"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"2", ",", " ", "3"}], "}"}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ab8b2719-9b6c-4951-9a96-02239320cd55"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a72cca77-de73-4d28-bfae-036f13f14532"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "fc9e055c-bf9f-491f-a0f3-946bdba611fc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c50096b2-fa55-4d64-\
aded-0b7c4df15471"],

Cell["\<\
The billionth 8-element subset of 64 elements, from a space of over four \
billion:\
\>", "ExampleText",ExpressionUUID->"38d61c99-a2be-4a79-88f2-3b649ca79d3a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SubsetCandidates", "[", 
   RowBox[{
    RowBox[{"Range", "[", "64", "]"}], ",", " ", 
    RowBox[{"{", "8", "}"}]}], "]"}], "[", 
  RowBox[{"10", "^", "9"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f17187b9-b229-48e3-9516-afed81c8be24"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "20", ",", "21", ",", "25", ",", "26", ",", "52", ",", "60", ",", 
   "61"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"556a8a82-3478-470e-a52d-47a72dd968a9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "08d04151-3ae6-483c-8ea7-2dd090301463"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b5cd8e60-69aa-4038-\
87be-b1c38dc3f01a"],

Cell["\<\
Eleven known words plus a twelfth chosen from three: which eleven-word \
subsets of a fragment are worth trying is the usual shape:\
\>", "ExampleText",ExpressionUUID->"d3cec4aa-f39a-490f-bc5d-a972ba27d8ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"SubsetCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<gold\>\"", ",", " ", "\"\<silver\>\"", ",", 
      " ", "\"\<bronze\>\""}], "}"}], ",", " ", 
    RowBox[{"{", "2", "}"}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0fd2cd73-cc56-4ba2-8432-0d95f1032de3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"gold\"\>", ",", "\<\"silver\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"gold\"\>", ",", "\<\"bronze\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"silver\"\>", ",", "\<\"bronze\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fbb26254-3dff-4cd3-9ce1-ef00aeb0e05d"]
}, 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->
  "7827af1e-ad70-4b04-a255-8d6da41b6e58"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"bd9a5aa1-0d81-4b47-86c6-228bfba0d544"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "f96e1460-81df-49c5-98f0-a3cff5a49a33"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"e28a43f9-79da-4502-8c8d-65b3404801b0"],

Cell[TextData[{
 "The enumeration agrees with ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Subsets"]], "paclet:ref/Subsets"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1b88f506-859c-4ec4-a9d9-0ccf1fc8eb2e"],
 " element for element:"
}], "ExampleText",ExpressionUUID->"3486a3ba-061d-4c19-8fec-4667164cce59"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Normal", "[", 
   RowBox[{"SubsetCandidates", "[", 
    RowBox[{
     RowBox[{"Range", "[", "5", "]"}], ",", " ", 
     RowBox[{"{", "3", "}"}]}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"Subsets", "[", 
   RowBox[{
    RowBox[{"Range", "[", "5", "]"}], ",", " ", 
    RowBox[{"{", "3", "}"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"44c122e6-abcb-4a18-89d0-16d2b680cdff"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"35ce7264-f024-45d7-a8f9-60ca8b191d47"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9851b499-f9ff-4969-8eba-9a14ac25e278"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bcae14fc-e977-4efa-\
a257-fda23df5c280"],

Cell[TextData[{
 "The count agrees with ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Binomial"]], "paclet:ref/Binomial"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a7a58801-6051-4c8f-876e-c496f8b0e669"],
 ":"
}], "ExampleText",ExpressionUUID->"03d55b10-b5ed-4816-ab14-b9c59c4c0da9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"SubsetCandidates", "[", 
    RowBox[{
     RowBox[{"Range", "[", "20", "]"}], ",", " ", 
     RowBox[{"{", "6", "}"}]}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"Binomial", "[", 
   RowBox[{"20", ",", " ", "6"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0557d57e-64ff-4421-ad25-4b34819ee31d"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1c94d621-85e8-49e0-b9fd-0b9fe2ef6e1c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "86a296c8-a777-4aa2-a95f-7e08e6196aa3"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c5c9f641-8404-4ab2-\
b04b-8e5fe38ec010"],

Cell[TextData[{
 "The full power set has ",
 Cell[BoxData[
  SuperscriptBox["2", 
   StyleBox["n", "TI"]]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "050f994c-5cc7-4085-a509-b08fc4b5a9fb"],
 " members:"
}], "ExampleText",ExpressionUUID->"0721bccc-3fd2-455b-806d-847b6d2ac5b0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"SubsetCandidates", "[", 
   RowBox[{"Range", "[", "30", "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4282789f-0496-4ac8-b688-f86acbe5c2c1"],

Cell[BoxData["1073741824"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"45158f7a-9c62-43db-bd9f-460d302e8840"]
}, 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->
  "61d09d26-a0d8-47c5-85c6-60df2e2f44c8"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"87beded0-71c7-4aaf-8e14-4818e9d5b875"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "d7c9e9d9-5521-436d-a31e-f6a39d95bc92"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"8acb3816-0e38-4d27-95ad-7e0761d8a549"],

Cell[TextData[{
 "A length specification the kernel's ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Subsets"]], "paclet:ref/Subsets"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f72d34d7-6a32-450f-a5b0-6f0fbd5087ee"],
 " does not use matches no definition:"
}], "ExampleText",ExpressionUUID->"3800e147-0b79-462e-944d-6f63c85f99a5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SubsetCandidates", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], ",", 
   " ", "\"\<two\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"282d63ea-c5cf-4637-ae18-3636a5af6f1f"],

Cell[BoxData[
 RowBox[{"SubsetCandidates", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "\<\"two\"\>"}], 
  "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9feb7ce5-9ded-485b-943d-c7580b5f6e4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8b1b8522-4f70-45e8-8bbb-1929b3010822"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"15c46fdb-07c0-4bd6-\
b096-3f2868255392"],

Cell["\<\
A length beyond the number of elements gives an empty space rather than an \
error:\
\>", "ExampleText",ExpressionUUID->"8c7e1838-9885-4950-8f19-e6dfaf569b7f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"SubsetCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", 
    RowBox[{"{", "5", "}"}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8bda83a6-8063-425d-a404-293f424f7ca7"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a7af570b-8afe-45c0-8003-fa1fb6ddb5ec"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, 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["CandidateEnumeration"]], 
           "paclet:WolframInstitute/Puzzles/ref/CandidateEnumeration", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c86c3c48-c4f0-4183-943a-f8103f5d77d4"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["PermutationCandidates"]], 
           "paclet:WolframInstitute/Puzzles/ref/PermutationCandidates", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e2a8858d-b1cf-443c-b1cb-50763b2eda23"],
        "\[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->
         "0181822b-ecd1-41f6-9fd0-9d82450f1d7c"],
        "\[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->
         "33558ce0-9962-4292-ad3b-0b38a0fa6f6b"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Subsets"]], "paclet:ref/Subsets"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "30e17a69-2e7d-449e-9419-bd2502d9ae26"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Binomial"]], "paclet:ref/Binomial"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "b0f2cd92-497d-43a9-8c3e-6b45c9c4316b"]
       }], "SeeAlso",ExpressionUUID->"4bf1c9e1-7121-4839-bd9e-6f001aff3f6f"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"ee727152-a5bf-4a35-b479-\
ecbf8b70feb1"],

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["Search"]], 
           "paclet:WolframInstitute/Puzzles/guide/Search"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "73811ab7-e54a-4e47-9a77-262b12408c7a"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"5411cc61-4c8e-45e7-97b1-\
3f54043109b0"],

Cell[" ", "FooterCell",ExpressionUUID->"affa3eb6-1e52-4cf8-93bf-36523e492cdd"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"SubsetCandidates",
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, 54.043458}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[SubsetCandidates, paclet : \
WolframInstitute/Puzzles/ref/SubsetCandidates, WolframInstitute/Puzzles \
Package Symbol][{e\:2081, e\:2082, ...}] gives a \
PackageLink[CandidateEnumeration, paclet : \
WolframInstitute/Puzzles/ref/CandidateEnumeration, WolframInstitute/Puzzles \
Package Symbol] of all subsets of the elements, in the order of Subsets. \
PackageLink[SubsetCandidates, paclet : \
WolframInstitute/Puzzles/ref/SubsetCandidates, WolframInstitute/Puzzles \
Package Symbol][{e\:2081, e\:2082, ...}, k] gives the subsets of length at \
most k. PackageLink[SubsetCandidates, paclet : \
WolframInstitute/Puzzles/ref/SubsetCandidates, WolframInstitute/Puzzles \
Package Symbol][{e\:2081, e\:2082, ...}, {k}] gives the subsets of length \
exactly k. PackageLink[SubsetCandidates, paclet : \
WolframInstitute/Puzzles/ref/SubsetCandidates, WolframInstitute/Puzzles \
Package Symbol][{e\:2081, e\:2082, ...}, {kmin, kmax}] gives the subsets of \
length kmin through kmax.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "SubsetCandidates", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "SubsetCandidates", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/SubsetCandidates", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"4218158d-f616-4462-afbf-19e4d0935cba"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[19761, 547, 453, 14, 70, "ExampleText",ExpressionUUID->"95733981-dfe7-4cb9-9001-637b489c2c9b",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 44381, 1275}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[584, 21, 6466, 155, 70, "AnchorBarGrid",ExpressionUUID->"be768eeb-f22e-401a-8c0f-911dce1d28fc",
 CellID->1],
Cell[7053, 178, 107, 0, 70, "ContextNameCell",ExpressionUUID->"7c13c57b-84e9-4172-9628-e7498c840af6"],
Cell[CellGroupData[{
Cell[7185, 182, 559, 14, 70, "ObjectNameGrid",ExpressionUUID->"cbc2a14c-1c52-4b29-9c05-e39a7f59a0b9"],
Cell[7747, 198, 4431, 125, 70, "Usage",ExpressionUUID->"72ed9ef7-636b-4f7a-9a3e-ec2682df4578"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12215, 328, 1443, 34, 70, "NotesSection",ExpressionUUID->"22716579-1b92-43c6-a9e4-141d50035a69",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->981144384],
Cell[13661, 364, 487, 13, 70, "Notes",ExpressionUUID->"85649495-9b0c-4a7a-81f8-58d037d680ef"],
Cell[14151, 379, 503, 13, 70, "Notes",ExpressionUUID->"36e769a5-4b7f-44fc-8036-c9154c3655a6"],
Cell[14657, 394, 680, 20, 70, "Notes",ExpressionUUID->"4ae3b09f-31f1-46f2-b34e-79517d26517b"],
Cell[15340, 416, 480, 15, 70, "Notes",ExpressionUUID->"97f24b33-b514-4fdf-a69f-b8b702bc2a00"],
Cell[15823, 433, 457, 13, 70, "Notes",ExpressionUUID->"af423b10-eb7f-4ff7-a0a6-586712679f51"],
Cell[16283, 448, 474, 12, 70, "Notes",ExpressionUUID->"1d10788a-0857-488e-a2e3-8fcd044993f8"]
}, Closed]],
Cell[16772, 463, 80, 0, 70, "PageDelimiter",ExpressionUUID->"a873a399-5554-45f9-ac84-736757e490ea"],
Cell[CellGroupData[{
Cell[16877, 467, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"c35fc6df-06d0-424c-a57c-ac07e42efb11",
 CellID->1714220222],
Cell[18282, 506, 216, 4, 70, "Input",ExpressionUUID->"644430c8-9a66-410f-9f4f-6ede74e0465d",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[18523, 514, 1235, 31, 70, "ExampleSection",ExpressionUUID->"ef405b8d-441f-4218-b563-5f58149fb0f0",
 CellID->258663002],
Cell[19761, 547, 453, 14, 70, "ExampleText",ExpressionUUID->"95733981-dfe7-4cb9-9001-637b489c2c9b",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[20239, 565, 327, 7, 70, "Input",ExpressionUUID->"1369a40d-3f34-4dea-9e31-6e1c62d82938"],
Cell[20569, 574, 608, 16, 70, "Output",ExpressionUUID->"9b81d5e0-0773-49f2-8004-5a58b439529a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21214, 595, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"50c8e9a5-57c4-4aeb-91a1-777ed445be81"],
Cell[21441, 602, 108, 0, 70, "ExampleText",ExpressionUUID->"5efde77a-8c48-400e-987e-eb25fcd1b268"],
Cell[CellGroupData[{
Cell[21574, 606, 408, 9, 70, "Input",ExpressionUUID->"e2663dc0-5a4d-4674-919e-0f52c28653d2"],
Cell[21985, 617, 582, 15, 70, "Output",ExpressionUUID->"0f88a3d4-bc74-43f1-9d6c-0ee604e2c80c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22616, 638, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"328d4a19-f448-41db-bc57-d92be9ae9f2c"],
Cell[22843, 645, 126, 0, 70, "ExampleText",ExpressionUUID->"cd486ac9-6137-4104-a2ae-4a8e9fd3ee7f"],
Cell[CellGroupData[{
Cell[22994, 649, 318, 7, 70, "Input",ExpressionUUID->"c134b339-c926-4078-b6cf-20862f8df9ae"],
Cell[23315, 658, 116, 1, 70, "Output",ExpressionUUID->"b44cf421-429c-48c4-bc35-62e4f9889d13"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23492, 666, 1227, 31, 70, "ExampleSection",ExpressionUUID->"9c10ed1a-1229-4504-bf5b-81810bb6e5a0",
 CellID->1293636265],
Cell[24722, 699, 112, 0, 70, "ExampleText",ExpressionUUID->"074766cd-2c40-48d2-bebb-ece86085828a"],
Cell[CellGroupData[{
Cell[24859, 703, 333, 8, 70, "Input",ExpressionUUID->"ee4a2673-eb48-42d1-9175-e80952b45e67"],
Cell[25195, 713, 440, 13, 70, "Output",ExpressionUUID->"b0f2a2dc-3e9c-425f-86a8-adb7458aeacf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25672, 731, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6ead496c-5672-4026-b9e9-1e6307611b04"],
Cell[25899, 738, 97, 0, 70, "ExampleText",ExpressionUUID->"6b3dcede-a336-4d3a-963e-c9f64eca877d"],
Cell[CellGroupData[{
Cell[26021, 742, 405, 10, 70, "Input",ExpressionUUID->"ab8b2719-9b6c-4951-9a96-02239320cd55"],
Cell[26429, 754, 762, 23, 70, "Output",ExpressionUUID->"a72cca77-de73-4d28-bfae-036f13f14532"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27240, 783, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c50096b2-fa55-4d64-aded-0b7c4df15471"],
Cell[27467, 790, 169, 3, 70, "ExampleText",ExpressionUUID->"38d61c99-a2be-4a79-88f2-3b649ca79d3a"],
Cell[CellGroupData[{
Cell[27661, 797, 337, 8, 70, "Input",ExpressionUUID->"f17187b9-b229-48e3-9516-afed81c8be24"],
Cell[28001, 807, 226, 5, 70, "Output",ExpressionUUID->"556a8a82-3478-470e-a52d-47a72dd968a9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28276, 818, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b5cd8e60-69aa-4038-87be-b1c38dc3f01a"],
Cell[28503, 825, 217, 3, 70, "ExampleText",ExpressionUUID->"d3cec4aa-f39a-490f-bc5d-a972ba27d8ff"],
Cell[CellGroupData[{
Cell[28745, 832, 398, 9, 70, "Input",ExpressionUUID->"0fd2cd73-cc56-4ba2-8432-0d95f1032de3"],
Cell[29146, 843, 386, 10, 70, "Output",ExpressionUUID->"fbb26254-3dff-4cd3-9ce1-ef00aeb0e05d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29593, 860, 1244, 31, 70, "ExampleSection",ExpressionUUID->"e28a43f9-79da-4502-8c8d-65b3404801b0",
 CellID->2123667759],
Cell[30840, 893, 421, 12, 70, "ExampleText",ExpressionUUID->"3486a3ba-061d-4c19-8fec-4667164cce59"],
Cell[CellGroupData[{
Cell[31286, 909, 478, 12, 70, "Input",ExpressionUUID->"44c122e6-abcb-4a18-89d0-16d2b680cdff"],
Cell[31767, 923, 110, 1, 70, "Output",ExpressionUUID->"35ce7264-f024-45d7-a8f9-60ca8b191d47"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31914, 929, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bcae14fc-e977-4efa-a257-fda23df5c280"],
Cell[32141, 936, 397, 12, 70, "ExampleText",ExpressionUUID->"03d55b10-b5ed-4816-ab14-b9c59c4c0da9"],
Cell[CellGroupData[{
Cell[32563, 952, 422, 10, 70, "Input",ExpressionUUID->"0557d57e-64ff-4421-ad25-4b34819ee31d"],
Cell[32988, 964, 110, 1, 70, "Output",ExpressionUUID->"1c94d621-85e8-49e0-b9fd-0b9fe2ef6e1c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33147, 971, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c5c9f641-8404-4ab2-b04b-8e5fe38ec010"],
Cell[33374, 978, 330, 9, 70, "ExampleText",ExpressionUUID->"0721bccc-3fd2-455b-806d-847b6d2ac5b0"],
Cell[CellGroupData[{
Cell[33729, 991, 263, 5, 70, "Input",ExpressionUUID->"4282789f-0496-4ac8-b688-f86acbe5c2c1"],
Cell[33995, 998, 116, 1, 70, "Output",ExpressionUUID->"45158f7a-9c62-43db-bd9f-460d302e8840"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[34172, 1006, 1237, 31, 70, "ExampleSection",ExpressionUUID->"8acb3816-0e38-4d27-95ad-7e0761d8a549",
 CellID->1305812373],
Cell[35412, 1039, 444, 12, 70, "ExampleText",ExpressionUUID->"3800e147-0b79-462e-944d-6f63c85f99a5"],
Cell[CellGroupData[{
Cell[35881, 1055, 307, 7, 70, "Input",ExpressionUUID->"282d63ea-c5cf-4637-ae18-3636a5af6f1f"],
Cell[36191, 1064, 244, 6, 70, "Output",ExpressionUUID->"9feb7ce5-9ded-485b-943d-c7580b5f6e4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36472, 1075, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"15c46fdb-07c0-4bd6-b096-3f2868255392"],
Cell[36699, 1082, 169, 3, 70, "ExampleText",ExpressionUUID->"8c7e1838-9885-4950-8f19-e6dfaf569b7f"],
Cell[CellGroupData[{
Cell[36893, 1089, 339, 8, 70, "Input",ExpressionUUID->"8bda83a6-8063-425d-a404-293f424f7ca7"],
Cell[37235, 1099, 107, 1, 70, "Output",ExpressionUUID->"a7af570b-8afe-45c0-8003-fa1fb6ddb5ec"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[37393, 1106, 3571, 94, 70, "SeeAlsoSection",ExpressionUUID->"ee727152-a5bf-4a35-b479-ecbf8b70feb1"],
Cell[40967, 1202, 740, 19, 70, "MoreAboutSection",ExpressionUUID->"5411cc61-4c8e-45e7-97b1-3f54043109b0"],
Cell[41710, 1223, 78, 0, 70, "FooterCell",ExpressionUUID->"affa3eb6-1e52-4cf8-93bf-36523e492cdd"]
}
]
*)

(* End of internal cache information *)

