EIWL2-30-rearranging-lists.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    546448,      13571]
NotebookOptionsPosition[    420535,      11070]
NotebookOutlinePosition[    519909,      13104]
CellTagsIndexPosition[    518789,      13059]
WindowTitle->\:91CD\:65B0\:6392\:5217\:5217\:8868 - Wolfram \
\:8BED\:8A00\:5165\:95E8\:4ECB\:7ECD \:7FFB\:8BD1 By \:90D1\:660C\:76DB
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 InterpretationBox[Cell[TextData[StyleBox[
  "\:91cd\:65b0\:6392\:5217\:5217\:8868",
   FontFamily->"Microsoft YaHei",
   FontWeight->"Normal"]], "SectionInline",
   Editable->False,
   Evaluatable->False,ExpressionUUID->
   "d88ddfc8-2eae-48c1-90a7-7912206a3536"],
  $Line = 0; Null]], "SectionDoubleDigit",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{
  3.652728456208679*^9, 3.652728527108994*^9, {3.8367276992520647`*^9, 
   3.836727707706987*^9}},
 CounterAssignments->{{"Section", 29}, {"Subsection", 0}, {
   "Subsubsection", 0}, {"Exercise", 0}},
 CellTags->"p:177",ExpressionUUID->"410569be-7f26-45af-a43e-7510b233b330"],

Cell["\<\
\:5bf9\:4e8e\:4ece\:4e00\:4e2a\:8ba1\:7b97\:4e2d\:5f97\:5230\:7684\:5217\:8868\
\:ff0c\:5728\:8fdb\:5165\:53e6\:4e00\:4e2a\:8ba1\:7b97\:4e4b\:524d\:8fdb\:884c\
\:91cd\:65b0\:6392\:5217\:662f\:5f88\:5e38\:89c1\:7684\:3002\:4f8b\:5982\:ff0c\
\:6211\:4eec\:53ef\:80fd\:6709\:4e00\:4e2a\:5305\:542b\:6210\:5bf9\:6570\:5b57\
\:7684\:5217\:8868\:ff0c\:9700\:8981\:628a\:5b83\:8f6c\:6362\:6210\:4e00\:5bf9\
\:5217\:8868\:ff0c\:6216\:8005\:53cd\:4e4b\:4ea6\:7136\:3002\
\>", "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367277302763443`*^9, 3.8367277503067627`*^9}, {
   3.836727796484954*^9, 3.8367277967500043`*^9}, 
   3.8367279294212956`*^9},ExpressionUUID->"61b2e948-dede-4c20-bb86-\
78b186c4c649"],

Cell["\:5bf9\:4e00\:4e2a\:5305\:542b\:6210\:5bf9\:6570\:5b57\:7684\:5217\:8868\
\:8fdb\:884c\:8f6c\:7f6e\:ff0c\:4f7f\:5176\:6210\:4e3a\:4e00\:5bf9\:5217\:8868\
\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367278130137725`*^9, 3.8367278139251347`*^9}, {
   3.836727911542378*^9, 3.8367279173509884`*^9}, 3.8367279553103123`*^9},
 CellTags->"i:1",ExpressionUUID->"fc5f5e0c-d60a-4f23-a4da-9ab43f315817"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Transpose", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"7", ",", "8"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"9", ",", "10"}], "}"}]}], "}"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[1]:=",ExpressionUUID->"bf8bb5a1-8390-428a-9032-c3070ec6e260"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "6", ",", "8", ",", "10"}], "}"}]}], 
  "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[1]=",ExpressionUUID->"af58798f-aeae-4cb9-8274-c655f710fd76"]
}, Open  ]],

Cell["\:5c06\:8fd9\:5bf9\:5217\:8868\:8f6c\:6362\:56de\:5305\:542b\:6210\:5bf9\
\:6570\:5b57\:7684\:5217\:8868\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367279666002555`*^9, 
  3.8367279825166826`*^9}},ExpressionUUID->"ac5e3df8-038d-480f-8ccb-\
7473e964ad7e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Transpose", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "4", ",", "6", ",", "8", ",", "10"}], "}"}]}], "}"}], 
  "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[2]:=",ExpressionUUID->"cf7e5482-6cc1-4659-89fe-34faba69bcf8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "10"}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[2]=",ExpressionUUID->"2e2fe29d-8c3c-4bd1-94e9-c07b4e233965"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["Thread",
  BaseStyle->"Link"],
 " \:662f\:4e00\:4e2a\:5bc6\:5207\:76f8\:5173\:7684\:64cd\:4f5c\:ff0c\:901a\
\:5e38\:5bf9\:751f\:6210 ",
 ButtonBox["Graph",
  BaseStyle->"Link"],
 " \:7684\:8f93\:5165\:6709\:7528\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367279995609837`*^9, 3.8367280158913727`*^9}},
 CellTags->"i:2",ExpressionUUID->"8962f7e9-0b5b-4246-a788-482a996a0407"],

Cell[TextData[{
 "\[OpenCurlyDoubleQuote]Thread\[CloseCurlyDoubleQuote] ",
 Cell[BoxData[
  ButtonBox["\[Rule]",
   BaseStyle->"Link",
   ButtonData->"Rule"]], "InlineCode",ExpressionUUID->
  "c8f131e5-c228-4aed-8a33-a68816b78172"],
 " \:9010\:9879\:4f5c\:7528\:4e8e\:4e24\:4e2a\:5217\:8868\:7684\:5143\:7d20\
\:ff1a"
}], "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836728144616975*^9, 3.8367281522847395`*^9}, {
  3.8367282382733374`*^9, 
  3.8367282405453453`*^9}},ExpressionUUID->"338e8ab4-2322-4d18-8b0d-\
246af194d18f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Thread", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5", ",", "7", ",", "9"}], "}"}], "\[Rule]", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "6", ",", "8", ",", "10"}], "}"}]}], 
  "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[3]:=",ExpressionUUID->"4db3ffd0-27a1-48bc-bb9c-57240550516b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "\[Rule]", "2"}], ",", 
   RowBox[{"3", "\[Rule]", "4"}], ",", 
   RowBox[{"5", "\[Rule]", "6"}], ",", 
   RowBox[{"7", "\[Rule]", "8"}], ",", 
   RowBox[{"9", "\[Rule]", "10"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[3]=",ExpressionUUID->"d0274e1b-ca06-4372-a5a3-65c8df7630aa"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["Partition",
  BaseStyle->"Link"],
 " \:5c06\:4e00\:4e2a\:5217\:8868\:5206\:5272\:6210\:6307\:5b9a\:5927\:5c0f\
\:7684\:5757\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836728164358906*^9, 3.8367281691255856`*^9}, {
  3.836728282964782*^9, 3.8367283025260553`*^9}},
 CellTags->"i:3",ExpressionUUID->"7d681ab3-a2ec-4534-92ab-e6f6d84c5654"],

Cell["\:5c06\:4e00\:4e2a\:5305\:542b 12 \:4e2a\:5143\:7d20\:7684\:5217\:8868\
\:5206\:5272\:6210\:5927\:5c0f\:4e3a 3 \:7684\:5757\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367283104769135`*^9, 
  3.836728327406338*^9}},ExpressionUUID->"3e54f540-e83e-48de-8ff7-\
70a7151b072c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Partition", "[", 
  RowBox[{
   RowBox[{"Range", "[", "12", "]"}], ",", "3"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[4]:=",ExpressionUUID->"4d78325e-d871-41b3-81fb-77d7ca9058ab"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "8", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "11", ",", "12"}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[4]=",ExpressionUUID->"741c73dc-27bc-4a69-b217-79c8995d5c7e"]
}, Open  ]],

Cell["\:5bf9\:4e00\:4e2a\:5b57\:7b26\:5217\:8868\:8fdb\:884c\:5206\:5272\:ff0c\
\:5c06\:5176\:663e\:793a\:5728\:4e00\:4e2a\:7f51\:683c\:4e2d\:ff1a", \
"CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367283507917266`*^9, 3.836728363961706*^9}},
 CellTags->"i:4",ExpressionUUID->"546db506-8f7a-4b56-9a5e-7112c01460eb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Partition", "[", 
    RowBox[{
     RowBox[{
     "Characters", "[", 
      "\"\<An array of text made in the Wolfram Language\>\"", "]"}], ",", 
     "9"}], "]"}], ",", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[5]:=",ExpressionUUID->"f87f3426-943d-4510-9600-5c8e554b44d5"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"A\"\>", "\<\"n\"\>", "\<\" \"\>", "\<\"a\"\>", "\<\"r\"\>", \
"\<\"r\"\>", "\<\"a\"\>", "\<\"y\"\>", "\<\" \"\>"},
    {"\<\"o\"\>", "\<\"f\"\>", "\<\" \"\>", "\<\"t\"\>", "\<\"e\"\>", \
"\<\"x\"\>", "\<\"t\"\>", "\<\" \"\>", "\<\"m\"\>"},
    {"\<\"a\"\>", "\<\"d\"\>", "\<\"e\"\>", "\<\" \"\>", "\<\"i\"\>", \
"\<\"n\"\>", "\<\" \"\>", "\<\"t\"\>", "\<\"h\"\>"},
    {"\<\"e\"\>", "\<\" \"\>", "\<\"W\"\>", "\<\"o\"\>", "\<\"l\"\>", \
"\<\"f\"\>", "\<\"r\"\>", "\<\"a\"\>", "\<\"m\"\>"},
    {"\<\" \"\>", "\<\"L\"\>", "\<\"a\"\>", "\<\"n\"\>", "\<\"g\"\>", \
"\<\"u\"\>", "\<\"a\"\>", "\<\"g\"\>", "\<\"e\"\>"}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[5]=",ExpressionUUID->"e40b500a-64cc-49f0-91fc-411f470e48b3"]
}, Open  ]],

Cell[TextData[{
 "\:5982\:679c\:4f60\:4e0d\:6307\:5b9a\:5176\:5b83\:53c2\:6570\:ff0c",
 ButtonBox["Partition",
  BaseStyle->"Link"],
 " \:4f1a\:628a\:4e00\:4e2a\:5217\:8868\:5206\:5272\:4e3a\:4e0d\:91cd\:53e0\
\:7684\:5757\:3002\:4f46\:4f60\:4e5f\:53ef\:4ee5\:628a\:5217\:8868\:5206\:5272\
\:4e3a\:5177\:6709\:67d0\:4e9b\:6307\:5b9a\:504f\:79fb\:7684\:5757\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836728379743437*^9, 
  3.8367284375398207`*^9}},ExpressionUUID->"29c7bf03-eccf-4969-a37e-\
39b55454a774"],

Cell["\:5c06\:4e00\:4e2a\:5217\:8868\:5206\:5272\:6210\:5927\:5c0f\:4e3a 3 \
\:7684\:5757\:ff0c\:504f\:79fb\:91cf\:4e3a 1\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367284607575903`*^9, 3.8367284689277706`*^9}},
 CellTags->"i:5",ExpressionUUID->"34537605-c2b5-48da-a310-292c3e2f4884"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Partition", "[", 
  RowBox[{
   RowBox[{"Range", "[", "10", "]"}], ",", "3", ",", "1"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[6]:=",ExpressionUUID->"24c1870f-6108-49bc-aa33-3c8f3c6a8877"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "7", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "8", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellTags->"LastCellOfAPage",
 CellLabel->"Out[6]=",ExpressionUUID->"deeefbef-b444-4d73-b9ca-7f266bc6cd62"]
}, Open  ]],

Cell["\:5c06\:4e00\:4e2a\:5b57\:7b26\:5217\:8868\:5206\:5272\:6210\:504f\:79fb\
\:91cf\:4e3a 1 \:7684\:5757\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367284874101768`*^9, 3.836728516654934*^9}},
 CellTags->"p:178",ExpressionUUID->"07a6ea35-a0e3-4ec4-a1ce-5ac379ddf727"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Partition", "[", 
    RowBox[{
     RowBox[{"Characters", "[", "\"\<Wolfram Language\>\"", "]"}], ",", "12", 
     ",", "1"}], "]"}], ",", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[7]:=",ExpressionUUID->"1eab4ac3-5a03-4d5f-9a98-de7920259e04"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"W\"\>", "\<\"o\"\>", "\<\"l\"\>", "\<\"f\"\>", "\<\"r\"\>", \
"\<\"a\"\>", "\<\"m\"\>", "\<\" \"\>", "\<\"L\"\>", "\<\"a\"\>", "\<\"n\"\>", \
"\<\"g\"\>"},
    {"\<\"o\"\>", "\<\"l\"\>", "\<\"f\"\>", "\<\"r\"\>", "\<\"a\"\>", \
"\<\"m\"\>", "\<\" \"\>", "\<\"L\"\>", "\<\"a\"\>", "\<\"n\"\>", "\<\"g\"\>", \
"\<\"u\"\>"},
    {"\<\"l\"\>", "\<\"f\"\>", "\<\"r\"\>", "\<\"a\"\>", "\<\"m\"\>", "\<\" \
\"\>", "\<\"L\"\>", "\<\"a\"\>", "\<\"n\"\>", "\<\"g\"\>", "\<\"u\"\>", \
"\<\"a\"\>"},
    {"\<\"f\"\>", "\<\"r\"\>", "\<\"a\"\>", "\<\"m\"\>", "\<\" \"\>", \
"\<\"L\"\>", "\<\"a\"\>", "\<\"n\"\>", "\<\"g\"\>", "\<\"u\"\>", "\<\"a\"\>", \
"\<\"g\"\>"},
    {"\<\"r\"\>", "\<\"a\"\>", "\<\"m\"\>", "\<\" \"\>", "\<\"L\"\>", \
"\<\"a\"\>", "\<\"n\"\>", "\<\"g\"\>", "\<\"u\"\>", "\<\"a\"\>", "\<\"g\"\>", \
"\<\"e\"\>"}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[7]=",ExpressionUUID->"88e29c32-6eb1-4f18-8c10-9ebce66c915a"]
}, Open  ]],

Cell["\:4f7f\:7528\:504f\:79fb\:91cf 2\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367285508063498`*^9, 
  3.8367285580236363`*^9}},ExpressionUUID->"e244d449-0ea1-4edd-accd-\
ddfbe9f847c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Partition", "[", 
    RowBox[{
     RowBox[{"Characters", "[", "\"\<Wolfram Language\>\"", "]"}], ",", "12", 
     ",", "2"}], "]"}], ",", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[8]:=",ExpressionUUID->"19fff1eb-0296-4fa3-ad97-2375e2bf498b"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"W\"\>", "\<\"o\"\>", "\<\"l\"\>", "\<\"f\"\>", "\<\"r\"\>", \
"\<\"a\"\>", "\<\"m\"\>", "\<\" \"\>", "\<\"L\"\>", "\<\"a\"\>", "\<\"n\"\>", \
"\<\"g\"\>"},
    {"\<\"l\"\>", "\<\"f\"\>", "\<\"r\"\>", "\<\"a\"\>", "\<\"m\"\>", "\<\" \
\"\>", "\<\"L\"\>", "\<\"a\"\>", "\<\"n\"\>", "\<\"g\"\>", "\<\"u\"\>", \
"\<\"a\"\>"},
    {"\<\"r\"\>", "\<\"a\"\>", "\<\"m\"\>", "\<\" \"\>", "\<\"L\"\>", \
"\<\"a\"\>", "\<\"n\"\>", "\<\"g\"\>", "\<\"u\"\>", "\<\"a\"\>", "\<\"g\"\>", \
"\<\"e\"\>"}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[8]=",ExpressionUUID->"71718e85-10ba-47ea-b714-919f8979f49f"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["Partition",
  BaseStyle->"Link"],
 " \:662f\:5c06\:5217\:8868\:5206\:89e3\:4e3a\:5b50\:5217\:8868\:3002\:800c \
",
 ButtonBox["Flatten",
  BaseStyle->"Link"],
 " \:5219\:662f\[OpenCurlyDoubleQuote]\:538b\:5e73\[CloseCurlyDoubleQuote]\
\:5b50\:5217\:8868\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836728569862152*^9, 3.8367286416740627`*^9}},
 CellTags->"i:6",ExpressionUUID->"9f96a35b-4542-4681-ad9b-c1422f29e43a"],

Cell["\:521b\:5efa\:8fde\:7eed\:6574\:6570\:7684\:5404\:4f4d\:6570\:7684\:5217\
\:8868\:7684\:5217\:8868\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836728658970873*^9, 3.836728683761056*^9}, {
  3.8367287142179136`*^9, 
  3.8367287178770714`*^9}},ExpressionUUID->"a8105255-07f5-4e0e-8753-\
625d643300e0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerDigits", "/@", 
  RowBox[{"Range", "[", "20", "]"}]}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[9]:=",ExpressionUUID->"d5435fbe-840d-4df1-8cc1-821a04dfa0a9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "6", "}"}], ",", 
   RowBox[{"{", "7", "}"}], ",", 
   RowBox[{"{", "8", "}"}], ",", 
   RowBox[{"{", "9", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0"}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[9]=",ExpressionUUID->"f7dab78e-0ecc-4494-a3f4-d1fb25dad2f3"]
}, Open  ]],

Cell["\:521b\:5efa\:4e00\:4e2a\:538b\:5e73\:7684\:7248\:672c\:ff1a", \
"CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367287246971254`*^9, 
  3.836728733234907*^9}},ExpressionUUID->"38961a2d-ba54-464b-b387-\
0eac2318e77b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"IntegerDigits", "/@", 
   RowBox[{"Range", "[", "20", "]"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[10]:=",ExpressionUUID->"9af9062b-8555-4b9b-9d2e-c70a19e9e3b6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "2", ",", 
   "1", ",", "3", ",", "1", ",", "4", ",", "1", ",", "5", ",", "1", ",", "6", 
   ",", "1", ",", "7", ",", "1", ",", "8", ",", "1", ",", "9", ",", "2", ",", 
   "0"}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[10]=",ExpressionUUID->"196858d3-b606-458b-928f-7798a8731f23"]
}, Open  ]],

Cell["\:6839\:636e\:6570\:5b57\:7684\:987a\:5e8f\:7ed8\:5236\:4e00\:4e2a\:7ebf\
\:6761\:56fe\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367287508348837`*^9, 
  3.8367287837865367`*^9}},ExpressionUUID->"fc27c2bd-f139-4700-bc8f-\
44cd81824726"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{"Flatten", "[", 
   RowBox[{"IntegerDigits", "/@", 
    RowBox[{"Range", "[", "20", "]"}]}], "]"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[11]:=",ExpressionUUID->"a4e9f557-1033-49b6-951d-6aa054d56e99"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxdkEsKwlAQBAdXLrNw4UIwCSIiQdQk/jU5g0cQXHt1j6Bi9+LVwKMomgfT
Uzxe9+cgIqbf9+N/3l3K6FMOwQwcgWNwAuZgCc76dJ+599EskC/hFXzl/+Ia
+Ubuflvktdx9G+St3P13yPdy3+OA/Cj3fU7Iz3Lf64L8Ki/Fm+i+nT0+01kj
RA==
      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->180,
  Method->{},
  PlotRange->{{0., 31.}, {0, 9.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[11]=",ExpressionUUID->"d87deb76-cac5-4537-891b-b2299b557808"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["Flatten",
  BaseStyle->"Link"],
 " \:901a\:5e38\:4f1a\:628a\:6240\:6709\:7ea7\:522b\:7684\:5217\:8868\:90fd\
\:538b\:5e73\:3002\:4f46\:5f88\:591a\:65f6\:5019\:ff0c\:4f60\:53ea\:60f3\:538b\
\:5e73\:4e00\:5c42\:5217\:8868\:3002\:8fd9\:6837\:5c31\:521b\:5efa\:4e86\:4e00\
\:4e2a 4\[Times]4 \
\:7684\:8868\:ff0c\:5176\:4e2d\:6bcf\:4e2a\:5143\:7d20\:672c\:8eab\:5c31\:662f\
\:4e00\:4e2a\:5217\:8868\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836728820190192*^9, 3.8367288481112823`*^9}, {
  3.836728883057191*^9, 3.836728900330107*^9}, {3.8367297961649537`*^9, 
  3.8367298084679565`*^9}, {3.8367299160196533`*^9, 
  3.836729916248864*^9}},ExpressionUUID->"98c94d4b-c94d-4bbf-b14e-\
33c79303eb57"],

Cell["\:521b\:5efa\:4e00\:4e2a\:5217\:8868\:7684\:5217\:8868\:7684\:5217\:8868\
\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367299251953583`*^9, 
  3.836729932532404*^9}},ExpressionUUID->"328b558b-dccb-4678-8790-\
e85399ef2439"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"IntegerDigits", "[", 
    RowBox[{"i", "^", "j"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "4"}], "}"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[12]:=",ExpressionUUID->"94944208-5bc2-4c66-afc6-ea6a9d1b96c2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", 
     RowBox[{"{", "1", "}"}], ",", 
     RowBox[{"{", "1", "}"}], ",", 
     RowBox[{"{", "1", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "2", "}"}], ",", 
     RowBox[{"{", "4", "}"}], ",", 
     RowBox[{"{", "8", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "3", "}"}], ",", 
     RowBox[{"{", "9", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "4", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "5", ",", "6"}], "}"}]}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellTags->"LastCellOfAPage",
 CellLabel->"Out[12]=",ExpressionUUID->"358d079c-7717-48c9-a1d5-b7d922893d5d"]
}, Open  ]],

Cell["\:5c06\:6240\:6709\:5bf9\:8c61\:90fd\:538b\:5e73\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836729940043888*^9, 3.8367299472941093`*^9}},
 CellTags->"p:179",ExpressionUUID->"45e67845-67dd-49f4-a507-ea4bbca9f141"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"IntegerDigits", "[", 
     RowBox[{"i", "^", "j"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[13]:=",ExpressionUUID->"fa438f03-19e6-4253-a909-5cf0fd4e2727"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "1", ",", "2", ",", "4", ",", "8", ",", "1", 
   ",", "6", ",", "3", ",", "9", ",", "2", ",", "7", ",", "8", ",", "1", ",", 
   "4", ",", "1", ",", "6", ",", "6", ",", "4", ",", "2", ",", "5", ",", 
   "6"}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[13]=",ExpressionUUID->"cb41575e-35cc-4223-9c0a-4f3f974eee0e"]
}, Open  ]],

Cell["\:53ea\:538b\:5e73\:4e00\:5c42\:5217\:8868\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367299571305933`*^9, 
  3.8367299656997604`*^9}},ExpressionUUID->"4029ff89-9725-43e0-bb3b-\
e7107ce1998b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"IntegerDigits", "[", 
      RowBox[{"i", "^", "j"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "4"}], "}"}]}], "]"}], ",", "1"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[14]:=",ExpressionUUID->"3da8ba7b-d8ff-4517-9974-4070ad6849f8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "8", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "9", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "1"}], "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5", ",", "6"}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[14]=",ExpressionUUID->"37036f6e-c41c-43b7-983b-addb89a9471f"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["ArrayFlatten",
  BaseStyle->"Link"],
 " \:662f ",
 ButtonBox["Flatten",
  BaseStyle->"Link"],
 " \:7684\:4e00\:822c\:5f62\:5f0f\:ff0c\:4ee5\:6570\:7ec4\:7684\:6570\:7ec4\
\:4e3a\:8f93\:5165\:ff0c\:5e76\:5c06\:5b83\:4eec\:538b\:5e73\:4e3a\:5355\:72ec\
\:7684\:6570\:7ec4\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836729987016081*^9, 3.836730030521995*^9}, {
  3.83673008283881*^9, 3.8367301153916636`*^9}},
 CellTags->"i:7",ExpressionUUID->"3d9b368e-714a-4cbb-9baa-902c3ec9f155"],

Cell["\:8fd9\:5c06\:751f\:6210\:4e00\:4e2a\:6df1\:5ea6\:5d4c\:5957\:7684\:7ed3\
\:6784\:ff0c\:5f88\:96be\:7406\:89e3\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836730130289482*^9, 
  3.836730139471202*^9}},ExpressionUUID->"03b9e75c-9ab6-4f43-835e-\
a158e3d46a2f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NestList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"#", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"#", ",", "#"}], "}"}]}], "}"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", "1", "}"}], "}"}], ",", "2"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[15]:=",ExpressionUUID->"6060b3ea-fd74-4ace-bf93-d8c31855011a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", "1", "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", "1", "}"}], "}"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", "1", "}"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", "1", "}"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}]}], "}"}]}], "}"}], ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[15]=",ExpressionUUID->"992c0d52-1a64-45a2-91ea-64266ad1643f"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["ArrayFlatten",
  BaseStyle->"Link"],
 " \:80fd\:4f7f\:7ed3\:6784\:66f4\:5bb9\:6613\:7406\:89e3\:4e00\:4e9b\:ff1a"
}], "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367301552098703`*^9, 3.836730166988719*^9}},
 CellTags->"i:8",ExpressionUUID->"c8b1aba6-c7ea-47de-8020-e497d6193792"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NestList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ArrayFlatten", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"#", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"#", ",", "#"}], "}"}]}], "}"}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", "1", "}"}], "}"}], ",", "2"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[16]:=",ExpressionUUID->"f7050adb-4072-42c8-9ba5-cc6d9018e97d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", "1", "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[16]=",ExpressionUUID->"baa3c445-533b-4491-a616-d5b71e93624c"]
}, Open  ]],

Cell[TextData[{
 "\:4f7f\:7528 ",
 ButtonBox["ArrayPlot",
  BaseStyle->"Link"],
 "\:ff0c\:5c31\:80fd\:5f88\:5bb9\:6613\:770b\:6e05\:53d1\:751f\:4e86\:4ec0\
\:4e48\:ff1a"
}], "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367304409607215`*^9, 
  3.836730466093857*^9}},ExpressionUUID->"a3c69c4b-08f4-4d18-8689-\
bee75291fcbc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayPlot", "/@", 
  RowBox[{"NestList", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ArrayFlatten", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"#", ",", "#"}], "}"}]}], "}"}], "]"}], "&"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", "1", "}"}], "}"}], ",", "4"}], "]"}]}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[17]:=",ExpressionUUID->"5130d1e9-6e3e-4441-a8af-26815956398d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[RasterBox[{{0}}, {{0, 0}, {1, 1}}, {0, 1}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{89.81640625, Automatic},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], 
   ",", 
   GraphicsBox[RasterBox[{{0, 0}, {0, 1}}, {{0, 0}, {2, 2}}, {0, 1}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{90.47265625, Automatic},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], 
   ",", 
   GraphicsBox[
    RasterBox[{{0, 0, 0, 0}, {0, 1, 0, 1}, {0, 0, 1, 1}, {0, 1, 1, 1}}, {{0, 
     0}, {4, 4}}, {0, 1}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{90.2109375, Automatic},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], 
   ",", 
   GraphicsBox[
    RasterBox[{{0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 1, 0, 1, 0, 1}, {0, 0, 1, 
     1, 0, 0, 1, 1}, {0, 1, 1, 1, 0, 1, 1, 1}, {0, 0, 0, 0, 1, 1, 1, 1}, {0, 
     1, 0, 1, 1, 1, 1, 1}, {0, 0, 1, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 1, 
     1}}, {{0, 0}, {8, 8}}, {0, 1}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{90.0859375, Automatic},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], 
   ",", 
   GraphicsBox[
    RasterBox[{{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 1, 
     0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1}, {0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1,
      0, 0, 1, 1}, {0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1}, {0, 0, 0,
      0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1}, {0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 
     0, 1, 1, 1, 1, 1}, {0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1}, {0, 
     1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 0, 0, 0, 0, 1,
      1, 1, 1, 1, 1, 1, 1}, {0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 
     1}, {0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 0, 1, 
     1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1}, {0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {0, 0, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
     1, 1, 1, 1}}, {{0, 0}, {16, 16}}, {0, 1}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{90.43359375, Automatic},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}]}],
   "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[17]=",ExpressionUUID->"ea7cfc28-36bb-4b00-9765-80ca27e68690"]
}, Open  ]],

Cell[TextData[{
 "\n\:751f\:6210\:5177\:6709 8 \:5c42\:5d4c\:5957\:7684",
 StyleBox["\:5206\:5f62\:8c22\:5c14\:5bbe\:65af\:57fa\:56fe\:6837",
  FontWeight->"Bold"],
 "\:ff1a"
}], "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{
  3.836730477387211*^9, {3.836730559024823*^9, 3.836730589811015*^9}},
 CellTags->"i:9",ExpressionUUID->"a1d7916b-a50c-4cfc-9557-0f61c75431ad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  RowBox[{"Nest", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ArrayFlatten", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"#", ",", "#"}], "}"}]}], "}"}], "]"}], "&"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", "1", "}"}], "}"}], ",", "8"}], "]"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[18]:=",ExpressionUUID->"ea79c986-5402-48cd-a906-940d262b704a"],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJzlmVFuGzEMRKXepFfqEXKB3v+v3daLZqfxTmhGIjl8hiAQBDOODIIY8Pvb
zx9v38Zv5uN0Zzb/jNn7zObnaIHO959XaHz/vfres/l9jsGu8ePTNh7/eqFl
POe712gYj/ev0TC+vEbD+Br2i2fzGJjd8vBplx/X0y4Pp13+0RMf9UaL/ONV
PuqNFvlxvdvl4W6XfzIX2+SfzMU2+SdzsU1+Pu+NFvmb3miRv32dBvn7tH7+
Pq2fJ5Dy+vXkI18/7o98PTny9ePqj/GWr3+80rNbvn7c3/L15Javhzn52bkp
Uw9z8rNzU6Ye5uRn56ZM/bz2ymfnpkw99IqldyTq4bUsvSNRP+5j+XoSy9cb
/bJcPXza1Y/raVcPp1290S/L1T9e7ZXekagf17tdPdzt6l+cmzL1L85NmfoX
56ZM/Xy9dyTqHb0jUe96PYF6X3n9el95/XonTvl4feenvP7wnfL6zlNef1z9
s/Uur/94xVfv8vrDd5fXd97l9WGOWuPy+jBHrXF5fZij1ri8/rz2kjUurw+9
ZI3L68NrWuPy+sMXl9d3xuX1iZ/+ar+dTh8+1nx5/XE91nx5fTjWfHl94qe/
2m+n03+86rPe+mq/nU5/XG9rvrw+3NZ8eX0yV1fN3TT6ZK6umrtp9MlcXTV3
0+jP+95aNXfT6JPeWtl7KfTJ667svRT65M+vff0E+s58eX3CYvl4ffKR1x/3
R16fHHl98Ner/XY6ffDXq/12Ov1xf8vrk1teH+bsrrmbRh/m7K65m0Yf5uyu
uZtGf157bdfcTaMPvbaz91Low2vv7L0U+uM+ltcnsbz+Zr+dTn+z306nv9lv
p9OH005/s99Op7/Zb6fT3+y30+nD3U4/aO6m0Q+au2n0g+ZuGv0Z13sp9AN7
L4V+6Osn0I+Vj9ePlY/XDyb43//Pf+/+RMP276tPNOi/d59ozh6MuqNh+/fV
dzRs/776jmYE39HgHN4dR8P276vjaNj+fXUcDc7h3XE02Iu742iwF3fH0bD9
++o4Gvw6u+NomB9fnY+G+fHV+WiYH1+dj2bA2Z2Phvnx1flomB9fnY+G+fHV
+WgG3Lvz0bC5vDofDZvLq/PRsLm8Oh8Nm8ur89Gw3lydj4b15up8NOzXWZ2P
hn291flo0J9b/bq3Phrvft5bHw36c6tf99ZHg/7c6te99dGgP7f6dW99NN79
fPb9PsO7n/fWR4P+3OrXvfXR4Jy2zm1vfTTe/Xz2/T7Du5/Pvt9n4Jy2zm1v
fTTYq9be9dZH493PZ9/vM7z7+ez7fQZ+XevX99ZH4/Xr1fw+4vXr1fw+4vXr
1fw+4vXr1fw+4vXr1fw+4vXr1fw+4vXr1fw+4vXr1fw+4p3bVef+iXduV537
J965XXXun3jndtW5f+Lt3cq9f+Dt3cq9f+D99Wr/+v7eLf7v0/09I/r7e2H7
++r7fQbb31ff7zPQv1tPddC/W+/qsP199f0+g+3vq+/3GejfrXd1cI5b4+qw
/X31/T6D7e+r7/cZOMetcXWwl61xddj+vvp+n8H299X3+wz8d6xxdZifV/P7
CPPzan4fYX5eze8jzM+r+X2E+Xk1v48wP6/m9xHm59X8PsL8vJrfR9hcV537
J2yuq879EzbXVef+CZvrqnP/hPW2cu8fsN5W7v0D9utq//q8t8X/fbr/j/5+
q1Hf7zPU9/sM9Pfqfh9R3+8z1Pf7DPX9PgP9vbrfR9T3+wz1/T5Dfb/PUN/v
M9T3+wz1/T5Dfb/PUN/vM7r5faSb30e6+X2km99Huvl9pJvfR7r5faSb30e6
zv2TrnP/pOvcP+k690869/5B594/6P3r9+79g18pFOgK
   "], {{0, 0}, {256, 256}}, {0, 
   1}],
  Frame->Automatic,
  FrameLabel->{None, None},
  FrameTicks->{{None, None}, {None, None}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{174.97265625, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
    Automatic}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellTags->"LastCellOfAPage",
 CellLabel->"Out[18]=",ExpressionUUID->"b1619ca4-3621-43b6-8b8f-440ad3e781ed"]
}, Open  ]],

Cell[TextData[{
 "\:8fd8\:6709\:8bb8\:591a\:5176\:4ed6\:65b9\:6cd5\:6765\:91cd\:65b0\:6392\
\:5217\:5217\:8868\:3002\:4f8b\:5982\:ff0c",
 ButtonBox["Split",
  BaseStyle->"Link"],
 " \:5c06\:628a\:4e00\:4e2a\:5217\:8868\:5206\:5272\:6210\:7531\:76f8\:540c\
\:5143\:7d20\:6784\:6210\:7684\:5b50\:5217\:8868\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836730603387224*^9, 3.836730616489705*^9}, {
  3.8367306530474253`*^9, 3.8367306619895906`*^9}},
 CellTags->{
  "p:180", "i:10"},ExpressionUUID->"e8dd28ff-4e1a-41df-aa0c-c92ab9b4ffef"],

Cell["\:5c06\:4e00\:4e2a\:5217\:8868\:5206\:5272\:6210\:8fde\:7eed\:7684\:76f8\
\:540c\:5143\:7d20\:7684\:5e8f\:5217\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836730671404136*^9, 3.8367306721177835`*^9}, 
   3.836730852965678*^9},ExpressionUUID->"8647de99-4bd7-459e-8d0e-\
0c8f56ff4dcd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Split", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "3", 
    ",", "1", ",", "1", ",", "1", ",", "2"}], "}"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[19]:=",ExpressionUUID->"171d3c66-5d14-467b-aeed-bbc8f4eac9a4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", "2", "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[19]=",ExpressionUUID->"332edc17-33d9-4f4e-922f-dc8cf342e0dd"]
}, Open  ]],

Cell[TextData[{
 "\:53e6\:4e00\:65b9\:9762\:ff0c",
 ButtonBox["Gather",
  BaseStyle->"Link"],
 " \:5c06\:628a\:76f8\:540c\:7684\:5143\:7d20\:6536\:96c6\:5728\:4e00\:8d77\
\:ff0c\:65e0\:8bba\:5b83\:4eec\:51fa\:73b0\:5728\:54ea\:91cc\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367308639182186`*^9, 3.836730879543925*^9}},
 CellTags->"i:11",ExpressionUUID->"ebee30da-2871-450b-a222-18220e7795cd"],

Cell["\:5c06\:5217\:8868\:4e2d\:7684\:76f8\:540c\:5143\:7d20\:6536\:96c6\:5728\
\:4e00\:8d77\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367308880621924`*^9, 
  3.8367309061275663`*^9}},ExpressionUUID->"4ff9c2f8-6f96-4668-a203-\
ee08a72626e9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gather", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "3", 
    ",", "1", ",", "1", ",", "1", ",", "2"}], "}"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[20]:=",ExpressionUUID->"03ea96e5-5327-4512-90d0-1e1989d04449"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
     "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", "3", "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[20]=",ExpressionUUID->"1ffa06b6-0b88-4ba7-8374-1cca1638a3cd"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["GatherBy",
  BaseStyle->"Link"],
 " \:6839\:636e\:5bf9\:5143\:7d20\:5e94\:7528\:4e00\:4e2a\:51fd\:6570\:7684\
\:7ed3\:679c\:6765\:6536\:96c6\:8fd9\:4e9b\:5143\:7d20\:3002\:8fd9\:4e2a\:4f8b\
\:5b50\:91cc\:4f7f\:7528\:4e86 ",
 ButtonBox["LetterQ",
  BaseStyle->"Link"],
 "\:ff0c\:6240\:4ee5\:5b83\:5206\:522b\:6536\:96c6\:4e86\:5b57\:6bcd\:548c\
\:975e\:5b57\:6bcd\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836730926979622*^9, 3.836730975947974*^9}},
 CellTags->"i:12",ExpressionUUID->"183c3a0b-bead-4f68-bede-67fcdffc6f6f"],

Cell["\:6839\:636e\:662f\:5426\:662f\:5b57\:6bcd\:6765\:6536\:96c6\:5b57\:7b26\
\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836730983774667*^9, 
  3.836730985386778*^9}},ExpressionUUID->"74b7b112-581d-40e6-a102-\
a57472362c45"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GatherBy", "[", 
  RowBox[{
   RowBox[{
   "Characters", "[", "\"\<It's true that 2+2 is equal to 4!\>\"", "]"}], ",",
    "LetterQ"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[21]:=",ExpressionUUID->"eb7ad33b-7035-4049-ba3b-9cce48491e28"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"I\"\>", ",", "\<\"t\"\>", ",", "\<\"s\"\>", ",", "\<\"t\"\>",
      ",", "\<\"r\"\>", ",", "\<\"u\"\>", ",", "\<\"e\"\>", ",", "\<\"t\"\>", 
     ",", "\<\"h\"\>", ",", "\<\"a\"\>", ",", "\<\"t\"\>", ",", "\<\"i\"\>", 
     ",", "\<\"s\"\>", ",", "\<\"e\"\>", ",", "\<\"q\"\>", ",", "\<\"u\"\>", 
     ",", "\<\"a\"\>", ",", "\<\"l\"\>", ",", "\<\"t\"\>", ",", "\<\"o\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"'\"\>", ",", "\<\" \"\>", ",", "\<\" \"\>", ",", "\<\" \"\>",
      ",", "\<\"2\"\>", ",", "\<\"+\"\>", ",", "\<\"2\"\>", ",", "\<\" \"\>", 
     ",", "\<\" \"\>", ",", "\<\" \"\>", ",", "\<\" \"\>", ",", "\<\"4\"\>", 
     ",", "\<\"!\"\>"}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[21]=",ExpressionUUID->"e619f0ae-b3f8-496d-a762-e7a56f6831ef"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["SortBy",
  BaseStyle->"Link"],
 " \:5c06\:6839\:636e\:5e94\:7528\:4e00\:4e2a\:51fd\:6570\:7684\:7ed3\:679c\
\:8fdb\:884c\:6392\:5e8f\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367756708467703`*^9, 3.836775683770297*^9}},
 CellTags->"i:13",ExpressionUUID->"ed646aae-2a9d-41b5-b49b-f351c414c2c3"],

Cell[TextData[{
 ButtonBox["Sort",
  BaseStyle->"Link"],
 " \:901a\:5e38\:5c06\:8f83\:77ed\:7684\:5217\:8868\:653e\:5728\:8f83\:957f\
\:7684\:5217\:8868\:4e4b\:524d\:ff1a"
}], "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836775695859042*^9, 3.8367757074517994`*^9}},
 CellTags->"i:14",ExpressionUUID->"411e0669-c6aa-47bb-b8eb-c8978edb4e8b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"IntegerDigits", "[", 
     RowBox[{"2", "^", "n"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "10"}], "}"}]}], "]"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[22]:=",ExpressionUUID->"3673c499-8825-49dd-8954-219b47f9470f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "8", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "2", ",", "4"}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[22]=",ExpressionUUID->"b96941a0-bbfb-4420-81f4-9ec71198b85d"]
}, Open  ]],

Cell[TextData[{
 "\:8fd9\:91cc\:7684 ",
 ButtonBox["SortBy",
  BaseStyle->"Link"],
 " \:88ab\:544a\:77e5\:6309\:6bcf\:4e2a\:5217\:8868\:4e2d\:7684\:7b2c\:4e00\
\:4e2a\:5143\:7d20\:6392\:5e8f\:ff1a"
}], "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367757560855494`*^9, 
  3.8367757838622494`*^9}},ExpressionUUID->"e79359df-5d11-46aa-9999-\
9a2fe832b7fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SortBy", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"IntegerDigits", "[", 
      RowBox[{"2", "^", "n"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "10"}], "}"}]}], "]"}], ",", "First"}], 
  "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[23]:=",ExpressionUUID->"54b1a571-214a-4c01-b188-266196fa0cfd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2"}], "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "4"}], "}"}], ",", 
   RowBox[{"{", "8", "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[23]=",ExpressionUUID->"ad4bbd12-c02b-4de7-8827-ffe20180486f"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["Sort",
  BaseStyle->"Link"],
 " \:5c06\:4e00\:4e2a\:5217\:8868\:6309\:987a\:5e8f\:6392\:5e8f\:3002",
 ButtonBox["Union",
  BaseStyle->"Link"],
 " \:8fd8\:4f1a\:5220\:9664\:6240\:6709\:91cd\:590d\:7684\:5143\:7d20\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836775814689519*^9, 3.8367758342626085`*^9}, {
  3.836775976588897*^9, 3.836775986688257*^9}},
 CellTags->"i:15",ExpressionUUID->"34f757d1-d3d1-492b-ad9d-462702a47ab6"],

Cell["\:627e\:5230\:6240\:6709\:51fa\:73b0\:7684\:4e0d\:540c\:5143\:7d20\:ff1a\
", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367760167434664`*^9, 
  3.836776053301053*^9}},ExpressionUUID->"8e12a87a-9498-48e2-9ef9-\
2ad4a460d303"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "9", ",", "5", ",", "3", ",", "1", ",", "4", ",", "3", ",", "1", 
    ",", "3", ",", "3", ",", "5", ",", "3", ",", "9"}], "}"}], "]"}]], "Input",\

 Editable->False,
 Deletable->False,
 CellLabel->"In[24]:=",ExpressionUUID->"399f5919-c33a-417e-b59f-ef53c2959016"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "3", ",", "4", ",", "5", ",", "9"}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[24]=",ExpressionUUID->"f4b217b3-6763-4b09-b9cd-7150269c1fab"]
}, Open  ]],

Cell[TextData[{
 "\:4f60\:53ef\:4ee5\:4f7f\:7528 ",
 ButtonBox["Union",
  BaseStyle->"Link"],
 " \:6765\:67e5\:627e\:51fa\:73b0\:5728\:51e0\:4e2a\:5217\:8868\:4e2d\:7684\
\:4efb\:4f55\:5143\:7d20\:7684\[OpenCurlyDoubleQuote]\:5e76\:96c6\
\[CloseCurlyDoubleQuote]\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367760625866165`*^9, 
  3.836776097309409*^9}},ExpressionUUID->"d35507f8-69f5-4b46-b432-\
e8cd594007e1"],

Cell["\:83b7\:5f97\:4e00\:4e2a\:51fa\:73b0\:5728\:4efb\:4f55\:5217\:8868\:4e2d\
\:7684\:6240\:6709\:5143\:7d20\:7684\:5217\:8868\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367761079251027`*^9, 
  3.836776121599369*^9}},ExpressionUUID->"3ad3c2f9-72c5-42b8-ad14-\
8949d742fdae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "3", ",", "7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "1", ",", "2", ",", "3", ",", "3"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "2", ",", "8", ",", "5"}], "}"}]}], 
  "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[25]:=",ExpressionUUID->"00489667-b439-4df6-838b-efd819b3bdf6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "7", ",", "8", ",", "9"}],
   "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellTags->"LastCellOfAPage",
 CellLabel->"Out[25]=",ExpressionUUID->"43b7f6df-09be-43f7-af78-3a745b7b23c9"]
}, Open  ]],

Cell["\:627e\:51fa\:6240\:6709\:5217\:8868\:4e2d\:7684\:5171\:540c\:5143\:7d20\
\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367761309782495`*^9, 3.8367761358715153`*^9}},
 CellTags->{
  "p:181", "i:16"},ExpressionUUID->"efe6522a-bd78-4ecf-8ef2-b8457ec5ba3b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Intersection", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "3", ",", "7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "1", ",", "2", ",", "3", ",", "3"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "2", ",", "8"}], "}"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[26]:=",ExpressionUUID->"f017568d-592a-47bc-840a-6d1957eee41e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[26]=",ExpressionUUID->"107ed0bb-d7de-40a3-af3d-4f4c2614053c"]
}, Open  ]],

Cell["\:627e\:51fa\:54ea\:4e9b\:5143\:7d20\:51fa\:73b0\:5728\:7b2c\:4e00\:4e2a\
\:5217\:8868\:4f46\:4e0d\:5728\:7b2c\:4e8c\:4e2a\:5217\:8868\:4e2d\:ff1a", \
"CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367761462077436`*^9, 3.836776157426651*^9}},
 CellTags->"i:17",ExpressionUUID->"4f615a91-b241-4661-8f64-df3cb4b562e9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Complement", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "1", ",", "2", ",", "3", ",", "3"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "2", ",", "8"}], "}"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[27]:=",ExpressionUUID->"abe6b14f-4af7-42e3-88cd-6ab65d1f7b05"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "5"}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[27]=",ExpressionUUID->"dc72bf8e-e83f-4365-b19b-2b48a4596431"]
}, Open  ]],

Cell["\:5bfb\:627e\:51fa\:73b0\:5728\:82f1\:8bed\:3001\:745e\:5178\:8bed\:548c\
\:571f\:8033\:5176\:8bed\:4efb\:610f\:4e00\:79cd\:8bed\:8a00\:4e2d\:7684\:5b57\
\:6bcd\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836776167845442*^9, 3.836776169279928*^9}, {
  3.836776247527442*^9, 3.8367762626409593`*^9}},
 CellTags->"i:18",ExpressionUUID->"4853d53c-311e-42cd-a756-53e9e131f615"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{
   RowBox[{"Alphabet", "[", "\"\<English\>\"", "]"}], ",", 
   RowBox[{"Alphabet", "[", "\"\<Swedish\>\"", "]"}], ",", 
   RowBox[{"Alphabet", "[", "\"\<Turkish\>\"", "]"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[28]:=",ExpressionUUID->"c2d5d2f2-931f-4d85-84c5-76e1fa0ecac9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\:011f\"\>", ",", "\<\"\:015f\"\>", ",", "\<\"a\"\>", 
   ",", "\<\"\[ARing]\"\>", ",", "\<\"\[ADoubleDot]\"\>", ",", "\<\"b\"\>", 
   ",", "\<\"c\"\>", ",", "\<\"\[CCedilla]\"\>", ",", "\<\"d\"\>", 
   ",", "\<\"e\"\>", ",", "\<\"f\"\>", ",", "\<\"g\"\>", ",", "\<\"h\"\>", 
   ",", "\<\"i\"\>", ",", "\<\"\[DotlessI]\"\>", ",", "\<\"j\"\>", 
   ",", "\<\"k\"\>", ",", "\<\"l\"\>", ",", "\<\"m\"\>", ",", "\<\"n\"\>", 
   ",", "\<\"o\"\>", ",", "\<\"\[ODoubleDot]\"\>", ",", "\<\"p\"\>", 
   ",", "\<\"q\"\>", ",", "\<\"r\"\>", ",", "\<\"s\"\>", ",", "\<\"t\"\>", 
   ",", "\<\"u\"\>", ",", "\<\"\[UDoubleDot]\"\>", ",", "\<\"v\"\>", 
   ",", "\<\"w\"\>", ",", "\<\"x\"\>", ",", "\<\"y\"\>", ",", "\<\"z\"\>"}], 
  "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[28]=",ExpressionUUID->"017a3e9b-f0a8-452c-94cb-528707f890a0"]
}, Open  ]],

Cell["\:51fa\:73b0\:5728\:745e\:5178\:8bed\:4e2d\:ff0c\:4f46\:82f1\:8bed\:4e2d\
\:6ca1\:6709\:7684\:5b57\:6bcd\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367762712892733`*^9, 
  3.8367762930178056`*^9}},ExpressionUUID->"3e44a586-4c77-4e85-b700-\
9af4b2607541"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Complement", "[", 
  RowBox[{
   RowBox[{"Alphabet", "[", "\"\<Swedish\>\"", "]"}], ",", 
   RowBox[{"Alphabet", "[", "\"\<English\>\"", "]"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[29]:=",ExpressionUUID->"6fe3bd7e-5ba6-4500-9d9c-e836f9c1f5d8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\[ARing]\"\>", ",", "\<\"\[ADoubleDot]\"\>", 
   ",", "\<\"\[ODoubleDot]\"\>"}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[29]=",ExpressionUUID->"c3594d8c-959c-4c3d-ae10-7dc5208e63bc"]
}, Open  ]],

Cell[TextData[{
 "\:4f60\:53ef\:4ee5\:5e94\:7528\:4e8e\:5217\:8868\:7684\:53e6\:4e00\:4e2a\
\:51fd\:6570\:662f ",
 ButtonBox["Riffle",
  BaseStyle->"Link"],
 "\:ff0c\:5b83\:5728\:5217\:8868\:7684\:8fde\:7eed\:5143\:7d20\:4e4b\:95f4\
\:63d2\:5165\:5bf9\:8c61\:ff1a"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836776302861998*^9, 3.8367763294126196`*^9}},
 CellTags->"i:19",ExpressionUUID->"050db292-e73c-4abf-80b1-5dbf98e00798"],

Cell["\:5728\:4e00\:4e2a\:5217\:8868\:7684\:5143\:7d20\:4e4b\:95f4\:63d2\:5165\
 x\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367763402097282`*^9, 
  3.836776350960327*^9}},ExpressionUUID->"28ecc4a8-604f-4cde-aa00-\
79f276521e5f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Riffle", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", "x"}], 
  "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[30]:=",ExpressionUUID->"1d165fa9-f436-438e-b19a-1a33592aa820"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "x", ",", "2", ",", "x", ",", "3", ",", "x", ",", "4", ",", "x", 
   ",", "5"}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[30]=",ExpressionUUID->"df9f2f3b-ed39-4b11-be92-2a4623c1cd84"]
}, Open  ]],

Cell[TextData[{
 "\:5728\:5b57\:7b26\:5217\:8868\:4e2d\:63d2\:5165 ",
 Cell[BoxData["--"], "InlineCode",ExpressionUUID->
  "8dcfea66-a260-4acb-ae83-f5b3567a8c61"],
 "\:ff1a"
}], "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367763624759464`*^9, 
  3.836776397410406*^9}},ExpressionUUID->"38b45c34-fa8a-48dc-81b5-\
d87307c9a5e3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Riffle", "[", 
  RowBox[{
   RowBox[{"Characters", "[", "\"\<WOLFRAM\>\"", "]"}], ",", "\"\<--\>\""}], 
  "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[31]:=",ExpressionUUID->"a83da58c-039a-4323-b14f-0cf288537780"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"W\"\>", ",", "\<\"--\"\>", ",", "\<\"O\"\>", ",", "\<\"--\"\>",
    ",", "\<\"L\"\>", ",", "\<\"--\"\>", ",", "\<\"F\"\>", ",", "\<\"--\"\>", 
   ",", "\<\"R\"\>", ",", "\<\"--\"\>", ",", "\<\"A\"\>", ",", "\<\"--\"\>", 
   ",", "\<\"M\"\>"}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[31]=",ExpressionUUID->"0068b4de-742e-46ca-a8b6-443dda516495"]
}, Open  ]],

Cell["\:5c06\:6240\:6709\:5bf9\:8c61\:8fde\:63a5\:5728\:4e00\:8d77\:ff0c\:5f62\
\:6210\:4e00\:4e2a\:5355\:4e00\:7684\:5b57\:7b26\:4e32\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836776407344534*^9, 
  3.836776422770193*^9}},ExpressionUUID->"ddcec93f-22e3-4c17-9402-\
095e5e7d4b3a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringJoin", "[", 
  RowBox[{"Riffle", "[", 
   RowBox[{
    RowBox[{"Characters", "[", "\"\<WOLFRAM\>\"", "]"}], ",", "\"\<--\>\""}], 
   "]"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[32]:=",ExpressionUUID->"b03d75d9-1430-4ae9-9aaa-6d9de349ed80"],

Cell[BoxData["\<\"W--O--L--F--R--A--M\"\>"], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[32]=",ExpressionUUID->"4670fad4-a968-45d9-b45e-8fe5814af880"]
}, Open  ]],

Cell[TextData[{
 "\:50cf ",
 ButtonBox["Partition",
  BaseStyle->"Link"],
 " \:8fd9\:6837\:7684\:51fd\:6570\:53ef\:4ee5\:8ba9\:4f60\:628a\:4e00\:4e2a\
\:5217\:8868\:5206\:89e3\:6210\:5b50\:5217\:8868\:3002\:6709\:65f6\:4f60\:53ea\
\:60f3\:4ece\:4e00\:4e2a\:53ef\:80fd\:7684\:5143\:7d20\:96c6\:5408\:5f00\:59cb\
\:ff0c\:7136\:540e\:4ece\:8fd9\:4e9b\:5143\:7d20\:521b\:5efa\:5217\:8868\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367764658822207`*^9, 3.8367764841884813`*^9}, {
  3.8367765914985185`*^9, 3.836776594242505*^9}},
 CellTags->
  "LastCellOfAPage",ExpressionUUID->"48b69621-b517-4e94-a9e3-e6e8fa68299b"],

Cell[TextData[{
 ButtonBox["Permutations",
  BaseStyle->"Link"],
 " \:5c06\:7ed9\:51fa\:4e00\:4e2a\:5217\:8868\:7684\:6240\:6709\:53ef\:80fd\
\:7684\:6392\:5e8f\:ff0c\:6216\:8005\:8bf4",
 StyleBox["\:6392\:5217\:7ec4\:5408",
  FontWeight->"Bold"],
 "\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367766051477613`*^9, 3.836776630586886*^9}, {
  3.836858784052329*^9, 3.836858787216485*^9}},
 CellTags->{
  "p:182", "i:20"},ExpressionUUID->"569ae83e-1c1e-4ff3-9268-9df45efba35c"],

Cell["\:751f\:6210 3 \:4e2a\:5143\:7d20\:4e00\:5171 3!=3\[Times]2\[Times]1=6 \
\:79cd\:53ef\:80fd\:7684\:6392\:5217\:7ec4\:5408\:7684\:5217\:8868\:ff1a", \
"CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836776638426573*^9, 3.836776639703824*^9}, {
   3.836776675575061*^9, 3.8367767214604874`*^9}, 
   3.8368587994885902`*^9},ExpressionUUID->"8eba414b-e90e-4af2-a16b-\
2bf76416af3f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Permutations", "[", 
  RowBox[{"{", 
   RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[33]:=",ExpressionUUID->"fe188099-6d88-4a0d-8d50-269b254dd7be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False]}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 GraphicsBoxOptions->{BaselinePosition->Scaled[0.1]},
 CellLabel->"Out[33]=",ExpressionUUID->"9697afc9-42ac-4f19-87f4-2384b021aca6"]
}, Open  ]],

Cell[TextData[{
 "\:751f\:6210 3 \:4e2a\:5143\:7d20\:4e00\:5171 ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", "3"], "=", "8"}], TraditionalForm]],ExpressionUUID->
  "80e15172-ddcc-4db3-9341-02f3fa990b93"],
 " \:4e2a\:53ef\:80fd\:7684\:5b50\:96c6\:ff1a"
}], "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836776738862465*^9, 3.836776782622907*^9}},
 CellTags->"i:21",ExpressionUUID->"54ea5451-a2b6-4bb0-9a7f-3bd9ee691de8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{"{", 
   RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[34]:=",ExpressionUUID->"9f1b285a-51f1-49eb-8784-109944d4c428"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", 
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        Frame->True,
        FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       "RGBColor[1, 0, 0]"],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[1, 0, 0],
     Editable->False,
     Selectable->False], "}"}], ",", 
   RowBox[{"{", 
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        Frame->True,
        FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       "RGBColor[0, 1, 0]"],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[0, 1, 0],
     Editable->False,
     Selectable->False], "}"}], ",", 
   RowBox[{"{", 
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        Frame->True,
        FrameStyle->RGBColor[0., 0., 0.6666666666666666],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       "RGBColor[0, 0, 1]"],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[0, 0, 1],
     Editable->False,
     Selectable->False], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False]}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 GraphicsBoxOptions->{BaselinePosition->Scaled[0.1]},
 CellLabel->"Out[34]=",ExpressionUUID->"b5ec3653-e951-4c01-9a0e-0e24868593b4"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["Tuples",
  BaseStyle->"Link"],
 " \:63a5\:6536\:4e00\:4e2a\:5143\:7d20\:5217\:8868\:ff0c\:5e76\:751f\:6210\
\:5305\:542b\:6307\:5b9a\:6570\:91cf\:7684\:8fd9\:4e9b\:5143\:7d20\:7684\:6240\
\:6709\:53ef\:80fd\:7ec4\:5408\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836776799558523*^9, 3.8367768043710423`*^9}, {
   3.8367768709101505`*^9, 3.836776880381584*^9}, 3.836858867046199*^9},
 CellTags->"i:22",ExpressionUUID->"99f2a01d-f5b1-4818-999c-f6ddda96293a"],

Cell["\:751f\:6210\:4e00\:4e2a\:7531\:5305\:542b\:4e09\:4e2a\:7ea2\:8272\:548c\
\:7eff\:8272\:6240\:6709\:53ef\:80fd\:7ec4\:5408\:7ec4\:6210\:7684\:5217\:8868\
\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367768880236006`*^9, 3.8367769368237762`*^9}, {
  3.8368588931219234`*^9, 3.8368589450912075`*^9}, {3.836858979627013*^9, 
  3.8368590009345055`*^9}},ExpressionUUID->"2be49263-ef0b-4608-87ff-\
4b9933631ef7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tuples", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Red", ",", "Green"}], "}"}], ",", "3"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[35]:=",ExpressionUUID->"c3bee2e6-2f5a-431b-a6b5-6281fde38190"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False]}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 GraphicsBoxOptions->{BaselinePosition->Scaled[0.1]},
 CellLabel->"Out[35]=",ExpressionUUID->"74da462a-4bc0-4499-96eb-99b5080146d8"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["RandomChoice",
  BaseStyle->"Link"],
 " \:8ba9\:4f60\:4ece\:4e00\:4e2a\:5143\:7d20\:5217\:8868\:4e2d\:8fdb\:884c\
\:968f\:673a\:9009\:62e9\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367769456491594`*^9, 3.8367769739172373`*^9}},
 CellTags->"i:23",ExpressionUUID->"417a256a-ff55-470a-bd2d-8ccc3d49c0ce"],

Cell["\:4ece\:4e00\:4e2a\:5217\:8868\:4e2d\:8fdb\:884c\:968f\:673a\:9009\:62e9\
\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836776983184867*^9, 
  3.8367770057779384`*^9}},ExpressionUUID->"a90b018e-4cae-43ad-903c-\
f01693ffcea5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomChoice", "[", 
  RowBox[{"{", 
   RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[36]:=",ExpressionUUID->"eef9f7ad-36ec-4cb2-b8f4-ac5b91a0fc2e"],

Cell[BoxData[
 InterpretationBox[
  ButtonBox[
   TooltipBox[
    GraphicsBox[{
      {GrayLevel[0], RectangleBox[{0, 0}]}, 
      {GrayLevel[0], RectangleBox[{1, -1}]}, 
      {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
     AspectRatio->1,
     Frame->True,
     FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
     FrameTicks->None,
     ImageSize->
      Dynamic[{Automatic, 
        1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
         Magnification])}],
     PlotRangePadding->None],
    "RGBColor[0, 1, 0]"],
   Appearance->None,
   BaseStyle->{},
   BaselinePosition->Baseline,
   ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
     If[
      Not[
       AbsoluteCurrentValue["Deployed"]], 
      SelectionMove[Typeset`box$, All, Expression]; 
      FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
      FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
      FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
      MathLink`CallFrontEnd[
        FrontEnd`AttachCell[Typeset`box$, 
         FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
         Left, Top}, 
         "ClosingActions" -> {
          "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
   DefaultBaseStyle->{},
   Evaluator->Automatic,
   Method->"Preemptive"],
  RGBColor[0, 1, 0],
  Editable->False,
  Selectable->False]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 GraphicsBoxOptions->{BaselinePosition->Scaled[0.1]},
 CellLabel->"Out[36]=",ExpressionUUID->"f813acdf-29d5-450c-bea9-6328e32ab259"]
}, Open  ]],

Cell["\:521b\:5efa\:4e00\:4e2a\:7531 20 \:4e2a\:968f\:673a\:9009\:62e9\:7ec4\
\:6210\:7684\:5217\:8868\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367770135081663`*^9, 
  3.836777030690055*^9}},ExpressionUUID->"45922204-9d4d-41f3-b4a6-\
7b053e21e5d7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomChoice", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}], ",", "20"}], 
  "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[37]:=",ExpressionUUID->"c622bed4-0d2e-457a-9c15-b5c69f0cabf0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 1, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[1, 0, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 1, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[1, 0, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 1, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 1, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 1, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[1, 0, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[1, 0, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 1, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0, 0, 1]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 GraphicsBoxOptions->{BaselinePosition->Scaled[0.1]},
 CellLabel->"Out[37]=",ExpressionUUID->"354aa7a7-5ae9-42c5-b760-b5d8e3845dfa"]
}, Open  ]],

Cell["\:521b\:5efa 5 \:4e2a\:7531 3 \
\:4e2a\:968f\:673a\:9009\:62e9\:7ec4\:6210\:7684\:5217\:8868\:ff1a", \
"CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836777043824542*^9, 
  3.8367770882315054`*^9}},ExpressionUUID->"a074f3c8-2eb9-491a-9a02-\
cd624dedc97a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomChoice", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "3"}], "}"}]}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[38]:=",ExpressionUUID->"1c4dd1a2-7095-49f2-bd8c-460a45125d64"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 1, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 1, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0., 0., 0.6666666666666666],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[0, 0, 1]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[0, 0, 1],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False], ",", 
     InterpretationBox[
      ButtonBox[
       TooltipBox[
        GraphicsBox[{
          {GrayLevel[0], RectangleBox[{0, 0}]}, 
          {GrayLevel[0], RectangleBox[{1, -1}]}, 
          {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
         AspectRatio->1,
         Frame->True,
         FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
         FrameTicks->None,
         ImageSize->
          Dynamic[{
           Automatic, 
            1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}],
         PlotRangePadding->None],
        "RGBColor[1, 0, 0]"],
       Appearance->None,
       BaseStyle->{},
       BaselinePosition->Baseline,
       ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
         If[
          Not[
           AbsoluteCurrentValue["Deployed"]], 
          SelectionMove[Typeset`box$, All, Expression]; 
          FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
          FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
          FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
          MathLink`CallFrontEnd[
            FrontEnd`AttachCell[Typeset`box$, 
             FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
             Left, Top}, 
             "ClosingActions" -> {
              "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
       DefaultBaseStyle->{},
       Evaluator->Automatic,
       Method->"Preemptive"],
      RGBColor[1, 0, 0],
      Editable->False,
      Selectable->False]}], "}"}]}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 GraphicsBoxOptions->{BaselinePosition->Scaled[0.1]},
 CellLabel->"Out[38]=",ExpressionUUID->"2b17bd04-c0b5-4a42-b76d-181d4d314efc"]
}, Open  ]],

Cell[TextData[{
 ButtonBox["RandomSample",
  BaseStyle->"Link"],
 " \:4ece\:4e00\:4e2a\:5217\:8868\:4e2d\:968f\:673a\:62bd\:53d6\:5143\:7d20\
\:ff0c\:4e0d\:4f1a\:5bf9\:4efb\:4f55\:7279\:5b9a\:7684\:5143\:7d20\:62bd\:53d6\
\:8d85\:8fc7\:4e00\:6b21\:3002"
}], "Text",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367770970192404`*^9, 3.836777124910124*^9}},
 CellTags->"i:24",ExpressionUUID->"9ca45ddf-45b6-4ccc-9ca8-584c15fef385"],

Cell["\:4ece 1 \:5230 100 \:7684\:8303\:56f4\:5185\:6311\:9009 20 \
\:4e2a\:5143\:7d20\:ff0c\:4efb\:4f55\:6570\:5b57\:90fd\:4e0d\:4f1a\:591a\:6b21\
\:6311\:9009\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.83677713429062*^9, 
  3.83677716050385*^9}},ExpressionUUID->"6c8aa36c-d4e5-4168-ae9f-\
74b7fbcfb152"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomSample", "[", 
  RowBox[{
   RowBox[{"Range", "[", "100", "]"}], ",", "20"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[39]:=",ExpressionUUID->"ab5315fd-a5a8-4bbd-b5b4-a6870e2a1ed9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "82", ",", "3", ",", "93", ",", "92", ",", "39", ",", "45", ",", "63", ",", 
   "32", ",", "79", ",", "75", ",", "34", ",", "1", ",", "11", ",", "59", ",",
    "98", ",", "67", ",", "38", ",", "44", ",", "28", ",", "76"}], 
  "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellLabel->"Out[39]=",ExpressionUUID->"a16c3b81-07a5-4bd4-8e66-94d062cc670c"]
}, Open  ]],

Cell["\:5982\:679c\:4f60\:4e0d\:6307\:5b9a\:8981\:6311\:9009\:591a\:5c11\:4e2a\
\:5143\:7d20\:ff0c\:4f60\:5c31\:4f1a\:5f97\:5230\:6574\:4e2a\:5217\:8868\:7684\
\:968f\:673a\:6392\:5e8f\:ff1a", "CodeCaption",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.8367771706272736`*^9, 
  3.8367772163332567`*^9}},ExpressionUUID->"f22e0f6f-98ca-4240-af51-\
756a2b7664c9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomSample", "[", 
  RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input",
 Editable->False,
 Deletable->False,
 CellLabel->"In[40]:=",ExpressionUUID->"20ebd000-a8b6-447e-bb55-dd87ae4c937f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "5", ",", "1", ",", "7", ",", "4", ",", "6", ",", "3", ",", "8", 
   ",", "9", ",", "10"}], "}"}]], "Output",
 Editable->False,
 Deletable->False,
 CellEditDuplicate->False,
 Evaluatable->False,
 CellTags->"LastCellOfAPage",
 CellLabel->"Out[40]=",ExpressionUUID->"ab8f3322-f09d-46b1-8f0d-81d9aeea586f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:8bcd\:6c47",
 FontFamily->"Microsoft YaHei",
 FontWeight->"Normal",
 FontSlant->"Oblique"]], "VocabularySection",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{3.836730306665305*^9},
 CellTags->"p:183",ExpressionUUID->"8e0aea5a-5a60-4e84-afe4-55fd5fe246ae"],

Cell[BoxData[GridBox[{
   {
    RowBox[{
     ButtonBox["Transpose",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:8f6c\:7f6e\:5185\:5c42\:548c\:5916\:5c42\:5217\:8868", 
     "VocabularyText",ExpressionUUID->"72c5c860-a952-4e1c-a47f-29a8a9c07488"]},
   {
    RowBox[{
     ButtonBox["Thread",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      SubscriptBox[
       StyleBox["list", "CodeVariableLrg"], "1"], "\[Rule]", 
      SubscriptBox[
       StyleBox["list", "CodeVariableLrg"], "2"]}], "]"}], " ", Cell[
    "\:9010\:9879\:4f5c\:7528\:4e8e\:4e24\:4e2a\:5217\:8868\:4e2d\:7684\:5143\
\:7d20", "VocabularyText",ExpressionUUID->
     "c1a5d2fb-2359-4cd6-b103-bcebf8be352e"]},
   {
    RowBox[{
     ButtonBox["Partition",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      StyleBox["list", "CodeVariableLrg"], ",", 
      StyleBox["n", "CodeVariableLrg"]}], "]"}], " ", Cell[
    "\:5206\:5272\:6210\:5927\:5c0f\:4e3a n \:7684\:5757 ", "VocabularyText",
     ExpressionUUID->"aa37f009-ca93-4407-bbba-3053c4505d99"]},
   {
    RowBox[{
     ButtonBox["Flatten",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:538b\:5e73\:6240\:6709\:5b50\:5217\:8868", "VocabularyText",
     ExpressionUUID->"e2738445-df89-4256-8cca-ab2dd9b5ba04"]},
   {
    RowBox[{
     ButtonBox["Flatten",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      StyleBox["list", "CodeVariableLrg"], ",", 
      StyleBox["k", "CodeVariableLrg"]}], "]"}], " ", Cell[
    "\:538b\:5e73 k \:5c42\:5b50\:5217\:8868 ", "VocabularyText",
     ExpressionUUID->"75028fb4-aa95-44f9-b9b1-0a32b7aeb993"]},
   {
    RowBox[{
     ButtonBox["ArrayFlatten",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:538b\:5e73\:6570\:7ec4\:7684\:6570\:7ec4 ", "VocabularyText",
     ExpressionUUID->"71970a72-386b-47b9-9057-4dfab4e2246d"]},
   {
    RowBox[{
     ButtonBox["Split",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:5206\:5272\:4e3a\:7531\:76f8\:540c\:5143\:7d20\:6784\:6210\:7684\:5b50\
\:5217\:8868", "VocabularyText",ExpressionUUID->
     "9a216d96-ba2b-493a-bf12-7a808e9a320a"]},
   {
    RowBox[{
     ButtonBox["Gather",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:5c06\:76f8\:540c\:7684\:5143\:7d20\:6536\:96c6\:5230\:5217\:8868\:4e2d \
", "VocabularyText",ExpressionUUID->"d43ef7a5-1384-447f-b8b1-b6f0b751f8c8"]},
   {
    RowBox[{
     ButtonBox["GatherBy",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      StyleBox["list", "CodeVariableLrg"], ",", 
      StyleBox["f", "CodeVariableLrg"]}], "]"}], " ", Cell[
    "\:6839\:636e\:5e94\:7528 f \:540e\:7684\:7ed3\:679c\:6765\:6536\:96c6", 
     "VocabularyText",ExpressionUUID->"8fa30d74-feac-491d-806f-51cd1b262ce7"]},
   {
    RowBox[{
     ButtonBox["SortBy",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      StyleBox["list", "CodeVariableLrg"], ",", 
      StyleBox["f", "CodeVariableLrg"]}], "]"}], " ", Cell[
    "\:6839\:636e\:5e94\:7528 f \:540e\:7684\:7ed3\:679c\:8fdb\:884c\:6392\
\:5e8f", "VocabularyText",ExpressionUUID->
     "9d22889d-f2d4-494b-925c-0c055fb2c639"]},
   {
    RowBox[{
     ButtonBox["Riffle",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      StyleBox["list", "CodeVariableLrg"], ",", 
      StyleBox["x", "CodeVariableLrg"]}], "]"}], " ", Cell[
    "\:5728\:5217\:8868\:4e2d\:7684\:5143\:7d20\:4e4b\:95f4\:63d2\:5165 x", 
     "VocabularyText",ExpressionUUID->"50da466f-7579-4b25-9bea-e13355076093"]},
   {
    RowBox[{
     ButtonBox["Union",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:8ba1\:7b97\:5217\:8868\:4e2d\:7684\:4e0d\:540c\:5143\:7d20", 
     "VocabularyText",ExpressionUUID->"aa8b5899-67ec-4660-976e-e944203e99a5"]},
   {
    RowBox[{
     ButtonBox["Union",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      SubscriptBox[
       StyleBox["list", "CodeVariableLrg"], "1"], ",", 
      SubscriptBox[
       StyleBox["list", "CodeVariableLrg"], "2"], ",", " ", 
      StyleBox["...", "GrayPointSix"]}], "]"}], " ", Cell[
    "\:51fa\:73b0\:5728\:4efb\:4f55\:5217\:8868\:4e2d\:7684\:5143\:7d20", 
     "VocabularyText",ExpressionUUID->"bae2c52b-ad33-42a7-bcb0-adde73e33f11"]},
   {
    RowBox[{
     ButtonBox["Intersection",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      SubscriptBox[
       StyleBox["list", "CodeVariableLrg"], "1"], ",", 
      SubscriptBox[
       StyleBox["list", "CodeVariableLrg"], "2"], ",", " ", 
      StyleBox["...", "GrayPointSix"]}], "]"}], " ", Cell[
    "\:51fa\:73b0\:5728\:6240\:6709\:5217\:8868\:4e2d\:7684\:5143\:7d20", 
     "VocabularyText",ExpressionUUID->"6db6f007-bfe6-4faf-9f22-70a462da67de"]},
   {
    RowBox[{
     ButtonBox["Complement",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      SubscriptBox[
       StyleBox["list", "CodeVariableLrg"], "1"], ",", 
      SubscriptBox[
       StyleBox["list", "CodeVariableLrg"], "2"]}], "]"}], " ", Cell[TextData[{
     "\:51fa\:73b0\:5728 ",
     Cell[BoxData[
      FormBox[
       StyleBox[
        SubscriptBox[
         StyleBox["list", "CodeVariableLrg"], "1"],
        FontColor->GrayLevel[0]], TraditionalForm]],ExpressionUUID->
      "e457aedd-f463-4198-8f42-78649dd96182"],
     " \:4e2d\:4f46\:6ca1\:6709\:51fa\:73b0\:5728 ",
     Cell[BoxData[
      FormBox[
       StyleBox[
        SubscriptBox[
         StyleBox["list", "CodeVariableLrg"], "2"],
        FontColor->GrayLevel[0]], TraditionalForm]],ExpressionUUID->
      "628484cb-d12b-41a7-99a0-5cd3e8c4551f"],
     " \:4e2d\:7684\:5143\:7d20"
    }], "VocabularyText",ExpressionUUID->
     "d7305317-eeb4-4019-a38c-4b6b674ca1c2"]},
   {
    RowBox[{
     ButtonBox["Permutations",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:6240\:6709\:53ef\:80fd\:7684\:6392\:5217\:7ec4\:5408", 
     "VocabularyText",ExpressionUUID->"058acbc4-a2a4-41e8-97c9-965506bcec1a"]},
   {
    RowBox[{
     ButtonBox["Subsets",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:6240\:6709\:53ef\:80fd\:7684\:5b50\:96c6", "VocabularyText",
     ExpressionUUID->"7fac0d1a-85dd-44d9-8e81-4aa8c52319b7"]},
   {
    RowBox[{
     ButtonBox["Tuples",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      StyleBox["list", "CodeVariableLrg"], ",", 
      StyleBox["n", "CodeVariableLrg"]}], "]"}], " ", Cell[
    "\:6240\:6709\:53ef\:80fd\:7684\:5305\:542b n \:4e2a\:5143\:7d20\:7684\
\:7ec4\:5408", "VocabularyText",ExpressionUUID->
     "1512c4a5-ba98-4df3-8bee-5de9795116a6"]},
   {
    RowBox[{
     ButtonBox["RandomChoice",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:4ece\:5217\:8868\:4e2d\:968f\:673a\:9009\:62e9", "VocabularyText",
     ExpressionUUID->"3f7bd954-d614-4db2-adda-a50a001b7fd2"]},
   {
    RowBox[{
     ButtonBox["RandomChoice",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      StyleBox["list", "CodeVariableLrg"], ",", 
      StyleBox["n", "CodeVariableLrg"]}], "]"}], " ", Cell[
    "n \:4e2a\:968f\:673a\:9009\:62e9", "VocabularyText",ExpressionUUID->
     "81a22d5f-486e-45f7-abd2-34fd52bbc50c"]},
   {
    RowBox[{
     ButtonBox["RandomSample",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      StyleBox["list", "CodeVariableLrg"], ",", 
      StyleBox["n", "CodeVariableLrg"]}], "]"}], " ", Cell[
    "n \:4e2a\:968f\:673a\:4e0d\:91cd\:590d\:6837\:672c", "VocabularyText",
     ExpressionUUID->"543353fb-7df6-4c0a-8b51-ec632b1f67e7"]},
   {
    RowBox[{
     ButtonBox["RandomSample",
      BaseStyle->"CodeLink"], "[", 
     StyleBox["list", "CodeVariableLrg"], "]"}], " ", Cell[
    "\:5217\:8868\:7684\:968f\:673a\:6392\:5e8f", "VocabularyText",
     ExpressionUUID->"e318af1c-3378-405f-9a84-032be945a176"]}
  }]], "VocabularyTable",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836859207279256*^9, 3.83685921655624*^9}, {
   3.8368592742289076`*^9, 3.83685946508536*^9}, {3.836859567855879*^9, 
   3.836859633324845*^9}, {3.8368597216103163`*^9, 3.836859827540346*^9}, 
   3.8375566384372272`*^9},
 GridBoxOptions->{GridBoxDividers->{"Columns" -> {{False}}}},
 CellTags->
  "LastCellOfAPage",ExpressionUUID->"3aedd571-f8e6-47d7-a60a-17d0abf73573"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 DynamicModuleBox[{$CellContext`open$$ = False}, 
  TagBox[GridBox[{
     {
      StyleBox["\<\"\:4e60\:9898\"\>",
       StripOnInput->False,
       FontSlant->"Italic"], 
      PaneBox[
       TagBox[
        ButtonBox[
         DynamicBox[ToBoxes[
           If[$CellContext`open$$, 
            Row[{
              Style["-", "ExercisePreviewButtonTextHighlight"], 
              Style[
              " \:9884\:89c8\:4e60\:9898", "ExercisePreviewButtonText"]}], 
            Row[{
              Style["+", "ExercisePreviewButtonTextHighlight"], 
              Style[
              " \:9884\:89c8\:4e60\:9898", "ExercisePreviewButtonText"]}]], 
           StandardForm],
          ImageSizeCache->{133.5, {2., 24.}}],
         Appearance->None,
         ButtonFunction:>(
          If[$CellContext`open$$, $CellContext`open$$ = 
            False, $CellContext`open$$ = True]; NotebookFind[
            EvaluationNotebook[], "ExerciseSummaryCell", Next, CellStyle, 
            WrapAround -> True, AutoScroll -> False]; FrontEndTokenExecute[
            EvaluationNotebook[], "ExpandSelection"]; FrontEndExecute[
            FrontEndToken[
             EvaluationNotebook[], "OpenCloseGroup"]]),
         Evaluator->Automatic,
         Method->"Preemptive"],
        MouseAppearanceTag["LinkHand"]],
       Alignment->Right,
       ImageSize->Full]}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"],
  DynamicModuleValues:>{}]], "ExerciseSection",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 CellChangeTimes->{3.669991951589675*^9},
 ShowStringCharacters->
  False,ExpressionUUID->"c938020b-9ba6-4cac-9018-93d6ed5eb7df"],

Cell[CellGroupData[{

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         PaneBox[
          
          StyleBox["\<\"\:5171\:6709 21 \:9053\:4e60\:9898\"\>", 
           "ExerciseSummaryHeading",
           StripOnInput->False],
          ImageMargins->{{20, 0}, {0, 10}}]},
        {
         PaneBox[
          
          StyleBox["\<\"\:4ee5\:53ca 13 \:9053\:9644\:52a0\:9898\"\>", 
           "ExerciseSummarySubheading",
           StripOnInput->False],
          ImageMargins->{{20, 0}, {10, 0}}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{0}}}],
      "Column"], 
     PaneBox[
      ButtonBox[
       StyleBox["\<\"\:5f00\:59cb\:7ec3\:4e60 \[RightGuillemet]\"\>", 
        "ExerciseSummaryHeading",
        StripOnInput->False],
       Appearance->None,
       ButtonFunction:>
        NotebookLocate[{"EIWL2-30-rearranging-lists-exercises.nb", ""}],
       Evaluator->Automatic,
       Method->"Preemptive"],
      FrameMargins->{{10, 0}, {10, 10}},
      ImageSize->Full]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {
       Scaled[0.7], 
       Scaled[0.3]}, "Rows" -> {{Automatic}}}],
  "Grid"]], "ExerciseSummaryCell",
 Editable->False,
 Deletable->False,
 ShowCellBracket->
  False,ExpressionUUID->"abc41054-be9c-48a1-a369-2541d09d0e41"],

Cell[CellGroupData[{

Cell[TextData[{
 "\:4f7f\:7528 ",
 ButtonBox["Thread",
  BaseStyle->"Link"],
 " \:6765\:521b\:5efa\:4e00\:4e2a\:89c4\:5219\:5217\:8868\:ff0c\:6bcf\:4e2a\
\:5b57\:6bcd\:5bf9\:5e94\:5b83\:5728\:5b57\:6bcd\:8868\:4e2d\:7684\:4f4d\:7f6e\
\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.1", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556106838744*^9, 
  3.837556116747151*^9}},ExpressionUUID->"d7120b93-ad0e-44da-b10d-\
52f030a7b30c"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\<\"a\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"b\"\>", "\[Rule]", "2"}], ",", 
         RowBox[{"\<\"c\"\>", "\[Rule]", "3"}], ",", 
         RowBox[{"\<\"d\"\>", "\[Rule]", "4"}], ",", 
         RowBox[{"\<\"e\"\>", "\[Rule]", "5"}], ",", 
         RowBox[{"\<\"f\"\>", "\[Rule]", "6"}], ",", 
         RowBox[{"\<\"g\"\>", "\[Rule]", "7"}], ",", 
         RowBox[{"\<\"h\"\>", "\[Rule]", "8"}], ",", 
         RowBox[{"\<\"i\"\>", "\[Rule]", "9"}], ",", 
         RowBox[{"\<\"j\"\>", "\[Rule]", "10"}], ",", 
         RowBox[{"\<\"k\"\>", "\[Rule]", "11"}], ",", 
         RowBox[{"\<\"l\"\>", "\[Rule]", "12"}], ",", 
         RowBox[{"\<\"m\"\>", "\[Rule]", "13"}], ",", 
         RowBox[{"\<\"n\"\>", "\[Rule]", "14"}], ",", 
         RowBox[{"\<\"o\"\>", "\[Rule]", "15"}], ",", 
         RowBox[{"\<\"p\"\>", "\[Rule]", "16"}], ",", 
         RowBox[{"\<\"q\"\>", "\[Rule]", "17"}], ",", 
         RowBox[{"\<\"r\"\>", "\[Rule]", "18"}], ",", 
         RowBox[{"\<\"s\"\>", "\[Rule]", "19"}], ",", 
         RowBox[{"\<\"t\"\>", "\[Rule]", "20"}], ",", 
         RowBox[{"\<\"u\"\>", "\[Rule]", "21"}], ",", 
         RowBox[{"\<\"v\"\>", "\[Rule]", "22"}], ",", 
         RowBox[{"\<\"w\"\>", "\[Rule]", "23"}], ",", 
         RowBox[{"\<\"x\"\>", "\[Rule]", "24"}], ",", 
         RowBox[{"\<\"y\"\>", "\[Rule]", "25"}], ",", 
         RowBox[{"\<\"z\"\>", "\[Rule]", "26"}]}], "}"}]], "ExerciseOutput",
       ExpressionUUID->"55b9c852-f27f-4a32-baa0-d384c17410db"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             RowBox[{"\"a\"", "\[Rule]", "1"}], ",", 
             RowBox[{"\"b\"", "\[Rule]", "2"}], ",", 
             RowBox[{"\"c\"", "\[Rule]", "3"}], ",", 
             RowBox[{"\"d\"", "\[Rule]", "4"}], ",", 
             RowBox[{"\"e\"", "\[Rule]", "5"}], ",", 
             RowBox[{"\"f\"", "\[Rule]", "6"}], ",", 
             RowBox[{"\"g\"", "\[Rule]", "7"}], ",", 
             RowBox[{"\"h\"", "\[Rule]", "8"}], ",", 
             RowBox[{"\"i\"", "\[Rule]", "9"}], ",", 
             RowBox[{"\"j\"", "\[Rule]", "10"}], ",", 
             RowBox[{"\"k\"", "\[Rule]", "11"}], ",", 
             RowBox[{"\"l\"", "\[Rule]", "12"}], ",", 
             RowBox[{"\"m\"", "\[Rule]", "13"}], ",", 
             RowBox[{"\"n\"", "\[Rule]", "14"}], ",", 
             RowBox[{"\"o\"", "\[Rule]", "15"}], ",", 
             RowBox[{"\"p\"", "\[Rule]", "16"}], ",", 
             RowBox[{"\"q\"", "\[Rule]", "17"}], ",", 
             RowBox[{"\"r\"", "\[Rule]", "18"}], ",", 
             RowBox[{"\"s\"", "\[Rule]", "19"}], ",", 
             RowBox[{"\"t\"", "\[Rule]", "20"}], ",", 
             RowBox[{"\"u\"", "\[Rule]", "21"}], ",", 
             RowBox[{"\"v\"", "\[Rule]", "22"}], ",", 
             RowBox[{"\"w\"", "\[Rule]", "23"}], ",", 
             RowBox[{"\"x\"", "\[Rule]", "24"}], ",", 
             RowBox[{"\"y\"", "\[Rule]", "25"}], ",", 
             RowBox[{"\"z\"", "\[Rule]", "26"}]}], "}"}]], "ExerciseOutput", 
        Selectable -> False, Copyable -> False, Editable -> False, 
        ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"6284e50b-3620-4e56-9384-f0278309cdc9"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06\:5b57\:6bcd\:8868\:7684\:524d 24 \
\:4e2a\:5b57\:6bcd\:7ec4\:6210\:4e00\:4e2a 4\[Times]6 \
\:7684\:7f51\:683c\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.2", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375561229143133`*^9, 
  3.83755612639225*^9}},ExpressionUUID->"3590d512-b56b-4e90-b0d5-\
ca2545eb293b"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       TagBox[GridBox[{
          {"\<\"a\"\>", "\<\"b\"\>", "\<\"c\"\>", "\<\"d\"\>", "\<\"e\"\>", "\
\<\"f\"\>"},
          {"\<\"g\"\>", "\<\"h\"\>", "\<\"i\"\>", "\<\"j\"\>", "\<\"k\"\>", "\
\<\"l\"\>"},
          {"\<\"m\"\>", "\<\"n\"\>", "\<\"o\"\>", "\<\"p\"\>", "\<\"q\"\>", "\
\<\"r\"\>"},
          {"\<\"s\"\>", "\<\"t\"\>", "\<\"u\"\>", "\<\"v\"\>", "\<\"w\"\>", "\
\<\"x\"\>"}
         },
         AutoDelete->False,
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
        "Grid"]], "ExerciseOutput",ExpressionUUID->
       "4f74c561-95f0-41ad-8669-afd091d85757"],
      Apply[TextCell, 
       Cell[
        BoxData[
         TagBox[
          
          GridBox[{{"\"a\"", "\"b\"", "\"c\"", "\"d\"", "\"e\"", "\"f\""}, {
            "\"g\"", "\"h\"", "\"i\"", "\"j\"", "\"k\"", "\"l\""}, {
            "\"m\"", "\"n\"", "\"o\"", "\"p\"", "\"q\"", "\"r\""}, {
            "\"s\"", "\"t\"", "\"u\"", "\"v\"", "\"w\"", "\"x\""}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"6fe54f4d-3e99-425b-af12-9f091d1f0be6"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06 2^1000 \:4e2d\:7684\:5404\:4f4d\:6570\:5b57\:521b\:5efa\:4e3a\:4e00\
\:4e2a\:7f51\:683c\:ff0c\:6bcf\:884c 50 \:4e2a\:6570\:5b57\:ff0c\:5e76\:5728\
\:6240\:6709\:5bf9\:8c61\:5468\:56f4\:52a0\:4e0a\:8fb9\:6846\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.3", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556132821045*^9, 
  3.837556136672495*^9}},ExpressionUUID->"4b4b4a14-ba8f-461d-b27d-\
1c0215744a1f"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       TagBox[GridBox[{
          {"1", "0", "7", "1", "5", "0", "8", "6", "0", "7", "1", "8", "6", 
           "2", "6", "7", "3", "2", "0", "9", "4", "8", "4", "2", "5", "0", 
           "4", "9", "0", "6", "0", "0", "0", "1", "8", "1", "0", "5", "6", 
           "1", "4", "0", "4", "8", "1", "1", "7", "0", "5", "5"},
          {"3", "3", "6", "0", "7", "4", "4", "3", "7", "5", "0", "3", "8", 
           "8", "3", "7", "0", "3", "5", "1", "0", "5", "1", "1", "2", "4", 
           "9", "3", "6", "1", "2", "2", "4", "9", "3", "1", "9", "8", "3", 
           "7", "8", "8", "1", "5", "6", "9", "5", "8", "5", "8"},
          {"1", "2", "7", "5", "9", "4", "6", "7", "2", "9", "1", "7", "5", 
           "5", "3", "1", "4", "6", "8", "2", "5", "1", "8", "7", "1", "4", 
           "5", "2", "8", "5", "6", "9", "2", "3", "1", "4", "0", "4", "3", 
           "5", "9", "8", "4", "5", "7", "7", "5", "7", "4", "6"},
          {"9", "8", "5", "7", "4", "8", "0", "3", "9", "3", "4", "5", "6", 
           "7", "7", "7", "4", "8", "2", "4", "2", "3", "0", "9", "8", "5", 
           "4", "2", "1", "0", "7", "4", "6", "0", "5", "0", "6", "2", "3", 
           "7", "1", "1", "4", "1", "8", "7", "7", "9", "5", "4"},
          {"1", "8", "2", "1", "5", "3", "0", "4", "6", "4", "7", "4", "9", 
           "8", "3", "5", "8", "1", "9", "4", "1", "2", "6", "7", "3", "9", 
           "8", "7", "6", "7", "5", "5", "9", "1", "6", "5", "5", "4", "3", 
           "9", "4", "6", "0", "7", "7", "0", "6", "2", "9", "1"},
          {"4", "5", "7", "1", "1", "9", "6", "4", "7", "7", "6", "8", "6", 
           "5", "4", "2", "1", "6", "7", "6", "6", "0", "4", "2", "9", "8", 
           "3", "1", "6", "5", "2", "6", "2", "4", "3", "8", "6", "8", "3", 
           "7", "2", "0", "5", "6", "6", "8", "0", "6", "9", "3"}
         },
         AutoDelete->False,
         GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
        "Grid"]], "ExerciseOutput",ExpressionUUID->
       "59fd0ffc-92aa-4cda-8a84-9263d23f0e3e"],
      Apply[TextCell, 
       Cell[
        BoxData[
         TagBox[
          
          GridBox[{{
            "1", "0", "7", "1", "5", "0", "8", "6", "0", "7", "1", "8", "6", 
             "2", "6", "7", "3", "2", "0", "9", "4", "8", "4", "2", "5", "0", 
             "4", "9", "0", "6", "0", "0", "0", "1", "8", "1", "0", "5", "6", 
             "1", "4", "0", "4", "8", "1", "1", "7", "0", "5", "5"}, {
            "3", "3", "6", "0", "7", "4", "4", "3", "7", "5", "0", "3", "8", 
             "8", "3", "7", "0", "3", "5", "1", "0", "5", "1", "1", "2", "4", 
             "9", "3", "6", "1", "2", "2", "4", "9", "3", "1", "9", "8", "3", 
             "7", "8", "8", "1", "5", "6", "9", "5", "8", "5", "8"}, {
            "1", "2", "7", "5", "9", "4", "6", "7", "2", "9", "1", "7", "5", 
             "5", "3", "1", "4", "6", "8", "2", "5", "1", "8", "7", "1", "4", 
             "5", "2", "8", "5", "6", "9", "2", "3", "1", "4", "0", "4", "3", 
             "5", "9", "8", "4", "5", "7", "7", "5", "7", "4", "6"}, {
            "9", "8", "5", "7", "4", "8", "0", "3", "9", "3", "4", "5", "6", 
             "7", "7", "7", "4", "8", "2", "4", "2", "3", "0", "9", "8", "5", 
             "4", "2", "1", "0", "7", "4", "6", "0", "5", "0", "6", "2", "3", 
             "7", "1", "1", "4", "1", "8", "7", "7", "9", "5", "4"}, {
            "1", "8", "2", "1", "5", "3", "0", "4", "6", "4", "7", "4", "9", 
             "8", "3", "5", "8", "1", "9", "4", "1", "2", "6", "7", "3", "9", 
             "8", "7", "6", "7", "5", "5", "9", "1", "6", "5", "5", "4", "3", 
             "9", "4", "6", "0", "7", "7", "0", "6", "2", "9", "1"}, {
            "4", "5", "7", "1", "1", "9", "6", "4", "7", "7", "6", "8", "6", 
             "5", "4", "2", "1", "6", "7", "6", "6", "0", "4", "2", "9", "8", 
             "3", "1", "6", "5", "2", "6", "2", "4", "3", "8", "6", "8", "3", 
             "7", "2", "0", "5", "6", "6", "8", "0", "6", "9", "3"}}, 
           AutoDelete -> False, 
           GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"3feda60d-633e-4eec-b04a-11796deeaf91"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06\:7ef4\:57fa\:767e\:79d1\:4e0a\:5173\:4e8e\:8ba1\:7b97\:673a\:4e00\
\:6587\:4e2d\:7684\:524d 400 \:4e2a\:5b57\:7b26\:7ec4\:6210\:4e00\:4e2a\:7f51\
\:683c\:ff0c\:6bcf\:884c 20 \:4e2a\:5b57\:7b26\:ff0c\:5e76\:5728\:6240\:6709\
\:5bf9\:8c61\:5468\:56f4\:52a0\:4e0a\:8fb9\:6846\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.4", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375561419020205`*^9, 
  3.8375561463947887`*^9}},ExpressionUUID->"e14d3cae-ef03-4ce4-91c1-\
677e2611dec0"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa\:793a\:4f8b", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       TagBox[GridBox[{
          {"\<\"A\"\>", "\<\" \"\>", "\<\"c\"\>", "\<\"o\"\>", "\<\"m\"\>", "\
\<\"p\"\>", "\<\"u\"\>", "\<\"t\"\>", "\<\"e\"\>", "\<\"r\"\>", "\<\" \"\>", \
"\<\"i\"\>", "\<\"s\"\>", "\<\" \"\>", "\<\"a\"\>", "\<\" \"\>", "\<\"g\"\>", \
"\<\"e\"\>", "\<\"n\"\>", "\<\"e\"\>"},
          {"\<\"r\"\>", "\<\"a\"\>", "\<\"l\"\>", "\<\"-\"\>", "\<\"p\"\>", "\
\<\"u\"\>", "\<\"r\"\>", "\<\"p\"\>", "\<\"o\"\>", "\<\"s\"\>", "\<\"e\"\>", \
"\<\" \"\>", "\<\"d\"\>", "\<\"e\"\>", "\<\"v\"\>", "\<\"i\"\>", "\<\"c\"\>", \
"\<\"e\"\>", "\<\" \"\>", "\<\"t\"\>"},
          {"\<\"h\"\>", "\<\"a\"\>", "\<\"t\"\>", "\<\" \"\>", "\<\"c\"\>", "\
\<\"a\"\>", "\<\"n\"\>", "\<\" \"\>", "\<\"b\"\>", "\<\"e\"\>", "\<\" \"\>", \
"\<\"p\"\>", "\<\"r\"\>", "\<\"o\"\>", "\<\"g\"\>", "\<\"r\"\>", "\<\"a\"\>", \
"\<\"m\"\>", "\<\"m\"\>", "\<\"e\"\>"},
          {"\<\"d\"\>", "\<\" \"\>", "\<\"t\"\>", "\<\"o\"\>", "\<\" \"\>", "\
\<\"c\"\>", "\<\"a\"\>", "\<\"r\"\>", "\<\"r\"\>", "\<\"y\"\>", "\<\" \"\>", \
"\<\"o\"\>", "\<\"u\"\>", "\<\"t\"\>", "\<\" \"\>", "\<\"a\"\>", "\<\" \"\>", \
"\<\"s\"\>", "\<\"e\"\>", "\<\"t\"\>"},
          {"\<\" \"\>", "\<\"o\"\>", "\<\"f\"\>", "\<\" \"\>", "\<\"a\"\>", "\
\<\"r\"\>", "\<\"i\"\>", "\<\"t\"\>", "\<\"h\"\>", "\<\"m\"\>", "\<\"e\"\>", \
"\<\"t\"\>", "\<\"i\"\>", "\<\"c\"\>", "\<\" \"\>", "\<\"o\"\>", "\<\"r\"\>", \
"\<\" \"\>", "\<\"l\"\>", "\<\"o\"\>"},
          {"\<\"g\"\>", "\<\"i\"\>", "\<\"c\"\>", "\<\"a\"\>", "\<\"l\"\>", "\
\<\" \"\>", "\<\"o\"\>", "\<\"p\"\>", "\<\"e\"\>", "\<\"r\"\>", "\<\"a\"\>", \
"\<\"t\"\>", "\<\"i\"\>", "\<\"o\"\>", "\<\"n\"\>", "\<\"s\"\>", "\<\" \"\>", \
"\<\"a\"\>", "\<\"u\"\>", "\<\"t\"\>"},
          {"\<\"o\"\>", "\<\"m\"\>", "\<\"a\"\>", "\<\"t\"\>", "\<\"i\"\>", "\
\<\"c\"\>", "\<\"a\"\>", "\<\"l\"\>", "\<\"l\"\>", "\<\"y\"\>", "\<\".\"\>", \
"\<\" \"\>", "\<\"S\"\>", "\<\"i\"\>", "\<\"n\"\>", "\<\"c\"\>", "\<\"e\"\>", \
"\<\" \"\>", "\<\"a\"\>", "\<\" \"\>"},
          {"\<\"s\"\>", "\<\"e\"\>", "\<\"q\"\>", "\<\"u\"\>", "\<\"e\"\>", "\
\<\"n\"\>", "\<\"c\"\>", "\<\"e\"\>", "\<\" \"\>", "\<\"o\"\>", "\<\"f\"\>", \
"\<\" \"\>", "\<\"o\"\>", "\<\"p\"\>", "\<\"e\"\>", "\<\"r\"\>", "\<\"a\"\>", \
"\<\"t\"\>", "\<\"i\"\>", "\<\"o\"\>"},
          {"\<\"n\"\>", "\<\"s\"\>", "\<\" \"\>", "\<\"c\"\>", "\<\"a\"\>", "\
\<\"n\"\>", "\<\" \"\>", "\<\"b\"\>", "\<\"e\"\>", "\<\" \"\>", "\<\"r\"\>", \
"\<\"e\"\>", "\<\"a\"\>", "\<\"d\"\>", "\<\"i\"\>", "\<\"l\"\>", "\<\"y\"\>", \
"\<\" \"\>", "\<\"c\"\>", "\<\"h\"\>"},
          {"\<\"a\"\>", "\<\"n\"\>", "\<\"g\"\>", "\<\"e\"\>", "\<\"d\"\>", "\
\<\",\"\>", "\<\" \"\>", "\<\"t\"\>", "\<\"h\"\>", "\<\"e\"\>", "\<\" \"\>", \
"\<\"c\"\>", "\<\"o\"\>", "\<\"m\"\>", "\<\"p\"\>", "\<\"u\"\>", "\<\"t\"\>", \
"\<\"e\"\>", "\<\"r\"\>", "\<\" \"\>"},
          {"\<\"c\"\>", "\<\"a\"\>", "\<\"n\"\>", "\<\" \"\>", "\<\"s\"\>", "\
\<\"o\"\>", "\<\"l\"\>", "\<\"v\"\>", "\<\"e\"\>", "\<\" \"\>", "\<\"m\"\>", \
"\<\"o\"\>", "\<\"r\"\>", "\<\"e\"\>", "\<\" \"\>", "\<\"t\"\>", "\<\"h\"\>", \
"\<\"a\"\>", "\<\"n\"\>", "\<\" \"\>"},
          {"\<\"o\"\>", "\<\"n\"\>", "\<\"e\"\>", "\<\" \"\>", "\<\"k\"\>", "\
\<\"i\"\>", "\<\"n\"\>", "\<\"d\"\>", "\<\" \"\>", "\<\"o\"\>", "\<\"f\"\>", \
"\<\" \"\>", "\<\"p\"\>", "\<\"r\"\>", "\<\"o\"\>", "\<\"b\"\>", "\<\"l\"\>", \
"\<\"e\"\>", "\<\"m\"\>", "\<\".\"\>"},
          {"\<\"\\n\"\>", "\<\"C\"\>", "\<\"o\"\>", "\<\"n\"\>", "\<\"v\"\>", \
"\<\"e\"\>", "\<\"n\"\>", "\<\"t\"\>", "\<\"i\"\>", "\<\"o\"\>", "\<\"n\"\>", \
"\<\"a\"\>", "\<\"l\"\>", "\<\"l\"\>", "\<\"y\"\>", "\<\",\"\>", "\<\" \"\>", \
"\<\"a\"\>", "\<\" \"\>", "\<\"c\"\>"},
          {"\<\"o\"\>", "\<\"m\"\>", "\<\"p\"\>", "\<\"u\"\>", "\<\"t\"\>", "\
\<\"e\"\>", "\<\"r\"\>", "\<\" \"\>", "\<\"c\"\>", "\<\"o\"\>", "\<\"n\"\>", \
"\<\"s\"\>", "\<\"i\"\>", "\<\"s\"\>", "\<\"t\"\>", "\<\"s\"\>", "\<\" \"\>", \
"\<\"o\"\>", "\<\"f\"\>", "\<\" \"\>"},
          {"\<\"a\"\>", "\<\"t\"\>", "\<\" \"\>", "\<\"l\"\>", "\<\"e\"\>", "\
\<\"a\"\>", "\<\"s\"\>", "\<\"t\"\>", "\<\" \"\>", "\<\"o\"\>", "\<\"n\"\>", \
"\<\"e\"\>", "\<\" \"\>", "\<\"p\"\>", "\<\"r\"\>", "\<\"o\"\>", "\<\"c\"\>", \
"\<\"e\"\>", "\<\"s\"\>", "\<\"s\"\>"},
          {"\<\"i\"\>", "\<\"n\"\>", "\<\"g\"\>", "\<\" \"\>", "\<\"e\"\>", "\
\<\"l\"\>", "\<\"e\"\>", "\<\"m\"\>", "\<\"e\"\>", "\<\"n\"\>", "\<\"t\"\>", \
"\<\",\"\>", "\<\" \"\>", "\<\"t\"\>", "\<\"y\"\>", "\<\"p\"\>", "\<\"i\"\>", \
"\<\"c\"\>", "\<\"a\"\>", "\<\"l\"\>"},
          {"\<\"l\"\>", "\<\"y\"\>", "\<\" \"\>", "\<\"a\"\>", "\<\" \"\>", "\
\<\"c\"\>", "\<\"e\"\>", "\<\"n\"\>", "\<\"t\"\>", "\<\"r\"\>", "\<\"a\"\>", \
"\<\"l\"\>", "\<\" \"\>", "\<\"p\"\>", "\<\"r\"\>", "\<\"o\"\>", "\<\"c\"\>", \
"\<\"e\"\>", "\<\"s\"\>", "\<\"s\"\>"},
          {"\<\"i\"\>", "\<\"n\"\>", "\<\"g\"\>", "\<\" \"\>", "\<\"u\"\>", "\
\<\"n\"\>", "\<\"i\"\>", "\<\"t\"\>", "\<\" \"\>", "\<\"(\"\>", "\<\"C\"\>", \
"\<\"P\"\>", "\<\"U\"\>", "\<\")\"\>", "\<\",\"\>", "\<\" \"\>", "\<\"a\"\>", \
"\<\"n\"\>", "\<\"d\"\>", "\<\" \"\>"},
          {"\<\"s\"\>", "\<\"o\"\>", "\<\"m\"\>", "\<\"e\"\>", "\<\" \"\>", "\
\<\"f\"\>", "\<\"o\"\>", "\<\"r\"\>", "\<\"m\"\>", "\<\" \"\>", "\<\"o\"\>", \
"\<\"f\"\>", "\<\" \"\>", "\<\"m\"\>", "\<\"e\"\>", "\<\"m\"\>", "\<\"o\"\>", \
"\<\"r\"\>", "\<\"y\"\>", "\<\".\"\>"},
          {"\<\" \"\>", "\<\"T\"\>", "\<\"h\"\>", "\<\"e\"\>", "\<\" \"\>", "\
\<\"p\"\>", "\<\"r\"\>", "\<\"o\"\>", "\<\"c\"\>", "\<\"e\"\>", "\<\"s\"\>", \
"\<\"s\"\>", "\<\"i\"\>", "\<\"n\"\>", "\<\"g\"\>", "\<\" \"\>", "\<\"e\"\>", \
"\<\"l\"\>", "\<\"e\"\>", "\<\"m\"\>"}
         },
         AutoDelete->False,
         GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
        "Grid"]], "ExerciseOutput",ExpressionUUID->
       "b3599dec-b7c4-4c39-89a8-3e34a2da05a6"],
      Apply[TextCell, 
       Cell[
        BoxData[
         TagBox[
          
          GridBox[{{
            "\"A\"", "\" \"", "\"c\"", "\"o\"", "\"m\"", "\"p\"", "\"u\"", 
             "\"t\"", "\"e\"", "\"r\"", "\" \"", "\"i\"", "\"s\"", "\" \"", 
             "\"a\"", "\" \"", "\"g\"", "\"e\"", "\"n\"", "\"e\""}, {
            "\"r\"", "\"a\"", "\"l\"", "\"-\"", "\"p\"", "\"u\"", "\"r\"", 
             "\"p\"", "\"o\"", "\"s\"", "\"e\"", "\" \"", "\"d\"", "\"e\"", 
             "\"v\"", "\"i\"", "\"c\"", "\"e\"", "\" \"", "\"t\""}, {
            "\"h\"", "\"a\"", "\"t\"", "\" \"", "\"c\"", "\"a\"", "\"n\"", 
             "\" \"", "\"b\"", "\"e\"", "\" \"", "\"p\"", "\"r\"", "\"o\"", 
             "\"g\"", "\"r\"", "\"a\"", "\"m\"", "\"m\"", "\"e\""}, {
            "\"d\"", "\" \"", "\"t\"", "\"o\"", "\" \"", "\"c\"", "\"a\"", 
             "\"r\"", "\"r\"", "\"y\"", "\" \"", "\"o\"", "\"u\"", "\"t\"", 
             "\" \"", "\"a\"", "\" \"", "\"s\"", "\"e\"", "\"t\""}, {
            "\" \"", "\"o\"", "\"f\"", "\" \"", "\"a\"", "\"r\"", "\"i\"", 
             "\"t\"", "\"h\"", "\"m\"", "\"e\"", "\"t\"", "\"i\"", "\"c\"", 
             "\" \"", "\"o\"", "\"r\"", "\" \"", "\"l\"", "\"o\""}, {
            "\"g\"", "\"i\"", "\"c\"", "\"a\"", "\"l\"", "\" \"", "\"o\"", 
             "\"p\"", "\"e\"", "\"r\"", "\"a\"", "\"t\"", "\"i\"", "\"o\"", 
             "\"n\"", "\"s\"", "\" \"", "\"a\"", "\"u\"", "\"t\""}, {
            "\"o\"", "\"m\"", "\"a\"", "\"t\"", "\"i\"", "\"c\"", "\"a\"", 
             "\"l\"", "\"l\"", "\"y\"", "\".\"", "\" \"", "\"S\"", "\"i\"", 
             "\"n\"", "\"c\"", "\"e\"", "\" \"", "\"a\"", "\" \""}, {
            "\"s\"", "\"e\"", "\"q\"", "\"u\"", "\"e\"", "\"n\"", "\"c\"", 
             "\"e\"", "\" \"", "\"o\"", "\"f\"", "\" \"", "\"o\"", "\"p\"", 
             "\"e\"", "\"r\"", "\"a\"", "\"t\"", "\"i\"", "\"o\""}, {
            "\"n\"", "\"s\"", "\" \"", "\"c\"", "\"a\"", "\"n\"", "\" \"", 
             "\"b\"", "\"e\"", "\" \"", "\"r\"", "\"e\"", "\"a\"", "\"d\"", 
             "\"i\"", "\"l\"", "\"y\"", "\" \"", "\"c\"", "\"h\""}, {
            "\"a\"", "\"n\"", "\"g\"", "\"e\"", "\"d\"", "\",\"", "\" \"", 
             "\"t\"", "\"h\"", "\"e\"", "\" \"", "\"c\"", "\"o\"", "\"m\"", 
             "\"p\"", "\"u\"", "\"t\"", "\"e\"", "\"r\"", "\" \""}, {
            "\"c\"", "\"a\"", "\"n\"", "\" \"", "\"s\"", "\"o\"", "\"l\"", 
             "\"v\"", "\"e\"", "\" \"", "\"m\"", "\"o\"", "\"r\"", "\"e\"", 
             "\" \"", "\"t\"", "\"h\"", "\"a\"", "\"n\"", "\" \""}, {
            "\"o\"", "\"n\"", "\"e\"", "\" \"", "\"k\"", "\"i\"", "\"n\"", 
             "\"d\"", "\" \"", "\"o\"", "\"f\"", "\" \"", "\"p\"", "\"r\"", 
             "\"o\"", "\"b\"", "\"l\"", "\"e\"", "\"m\"", "\".\""}, {
            "\"\\n\"", "\"C\"", "\"o\"", "\"n\"", "\"v\"", "\"e\"", "\"n\"", 
             "\"t\"", "\"i\"", "\"o\"", "\"n\"", "\"a\"", "\"l\"", "\"l\"", 
             "\"y\"", "\",\"", "\" \"", "\"a\"", "\" \"", "\"c\""}, {
            "\"o\"", "\"m\"", "\"p\"", "\"u\"", "\"t\"", "\"e\"", "\"r\"", 
             "\" \"", "\"c\"", "\"o\"", "\"n\"", "\"s\"", "\"i\"", "\"s\"", 
             "\"t\"", "\"s\"", "\" \"", "\"o\"", "\"f\"", "\" \""}, {
            "\"a\"", "\"t\"", "\" \"", "\"l\"", "\"e\"", "\"a\"", "\"s\"", 
             "\"t\"", "\" \"", "\"o\"", "\"n\"", "\"e\"", "\" \"", "\"p\"", 
             "\"r\"", "\"o\"", "\"c\"", "\"e\"", "\"s\"", "\"s\""}, {
            "\"i\"", "\"n\"", "\"g\"", "\" \"", "\"e\"", "\"l\"", "\"e\"", 
             "\"m\"", "\"e\"", "\"n\"", "\"t\"", "\",\"", "\" \"", "\"t\"", 
             "\"y\"", "\"p\"", "\"i\"", "\"c\"", "\"a\"", "\"l\""}, {
            "\"l\"", "\"y\"", "\" \"", "\"a\"", "\" \"", "\"c\"", "\"e\"", 
             "\"n\"", "\"t\"", "\"r\"", "\"a\"", "\"l\"", "\" \"", "\"p\"", 
             "\"r\"", "\"o\"", "\"c\"", "\"e\"", "\"s\"", "\"s\""}, {
            "\"i\"", "\"n\"", "\"g\"", "\" \"", "\"u\"", "\"n\"", "\"i\"", 
             "\"t\"", "\" \"", "\"(\"", "\"C\"", "\"P\"", "\"U\"", "\")\"", 
             "\",\"", "\" \"", "\"a\"", "\"n\"", "\"d\"", "\" \""}, {
            "\"s\"", "\"o\"", "\"m\"", "\"e\"", "\" \"", "\"f\"", "\"o\"", 
             "\"r\"", "\"m\"", "\" \"", "\"o\"", "\"f\"", "\" \"", "\"m\"", 
             "\"e\"", "\"m\"", "\"o\"", "\"r\"", "\"y\"", "\".\""}, {
            "\" \"", "\"T\"", "\"h\"", "\"e\"", "\" \"", "\"p\"", "\"r\"", 
             "\"o\"", "\"c\"", "\"e\"", "\"s\"", "\"s\"", "\"i\"", "\"n\"", 
             "\"g\"", "\" \"", "\"e\"", "\"l\"", "\"e\"", "\"m\""}}, 
           AutoDelete -> False, 
           GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"4f825f31-2d25-49a1-997c-d894b7c59e62"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06\:4ece 0 \:5230 200 \:7684\:6570\:5b57\:7684\:5404\:4f4d\:6570\:7684\
\:5217\:8868\:538b\:5e73(",
 StyleBox["\:94b1\:73c0\:7459\:6069\:6570\:5217",
  FontWeight->"Bold"],
 ")\:ff0c\:521b\:5efa\:4e00\:4e2a\:7ebf\:6761\:56fe\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.5", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375561550423765`*^9, 3.8375561589662547`*^9}},
 CellTags->"i:25",ExpressionUUID->"335e0c26-6efd-47fe-a007-8e3a2343e79a"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       GraphicsBox[{{}, {{}, {}, 
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
           0.011111111111111112`], AbsoluteThickness[1.6], 
           LineBox[CompressedData["
1:eJxdmEkO3EQUhgtWLHvBggULYyGEEELNPJMKZCIJiZMACSQEZ4aEEGeeozpC
H8FH6CPUEfoIvgBSHwEh/3+j99Xm6fP/ld1+5aG737h46+SVl1NK/7yU0n91
Hts9KY4ct7+S4/ZFjttfxfbXsP11bG+wvcX2N7H9LXyet/15NN5B/i74PfDS
81XfR/6B2Of3IfKPxD7fj5F/Ivb5f4r8M7H78TnyL8Tuz5fIvxK7X18j/0bc
qu5R9flm8zxKRr437q/sRf5t5AJO36mqf+U75PtU1b+yD/l+VfWv7Ed+QFX9
KweQH1RV/8pB5IdU1b9yCPn3qq1ys6+Hw/bnUQ4jP6Lq/h1BfjQerxxF/kPk
Ak7HVN2/Y8iPq7p/x5F3qupf7mJezOpfRZ5OqKp/+UTMi7nVfLPvl5OqGvlk
zItZ/avI0ynP1/FPxbyY9Xkq8vRj5AwuZvWvIk8/qbp/P8W8mN0/5OlnVffv
55gXc6v5Zj9PTqtq5NMxL2b3D3k64/k6/pmYF7P7hzz9Ej9v/iXmBVzB6VdV
9+/XmBez+4c8nVV1/87GvJhbzTf7eXtOVSOfi3kxu3/I02+er+P/FvNidv+Q
p/Oq7t/5mBez+4c8/R45g4vZ/UOeelX1r+ljns3tXHuzn6dmjRF5Nat/E/J0
wfN1/Asxz2b1r0dezOrfiLya1b8JebqoqvNtLsY8g3twMat/I/JqbnV8+OmS
qkZzKebZrP71yMtuvo6PvJrVvwl5uqyq/jWXY57N6l+PvJjVvxF5NasfE/J0
JXIDzuZWxwcXs8aIvJp9/SFPVz1fx78a82z29Ye8mH39Ia9mX3/I0zVVX3/X
Yp7Nvv6QF7OvP+QVPJn9/fAPsUYDzmZff8gL8hFc4U87Vv0z+s2f0c9m9x9+
gT+atR4V/gQ/XRdrfZrr0c/Xo9+b/XyFP8KvZl//8NON6DdmX/83ot/DL+Z2
riP8Cp4wP/0V8wacwT24gEez1rcin8Dppljr29yMeQb3Zn8/Qj6Cq9n3H/L0
d+TG7Pcf8h5czFrfEXkFT2Y//27h+OBsbufaIy9mP/93PI8Kf4KfhpgvwM0Q
/SU4w++Q92at7wC/wF+Z/TyFv4ZfzVrfDfwJ/tbs7z+3o7+4Hf3GrPVdws/w
O7PWt4c/wC/mdq4r+KNZ/Vvv5s+jwt/An5BvwelO9Bdmn/+d6C/hZ3AHv0c+
mH3/wl/BH81a3zX8Cn9j1vpO8Lfw011Vre/ibvSbu9Ffmv18ht/B783tXAf4
xax+rMwaI/w1/Ip8A57gb3f7V70X/cW96Ddmnz/8DL8D9/AH5MWs9V3BH+Gv
zVrfCn8DfzJrfbfw0/3oL8z+Pno/+kv42dzOtYPfm3V+g1mjwF/BH5GvwRX+
Zrf/uU7wt/DTA1Xf/w+i3zyI/tLs84ffwe/BA/yCfGX27wn4a/jVrPXdwJ/g
b81+/z6M/uJh9BtzO9cl/GzW5+3MGj38AX5BvgKP8Ne7/c+1wt/An8xa3y38
9Cj6C7Pv/0fRX8LPZvWrg9/DH8AF/gr5aNb6ruFX+Buz1neCv4WfHqu2c108
jn5j9vvfrJHhd/B75AO4wF/t9j/XEf4afjX7/Qd/gr81+//HJ9FfPIl+Y/b9
Dz/D78zqbw9/gF/AK/gj8rXZ/y/A38CfzO1ct/DT07i/hVmjeRr9JfyMvAP3
8Ifd/uda4K/gj2Z//4Nf4W/Mfv/B38JPz1S1votn0W+eRX9p9v0Pv4Pfm7Ue
A/wCfwUe4a+RV3M71w38CfnW7PE8+ovn0W+QL8EZfmf27x/4A/xi1vqu4I/w
12Z//4O/gT+Z/f6Dn15Ef2H2/1Evor+En82+/+H38Aez/z+Ev4I/gtdmv/92
PI/N//wvBq4bIA==
            "]]}}, {}},
        AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
        Axes->{True, True},
        AxesLabel->{None, None},
        AxesOrigin->{0, 0},
        DisplayFunction->Identity,
        Frame->{{False, False}, {False, False}},
        FrameLabel->{{None, None}, {None, None}},
        FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
        GridLines->{None, None},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        ImageSize->{465.4453125, Automatic},
        Method->{},
        PlotRange->{{0., 493.}, {0, 9.}},
        PlotRangeClipping->True,
        PlotRangePadding->{{
           Scaled[0.02], 
           Scaled[0.02]}, {
           Scaled[0.02], 
           Scaled[0.05]}},
        Ticks->{Automatic, Automatic}]], "ExerciseOutput",ExpressionUUID->
       "9271e28d-0cf0-4a70-ad00-2baa8c44411d"],
      Apply[TextCell, 
       Cell[
        BoxData[
         GraphicsBox[{{}, {{}, {}, {{
              RGBColor[0.368417, 0.506779, 0.709798], 
              PointSize[0.011111111111111112`], 
              AbsoluteThickness[1.6], 
              LineBox[CompressedData["
1:eJxdmEkO3EQUhgtWLHvBggULYyGEEELNPJMKZCIJiZMACSQEZ4aEEGeeozpC
H8FH6CPUEfoIvgBSHwEh/3+j99Xm6fP/ld1+5aG737h46+SVl1NK/7yU0n91
Hts9KY4ct7+S4/ZFjttfxfbXsP11bG+wvcX2N7H9LXyet/15NN5B/i74PfDS
81XfR/6B2Of3IfKPxD7fj5F/Ivb5f4r8M7H78TnyL8Tuz5fIvxK7X18j/0bc
qu5R9flm8zxKRr437q/sRf5t5AJO36mqf+U75PtU1b+yD/l+VfWv7Ed+QFX9
KweQH1RV/8pB5IdU1b9yCPn3qq1ys6+Hw/bnUQ4jP6Lq/h1BfjQerxxF/kPk
Ak7HVN2/Y8iPq7p/x5F3qupf7mJezOpfRZ5OqKp/+UTMi7nVfLPvl5OqGvlk
zItZ/avI0ynP1/FPxbyY9Xkq8vRj5AwuZvWvIk8/qbp/P8W8mN0/5OlnVffv
55gXc6v5Zj9PTqtq5NMxL2b3D3k64/k6/pmYF7P7hzz9Ej9v/iXmBVzB6VdV
9+/XmBez+4c8nVV1/87GvJhbzTf7eXtOVSOfi3kxu3/I02+er+P/FvNidv+Q
p/Oq7t/5mBez+4c8/R45g4vZ/UOeelX1r+ljns3tXHuzn6dmjRF5Nat/E/J0
wfN1/Asxz2b1r0dezOrfiLya1b8JebqoqvNtLsY8g3twMat/I/JqbnV8+OmS
qkZzKebZrP71yMtuvo6PvJrVvwl5uqyq/jWXY57N6l+PvJjVvxF5NasfE/J0
JXIDzuZWxwcXs8aIvJp9/SFPVz1fx78a82z29Ye8mH39Ia9mX3/I0zVVX3/X
Yp7Nvv6QF7OvP+QVPJn9/fAPsUYDzmZff8gL8hFc4U87Vv0z+s2f0c9m9x9+
gT+atR4V/gQ/XRdrfZrr0c/Xo9+b/XyFP8KvZl//8NON6DdmX/83ot/DL+Z2
riP8Cp4wP/0V8wacwT24gEez1rcin8Dppljr29yMeQb3Zn8/Qj6Cq9n3H/L0
d+TG7Pcf8h5czFrfEXkFT2Y//27h+OBsbufaIy9mP/93PI8Kf4KfhpgvwM0Q
/SU4w++Q92at7wC/wF+Z/TyFv4ZfzVrfDfwJ/tbs7z+3o7+4Hf3GrPVdws/w
O7PWt4c/wC/mdq4r+KNZ/Vvv5s+jwt/An5BvwelO9Bdmn/+d6C/hZ3AHv0c+
mH3/wl/BH81a3zX8Cn9j1vpO8Lfw011Vre/ibvSbu9Ffmv18ht/B783tXAf4
xax+rMwaI/w1/Ip8A57gb3f7V70X/cW96Ddmnz/8DL8D9/AH5MWs9V3BH+Gv
zVrfCn8DfzJrfbfw0/3oL8z+Pno/+kv42dzOtYPfm3V+g1mjwF/BH5GvwRX+
Zrf/uU7wt/DTA1Xf/w+i3zyI/tLs84ffwe/BA/yCfGX27wn4a/jVrPXdwJ/g
b81+/z6M/uJh9BtzO9cl/GzW5+3MGj38AX5BvgKP8Ne7/c+1wt/An8xa3y38
9Cj6C7Pv/0fRX8LPZvWrg9/DH8AF/gr5aNb6ruFX+Buz1neCv4WfHqu2c108
jn5j9vvfrJHhd/B75AO4wF/t9j/XEf4afjX7/Qd/gr81+//HJ9FfPIl+Y/b9
Dz/D78zqbw9/gF/AK/gj8rXZ/y/A38CfzO1ct/DT07i/hVmjeRr9JfyMvAP3
8Ifd/uda4K/gj2Z//4Nf4W/Mfv/B38JPz1S1votn0W+eRX9p9v0Pv4Pfm7Ue
A/wCfwUe4a+RV3M71w38CfnW7PE8+ovn0W+QL8EZfmf27x/4A/xi1vqu4I/w
12Z//4O/gT+Z/f6Dn15Ef2H2/1Evor+En82+/+H38Aez/z+Ev4I/gtdmv/92
PI/N//wvBq4bIA==
               "]]}}}, {}}, AspectRatio -> 
          NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
          AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction -> 
          Identity, Frame -> {{False, False}, {False, False}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> {465.4453125, Automatic}, 
          Method -> {}, PlotRange -> {{0., 493.}, {0, 9.}}, PlotRangeClipping -> 
          True, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, Ticks -> {Automatic, Automatic}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"6eac1ad6-9606-4027-b1d7-d040452ab4b4"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:521b\:5efa 4 \:6b65\:4e0e\:5206\:5f62\:8c22\:5c14\:5bbe\:65af\:57fa\:56fe\
\:6837\:7c7b\:4f3c\:7684 \[OpenCurlyDoubleQuote]",
 StyleBox["\:95e8\:683c\:6d77\:7ef5",
  FontWeight->"Bold"],
 "\[CloseCurlyDoubleQuote]\:ff0c\:6838\:5fc3\:5f62\:5f0f\:4e3a ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      ButtonBox["#",
       BaseStyle->"Link",
       ButtonData->"Slot"], ",", 
      ButtonBox["#",
       BaseStyle->"Link",
       ButtonData->"Slot"], ",", 
      ButtonBox["#",
       BaseStyle->"Link",
       ButtonData->"Slot"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      ButtonBox["#",
       BaseStyle->"Link",
       ButtonData->"Slot"], ",", "0", ",", 
      ButtonBox["#",
       BaseStyle->"Link",
       ButtonData->"Slot"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      ButtonBox["#",
       BaseStyle->"Link",
       ButtonData->"Slot"], ",", 
      ButtonBox["#",
       BaseStyle->"Link",
       ButtonData->"Slot"], ",", 
      ButtonBox["#",
       BaseStyle->"Link",
       ButtonData->"Slot"]}], "}"}]}], "}"}]], "InlineCode",ExpressionUUID->
  "ac89654b-2cf2-4d8d-8ce7-a5e6edf4d57c"],
 "\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.6", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556165463027*^9, 3.8375561869853687`*^9}},
 CellTags->"i:26",ExpressionUUID->"d8518d6e-d5e9-4815-8219-21945099bb00"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         GraphicsBox[RasterBox[{{0}}, {{0, 0}, {1, 1}}, {0, 1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}], ",", 
         GraphicsBox[
          RasterBox[{{0, 0, 0}, {0, 1, 0}, {0, 0, 0}}, {{0, 0}, {3, 3}}, {0, 
           1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}], ",", 
         GraphicsBox[
          RasterBox[{{0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 1, 0, 0, 1, 
           0}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 0, 0, 0}, {0, 
           1, 0, 1, 1, 1, 0, 1, 0}, {0, 0, 0, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 
           0, 0, 0, 0, 0}, {0, 1, 0, 0, 1, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 
           0, 0}}, {{0, 0}, {9, 9}}, {0, 1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}], ",", 
         GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGCQhmJ8gBE3wq+PkRE7gxHMYMTGwKOLBi6Emw8BmAYipDAM
xKIL5lRkKTQvIxuI5mUsumjgQtyhMDxjGQCjewK4
           "], {{0, 0}, {27, 27}}, {
           0, 1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}], ",", 
         GraphicsBox[RasterBox[CompressedData["
1:eJztWFEKwzAIjbvJjrQdoRfo/f8GI+mKRqnmFSKLpCCxumfeM5Q9t/29PUop
r/rgjdDrDoxESIe+DuEcOEK4ZWC5Im02GmpQfyHRhS8ER9joPoeYEnyhJsgz
eKZVXwiOEH6GGVgGW4ZZZkoYddaNPSXLKnbdzDR1WQVDLQcR6gKwCwaEbbes
ZeERws8wA8ss3VWw8xOiQVfLnUOAIxQikTvdglqWlLFL2HIHj/AvWdbsSsFe
WoJZPl5gjl1Qy1o39pwsg80AH1t3YFzf2IOWgeWKVJ8CX0hMrjHUl0JwhOL2
O3aCofWvyJQsgy3DLDMljDrrxp6P5Q9Tgwvs
           "], {{0, 0}, {81, 81}}, {0, 
           1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}]}], "}"}]], "ExerciseOutput",ExpressionUUID->
       "0a035163-fa7c-4b81-850d-6c05c2e00c06"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             GraphicsBox[
              RasterBox[{{0}}, {{0, 0}, {1, 1}}, {0, 1}], Frame -> Automatic, 
              FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}], ",", 
             GraphicsBox[
              
              RasterBox[{{0, 0, 0}, {0, 1, 0}, {0, 0, 0}}, {{0, 0}, {3, 3}}, {
               0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}], ",", 
             GraphicsBox[
              
              RasterBox[{{0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 1, 0, 0, 1,
                0}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 0, 0, 
               0}, {0, 1, 0, 1, 1, 1, 0, 1, 0}, {0, 0, 0, 1, 1, 1, 0, 0, 0}, {
               0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 1, 0, 0, 1, 0}, {0, 0,
                0, 0, 0, 0, 0, 0, 0}}, {{0, 0}, {9, 9}}, {0, 1}], Frame -> 
              Automatic, FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}], ",", 
             GraphicsBox[
              RasterBox[CompressedData["
1:eJxTTMoPSmJiYGCQhmJ8gBE3wq+PkRE7gxHMYMTGwKOLBi6Emw8BmAYipDAM
xKIL5lRkKTQvIxuI5mUsumjgQtyhMDxjGQCjewK4
               "], {{0, 0}, {27, 
               27}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}], ",", 
             GraphicsBox[
              RasterBox[CompressedData["
1:eJztWFEKwzAIjbvJjrQdoRfo/f8GI+mKRqnmFSKLpCCxumfeM5Q9t/29PUop
r/rgjdDrDoxESIe+DuEcOEK4ZWC5Im02GmpQfyHRhS8ER9joPoeYEnyhJsgz
eKZVXwiOEH6GGVgGW4ZZZkoYddaNPSXLKnbdzDR1WQVDLQcR6gKwCwaEbbes
ZeERws8wA8ss3VWw8xOiQVfLnUOAIxQikTvdglqWlLFL2HIHj/AvWdbsSsFe
WoJZPl5gjl1Qy1o39pwsg80AH1t3YFzf2IOWgeWKVJ8CX0hMrjHUl0JwhOL2
O3aCofWvyJQsgy3DLDMljDrrxp6P5Q9Tgwvs
               "], {{0, 0}, {81, 81}}, {
               0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}]}], "}"}]], "ExerciseOutput", Selectable -> False, 
        Copyable -> False, Editable -> False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"e6af9103-e865-44fa-97db-be291648f020"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:901a\:8fc7\:9009\:62e9 ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"x", ",", "y", ",", 
    RowBox[{
     ButtonBox["Sqrt",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{"x", 
      ButtonBox["^",
       BaseStyle->"Link",
       ButtonData->"Power"], "2", 
      ButtonBox["+",
       BaseStyle->"Link",
       ButtonData->"Plus"], "y", 
      ButtonBox["^",
       BaseStyle->"Link",
       ButtonData->"Power"], "2"}], "]"}]}], "}"}]], "InlineCode",
  ExpressionUUID->"7f3d4497-6142-4826-991c-65efd5806821"],
 "\:ff0c\:627e\:5230\:53ea\:6d89\:53ca\:6574\:6570\:7684\:6bd5\:8fbe\:54e5\
\:62c9\:65af\:4e09\:89d2\:ff0c\:5176\:4e2d x \:548c y \:6700\:5927\:4e3a 20\
\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.7", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.83755619598748*^9, 3.8375562124514875`*^9}},
 CellTags->"i:27",ExpressionUUID->"4b3920f5-2fe9-43ad-aaeb-59b6ce152d1a"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "3", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "12", ",", "13"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "8", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8", ",", "6", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8", ",", "15", ",", "17"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", "12", ",", "15"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "5", ",", "13"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "9", ",", "15"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "16", ",", "20"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"15", ",", "8", ",", "17"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"15", ",", "20", ",", "25"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"16", ",", "12", ",", "20"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"20", ",", "15", ",", "25"}], "}"}]}], "}"}]], 
       "ExerciseOutput",ExpressionUUID->
       "40d914f7-ef32-436b-b5b2-15e401ed8a5d"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"4", ",", "3", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"5", ",", "12", ",", "13"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"6", ",", "8", ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"8", ",", "6", ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"8", ",", "15", ",", "17"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"9", ",", "12", ",", "15"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"12", ",", "5", ",", "13"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"12", ",", "9", ",", "15"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"12", ",", "16", ",", "20"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"15", ",", "8", ",", "17"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"15", ",", "20", ",", "25"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"16", ",", "12", ",", "20"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"20", ",", "15", ",", "25"}], "}"}]}], "}"}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"fc7d988d-110d-4700-8b25-4f34deac51e6"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:6c42 2^n \:4e2d\:5404\:4f4d\:6570\:5b57\:76f8\:540c\:7684\:6700\:957f\
\:6570\:5217\:7684\:957f\:5ea6\:ff0cn \:6700\:5927\:4e3a 100\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.8", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556219494907*^9, 
  3.837556221948266*^9}},ExpressionUUID->"d9373a53-a8ef-4cae-b2a9-\
12c5d6aa054c"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
        "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
         "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",",
          "1", ",", "2", ",", "1", ",", "2", ",", "2", ",", "1", ",", "1", 
         ",", "1", ",", "2", ",", "3", ",", "2", ",", "2", ",", "2", ",", "1",
          ",", "1", ",", "1", ",", "1", ",", "1", ",", "2", ",", "1", ",", 
         "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "4", ",",
          "3", ",", "3", ",", "3", ",", "3", ",", "2", ",", "2", ",", "1", 
         ",", "2", ",", "3", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1",
          ",", "1", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", 
         "2", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1", ",",
          "1", ",", "2", ",", "2", ",", "2", ",", "3", ",", "3", ",", "3", 
         ",", "3", ",", "3", ",", "2", ",", "2", ",", "1", ",", "2", ",", "2",
          ",", "3", ",", "2", ",", "2", ",", "2", ",", "1", ",", "2", ",", 
         "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",",
          "2", ",", "2", ",", "2", ",", "2", ",", "2"}], "}"}]], 
       "ExerciseOutput",ExpressionUUID->
       "e5426826-a8d0-456f-b0b8-966dca68b9cf"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",",
              "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1",
              ",", "1", ",", "1", ",", "2", ",", "1", ",", "2", ",", "2", ",",
              "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "2", ",", "2",
              ",", "2", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",",
              "2", ",", "1", ",", "1", ",", "1", ",", "1", ",", "2", ",", "3",
              ",", "3", ",", "4", ",", "3", ",", "3", ",", "3", ",", "3", ",",
              "2", ",", "2", ",", "1", ",", "2", ",", "3", ",", "2", ",", "2",
              ",", "2", ",", "1", ",", "1", ",", "1", ",", "2", ",", "2", ",",
              "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2",
              ",", "1", ",", "1", ",", "1", ",", "1", ",", "2", ",", "2", ",",
              "2", ",", "3", ",", "3", ",", "3", ",", "3", ",", "3", ",", "2",
              ",", "2", ",", "1", ",", "2", ",", "2", ",", "3", ",", "2", ",",
              "2", ",", "2", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2",
              ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",",
              "2", ",", "2", ",", "2"}], "}"}]], "ExerciseOutput", Selectable -> 
        False, Copyable -> False, Editable -> False, ShowCellBracket -> 
        False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"c0db4dca-6336-42f0-b714-c8d010130349"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:83b7\:53d6 100 \:4ee5\:5185\:7684\:6574\:6570\:540d\:79f0\:ff0c\:5e76\
\:6839\:636e\:5b83\:4eec\:7684\:7b2c\:4e00\:4e2a\:5b57\:6bcd\:6765\:5c06\:5b83\
\:4eec\:6536\:96c6\:5230\:5b50\:5217\:8868\:4e2d\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.9", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375562275055113`*^9, 
  3.8375562304127874`*^9}},ExpressionUUID->"f1368f2f-6b08-42e5-bee7-\
969ff3d74a04"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\<\"one\"\>", ",", "\<\"one hundred\"\>"}], "}"}], ",", 
         RowBox[{"{", 
          
          RowBox[{"\<\"two\"\>", ",", "\<\"three\"\>", ",", "\<\"ten\"\>", 
           ",", "\<\"twelve\"\>", ",", "\<\"thirteen\"\>", 
           ",", "\<\"twenty\"\>", ",", "\<\"twenty\[Hyphen]one\"\>", 
           ",", "\<\"twenty\[Hyphen]two\"\>", 
           ",", "\<\"twenty\[Hyphen]three\"\>", 
           ",", "\<\"twenty\[Hyphen]four\"\>", 
           ",", "\<\"twenty\[Hyphen]five\"\>", 
           ",", "\<\"twenty\[Hyphen]six\"\>", 
           ",", "\<\"twenty\[Hyphen]seven\"\>", 
           ",", "\<\"twenty\[Hyphen]eight\"\>", 
           ",", "\<\"twenty\[Hyphen]nine\"\>", ",", "\<\"thirty\"\>", 
           ",", "\<\"thirty\[Hyphen]one\"\>", 
           ",", "\<\"thirty\[Hyphen]two\"\>", 
           ",", "\<\"thirty\[Hyphen]three\"\>", 
           ",", "\<\"thirty\[Hyphen]four\"\>", 
           ",", "\<\"thirty\[Hyphen]five\"\>", 
           ",", "\<\"thirty\[Hyphen]six\"\>", 
           ",", "\<\"thirty\[Hyphen]seven\"\>", 
           ",", "\<\"thirty\[Hyphen]eight\"\>", 
           ",", "\<\"thirty\[Hyphen]nine\"\>"}], "}"}], ",", 
         RowBox[{"{", 
          
          RowBox[{"\<\"four\"\>", ",", "\<\"five\"\>", 
           ",", "\<\"fourteen\"\>", ",", "\<\"fifteen\"\>", 
           ",", "\<\"forty\"\>", ",", "\<\"forty\[Hyphen]one\"\>", 
           ",", "\<\"forty\[Hyphen]two\"\>", 
           ",", "\<\"forty\[Hyphen]three\"\>", 
           ",", "\<\"forty\[Hyphen]four\"\>", 
           ",", "\<\"forty\[Hyphen]five\"\>", 
           ",", "\<\"forty\[Hyphen]six\"\>", 
           ",", "\<\"forty\[Hyphen]seven\"\>", 
           ",", "\<\"forty\[Hyphen]eight\"\>", 
           ",", "\<\"forty\[Hyphen]nine\"\>", ",", "\<\"fifty\"\>", 
           ",", "\<\"fifty\[Hyphen]one\"\>", ",", "\<\"fifty\[Hyphen]two\"\>",
            ",", "\<\"fifty\[Hyphen]three\"\>", 
           ",", "\<\"fifty\[Hyphen]four\"\>", 
           ",", "\<\"fifty\[Hyphen]five\"\>", 
           ",", "\<\"fifty\[Hyphen]six\"\>", 
           ",", "\<\"fifty\[Hyphen]seven\"\>", 
           ",", "\<\"fifty\[Hyphen]eight\"\>", 
           ",", "\<\"fifty\[Hyphen]nine\"\>"}], "}"}], ",", 
         RowBox[{"{", 
          
          RowBox[{"\<\"six\"\>", ",", "\<\"seven\"\>", ",", "\<\"sixteen\"\>",
            ",", "\<\"seventeen\"\>", ",", "\<\"sixty\"\>", 
           ",", "\<\"sixty\[Hyphen]one\"\>", ",", "\<\"sixty\[Hyphen]two\"\>",
            ",", "\<\"sixty\[Hyphen]three\"\>", 
           ",", "\<\"sixty\[Hyphen]four\"\>", 
           ",", "\<\"sixty\[Hyphen]five\"\>", 
           ",", "\<\"sixty\[Hyphen]six\"\>", 
           ",", "\<\"sixty\[Hyphen]seven\"\>", 
           ",", "\<\"sixty\[Hyphen]eight\"\>", 
           ",", "\<\"sixty\[Hyphen]nine\"\>", ",", "\<\"seventy\"\>", 
           ",", "\<\"seventy\[Hyphen]one\"\>", 
           ",", "\<\"seventy\[Hyphen]two\"\>", 
           ",", "\<\"seventy\[Hyphen]three\"\>", 
           ",", "\<\"seventy\[Hyphen]four\"\>", 
           ",", "\<\"seventy\[Hyphen]five\"\>", 
           ",", "\<\"seventy\[Hyphen]six\"\>", 
           ",", "\<\"seventy\[Hyphen]seven\"\>", 
           ",", "\<\"seventy\[Hyphen]eight\"\>", 
           ",", "\<\"seventy\[Hyphen]nine\"\>"}], "}"}], ",", 
         RowBox[{"{", 
          
          RowBox[{"\<\"eight\"\>", ",", "\<\"eleven\"\>", 
           ",", "\<\"eighteen\"\>", ",", "\<\"eighty\"\>", 
           ",", "\<\"eighty\[Hyphen]one\"\>", 
           ",", "\<\"eighty\[Hyphen]two\"\>", 
           ",", "\<\"eighty\[Hyphen]three\"\>", 
           ",", "\<\"eighty\[Hyphen]four\"\>", 
           ",", "\<\"eighty\[Hyphen]five\"\>", 
           ",", "\<\"eighty\[Hyphen]six\"\>", 
           ",", "\<\"eighty\[Hyphen]seven\"\>", 
           ",", "\<\"eighty\[Hyphen]eight\"\>", 
           ",", "\<\"eighty\[Hyphen]nine\"\>"}], "}"}], ",", 
         RowBox[{"{", 
          
          RowBox[{"\<\"nine\"\>", ",", "\<\"nineteen\"\>", 
           ",", "\<\"ninety\"\>", ",", "\<\"ninety\[Hyphen]one\"\>", 
           ",", "\<\"ninety\[Hyphen]two\"\>", 
           ",", "\<\"ninety\[Hyphen]three\"\>", 
           ",", "\<\"ninety\[Hyphen]four\"\>", 
           ",", "\<\"ninety\[Hyphen]five\"\>", 
           ",", "\<\"ninety\[Hyphen]six\"\>", 
           ",", "\<\"ninety\[Hyphen]seven\"\>", 
           ",", "\<\"ninety\[Hyphen]eight\"\>", 
           ",", "\<\"ninety\[Hyphen]nine\"\>"}], "}"}]}], "}"}]], 
       "ExerciseOutput",ExpressionUUID->
       "f074b12a-c085-4f3f-9964-3ce74f3b5080"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"\"one\"", ",", "\"one hundred\""}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "\"two\"", ",", "\"three\"", ",", "\"ten\"", ",", 
                 "\"twelve\"", ",", "\"thirteen\"", ",", "\"twenty\"", ",", 
                 "\"twenty\[Hyphen]one\"", ",", "\"twenty\[Hyphen]two\"", ",",
                  "\"twenty\[Hyphen]three\"", ",", "\"twenty\[Hyphen]four\"", 
                 ",", "\"twenty\[Hyphen]five\"", ",", 
                 "\"twenty\[Hyphen]six\"", ",", "\"twenty\[Hyphen]seven\"", 
                 ",", "\"twenty\[Hyphen]eight\"", ",", 
                 "\"twenty\[Hyphen]nine\"", ",", "\"thirty\"", ",", 
                 "\"thirty\[Hyphen]one\"", ",", "\"thirty\[Hyphen]two\"", ",",
                  "\"thirty\[Hyphen]three\"", ",", "\"thirty\[Hyphen]four\"", 
                 ",", "\"thirty\[Hyphen]five\"", ",", 
                 "\"thirty\[Hyphen]six\"", ",", "\"thirty\[Hyphen]seven\"", 
                 ",", "\"thirty\[Hyphen]eight\"", ",", 
                 "\"thirty\[Hyphen]nine\""}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "\"four\"", ",", "\"five\"", ",", "\"fourteen\"", ",", 
                 "\"fifteen\"", ",", "\"forty\"", ",", 
                 "\"forty\[Hyphen]one\"", ",", "\"forty\[Hyphen]two\"", ",", 
                 "\"forty\[Hyphen]three\"", ",", "\"forty\[Hyphen]four\"", 
                 ",", "\"forty\[Hyphen]five\"", ",", "\"forty\[Hyphen]six\"", 
                 ",", "\"forty\[Hyphen]seven\"", ",", 
                 "\"forty\[Hyphen]eight\"", ",", "\"forty\[Hyphen]nine\"", 
                 ",", "\"fifty\"", ",", "\"fifty\[Hyphen]one\"", ",", 
                 "\"fifty\[Hyphen]two\"", ",", "\"fifty\[Hyphen]three\"", ",",
                  "\"fifty\[Hyphen]four\"", ",", "\"fifty\[Hyphen]five\"", 
                 ",", "\"fifty\[Hyphen]six\"", ",", "\"fifty\[Hyphen]seven\"",
                  ",", "\"fifty\[Hyphen]eight\"", ",", 
                 "\"fifty\[Hyphen]nine\""}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "\"six\"", ",", "\"seven\"", ",", "\"sixteen\"", ",", 
                 "\"seventeen\"", ",", "\"sixty\"", ",", 
                 "\"sixty\[Hyphen]one\"", ",", "\"sixty\[Hyphen]two\"", ",", 
                 "\"sixty\[Hyphen]three\"", ",", "\"sixty\[Hyphen]four\"", 
                 ",", "\"sixty\[Hyphen]five\"", ",", "\"sixty\[Hyphen]six\"", 
                 ",", "\"sixty\[Hyphen]seven\"", ",", 
                 "\"sixty\[Hyphen]eight\"", ",", "\"sixty\[Hyphen]nine\"", 
                 ",", "\"seventy\"", ",", "\"seventy\[Hyphen]one\"", ",", 
                 "\"seventy\[Hyphen]two\"", ",", "\"seventy\[Hyphen]three\"", 
                 ",", "\"seventy\[Hyphen]four\"", ",", 
                 "\"seventy\[Hyphen]five\"", ",", "\"seventy\[Hyphen]six\"", 
                 ",", "\"seventy\[Hyphen]seven\"", ",", 
                 "\"seventy\[Hyphen]eight\"", ",", 
                 "\"seventy\[Hyphen]nine\""}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "\"eight\"", ",", "\"eleven\"", ",", "\"eighteen\"", ",", 
                 "\"eighty\"", ",", "\"eighty\[Hyphen]one\"", ",", 
                 "\"eighty\[Hyphen]two\"", ",", "\"eighty\[Hyphen]three\"", 
                 ",", "\"eighty\[Hyphen]four\"", ",", 
                 "\"eighty\[Hyphen]five\"", ",", "\"eighty\[Hyphen]six\"", 
                 ",", "\"eighty\[Hyphen]seven\"", ",", 
                 "\"eighty\[Hyphen]eight\"", ",", "\"eighty\[Hyphen]nine\""}],
                "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "\"nine\"", ",", "\"nineteen\"", ",", "\"ninety\"", ",", 
                 "\"ninety\[Hyphen]one\"", ",", "\"ninety\[Hyphen]two\"", ",",
                  "\"ninety\[Hyphen]three\"", ",", "\"ninety\[Hyphen]four\"", 
                 ",", "\"ninety\[Hyphen]five\"", ",", 
                 "\"ninety\[Hyphen]six\"", ",", "\"ninety\[Hyphen]seven\"", 
                 ",", "\"ninety\[Hyphen]eight\"", ",", 
                 "\"ninety\[Hyphen]nine\""}], "}"}]}], "}"}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"967ff9cb-5a34-43a4-b559-3496bc6c0003"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06 ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["WordList",
    BaseStyle->"CodeLink"], "[", " ", "]"}]], "InlineCode",ExpressionUUID->
  "7437981b-59bb-4425-914c-e56be1aef11b"],
 " \:4e2d\:7684\:524d50\:4e2a\:8bcd\:6309\:5176\:6700\:540e\:4e00\:4e2a\:5b57\
\:6bcd\:6392\:5e8f\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.10", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556236966427*^9, 
  3.8375562485863695`*^9}},ExpressionUUID->"a9f3ea33-78ad-4661-ba4b-\
615e360d71f5"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{"\<\"a\"\>", ",", "\<\"abandoned\"\>", ",", "\<\"abashed\"\>",
          ",", "\<\"abbreviated\"\>", ",", "\<\"abed\"\>", 
         ",", "\<\"abalone\"\>", ",", "\<\"abase\"\>", ",", "\<\"abate\"\>", 
         ",", "\<\"abbe\"\>", ",", "\<\"abbreviate\"\>", 
         ",", "\<\"abdicate\"\>", ",", "\<\"abeyance\"\>", 
         ",", "\<\"abhorrence\"\>", ",", "\<\"abidance\"\>", 
         ",", "\<\"abide\"\>", ",", "\<\"abducting\"\>", 
         ",", "\<\"abiding\"\>", ",", "\<\"aah\"\>", ",", "\<\"abash\"\>", 
         ",", "\<\"aardvark\"\>", ",", "\<\"aback\"\>", 
         ",", "\<\"abdominal\"\>", ",", "\<\"abeam\"\>", 
         ",", "\<\"abandon\"\>", ",", "\<\"abbreviation\"\>", 
         ",", "\<\"abdication\"\>", ",", "\<\"abdomen\"\>", 
         ",", "\<\"abduction\"\>", ",", "\<\"aberration\"\>", 
         ",", "\<\"abjection\"\>", ",", "\<\"abattoir\"\>", 
         ",", "\<\"abductor\"\>", ",", "\<\"abettor\"\>", 
         ",", "\<\"abhor\"\>", ",", "\<\"abacus\"\>", ",", "\<\"abbess\"\>", 
         ",", "\<\"abaft\"\>", ",", "\<\"abandonment\"\>", 
         ",", "\<\"abasement\"\>", ",", "\<\"abashment\"\>", 
         ",", "\<\"abatement\"\>", ",", "\<\"abbot\"\>", 
         ",", "\<\"abduct\"\>", ",", "\<\"aberrant\"\>", ",", "\<\"abet\"\>", 
         ",", "\<\"abhorrent\"\>", ",", "\<\"abject\"\>", 
         ",", "\<\"abbey\"\>", ",", "\<\"ability\"\>", 
         ",", "\<\"abjectly\"\>"}], "}"}]], "ExerciseOutput",ExpressionUUID->
       "e6da626a-c7fe-40be-af27-fd0425715a89"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"\"a\"", ",", "\"abandoned\"", ",", "\"abashed\"", ",", 
             "\"abbreviated\"", ",", "\"abed\"", ",", "\"abalone\"", ",", 
             "\"abase\"", ",", "\"abate\"", ",", "\"abbe\"", ",", 
             "\"abbreviate\"", ",", "\"abdicate\"", ",", "\"abeyance\"", ",", 
             "\"abhorrence\"", ",", "\"abidance\"", ",", "\"abide\"", ",", 
             "\"abducting\"", ",", "\"abiding\"", ",", "\"aah\"", ",", 
             "\"abash\"", ",", "\"aardvark\"", ",", "\"aback\"", ",", 
             "\"abdominal\"", ",", "\"abeam\"", ",", "\"abandon\"", ",", 
             "\"abbreviation\"", ",", "\"abdication\"", ",", "\"abdomen\"", 
             ",", "\"abduction\"", ",", "\"aberration\"", ",", 
             "\"abjection\"", ",", "\"abattoir\"", ",", "\"abductor\"", ",", 
             "\"abettor\"", ",", "\"abhor\"", ",", "\"abacus\"", ",", 
             "\"abbess\"", ",", "\"abaft\"", ",", "\"abandonment\"", ",", 
             "\"abasement\"", ",", "\"abashment\"", ",", "\"abatement\"", ",",
              "\"abbot\"", ",", "\"abduct\"", ",", "\"aberrant\"", ",", 
             "\"abet\"", ",", "\"abhorrent\"", ",", "\"abject\"", ",", 
             "\"abbey\"", ",", "\"ability\"", ",", "\"abjectly\""}], "}"}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"956dbf10-2a5c-4e77-be02-e58d4a320034"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:8ba1\:7b97\:524d 20 \
\:4e2a\:6570\:5b57\:7684\:5e73\:65b9\:ff0c\:5e76\:6309\:5176\:9996\:4f4d\:6570\
\:5b57\:8fdb\:884c\:6392\:5e8f\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.11", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556254188406*^9, 
  3.8375562578967066`*^9}},ExpressionUUID->"f5f1f9a2-0d83-4600-bb16-\
00294987b5b1"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
        "1", ",", "16", ",", "100", ",", "121", ",", "144", ",", "169", ",", 
         "196", ",", "25", ",", "225", ",", "256", ",", "289", ",", "36", ",",
          "324", ",", "361", ",", "4", ",", "49", ",", "400", ",", "64", ",", 
         "81", ",", "9"}], "}"}]], "ExerciseOutput",ExpressionUUID->
       "9a0b4ad9-d968-4353-80ff-4adc3ade6172"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"1", ",", "16", ",", "100", ",", "121", ",", "144", ",", 
             "169", ",", "196", ",", "25", ",", "225", ",", "256", ",", "289",
              ",", "36", ",", "324", ",", "361", ",", "4", ",", "49", ",", 
             "400", ",", "64", ",", "81", ",", "9"}], "}"}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"51cb7e5b-a0d4-4c31-9c4c-3a47094fccca"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:6309\:7167\:82f1\:6587\:540d\:79f0\:7684\:957f\:5ea6\:5bf9 20 \
\:4ee5\:5185\:7684\:6574\:6570\:8fdb\:884c\:6392\:5e8f\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.12", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375562636187897`*^9, 
  3.8375562672584248`*^9}},ExpressionUUID->"73b50c6b-1ca3-4b3a-af9c-\
6dbc5b8f78a7"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
        "1", ",", "2", ",", "6", ",", "10", ",", "4", ",", "5", ",", "9", ",",
          "3", ",", "7", ",", "8", ",", "11", ",", "12", ",", "20", ",", "15",
          ",", "16", ",", "13", ",", "14", ",", "18", ",", "19", ",", "17"}], 
        "}"}]], "ExerciseOutput",ExpressionUUID->
       "f5a8492f-e062-4e31-9367-12fb4b9fa5a5"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"1", ",", "2", ",", "6", ",", "10", ",", "4", ",", "5", 
             ",", "9", ",", "3", ",", "7", ",", "8", ",", "11", ",", "12", 
             ",", "20", ",", "15", ",", "16", ",", "13", ",", "14", ",", "18",
              ",", "19", ",", "17"}], "}"}]], "ExerciseOutput", Selectable -> 
        False, Copyable -> False, Editable -> False, ShowCellBracket -> 
        False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"5b32196e-80cc-499b-8c40-6161f3d62f1c"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:4ece ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["WordList",
    BaseStyle->"CodeLink"], "[", " ", "]"}]], "InlineCode",ExpressionUUID->
  "28c6f011-7aa5-4101-885c-163912eeb374"],
 " \:4e2d\:968f\:673a\:83b7\:53d6 20 \:4e2a\:5355\:8bcd\:7684\:6837\:672c\
\:ff0c\:5e76\:6309\:957f\:5ea6\:5c06\:5b83\:4eec\:6536\:96c6\:5230\:5b50\:5217\
\:8868\:4e2d\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.13", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375562721617613`*^9, 
  3.8375562821879516`*^9}},ExpressionUUID->"eb6ea61c-7671-4f1e-8776-\
6a4f2350c866"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa\:793a\:4f8b", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "\<\"paste\"\>", "}"}], ",", 
         RowBox[{"{", 
          
          RowBox[{"\<\"mistakenly\"\>", ",", "\<\"unintended\"\>", 
           ",", "\<\"victorious\"\>", ",", "\<\"watercress\"\>"}], "}"}], ",", 
         RowBox[{"{", 
          
          RowBox[{"\<\"powerful\"\>", ",", "\<\"jingoist\"\>", 
           ",", "\<\"ballpark\"\>", ",", "\<\"rapeseed\"\>", 
           ",", "\<\"dyslexia\"\>"}], "}"}], ",", 
         RowBox[{"{", "\<\"repeal\"\>", "}"}], ",", 
         RowBox[{"{", "\<\"paleontological\"\>", "}"}], ",", 
         RowBox[{"{", "\<\"encouragement\"\>", "}"}], ",", 
         RowBox[{"{", "\<\"countryside\"\>", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\<\"selfish\"\>", ",", "\<\"hedging\"\>"}], "}"}], ",", 
         RowBox[{"{", "\<\"barometer\"\>", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\<\"veil\"\>", ",", "\<\"well\"\>"}], "}"}], ",", 
         RowBox[{"{", "\<\"municipality\"\>", "}"}]}], "}"}]], 
       "ExerciseOutput",ExpressionUUID->
       "fd1c2d3b-3544-425b-8629-dc3d50a83582"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             RowBox[{"{", "\"paste\"", "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "\"mistakenly\"", ",", "\"unintended\"", ",", 
                 "\"victorious\"", ",", "\"watercress\""}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "\"powerful\"", ",", "\"jingoist\"", ",", "\"ballpark\"", ",",
                  "\"rapeseed\"", ",", "\"dyslexia\""}], "}"}], ",", 
             RowBox[{"{", "\"repeal\"", "}"}], ",", 
             RowBox[{"{", "\"paleontological\"", "}"}], ",", 
             RowBox[{"{", "\"encouragement\"", "}"}], ",", 
             RowBox[{"{", "\"countryside\"", "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"\"selfish\"", ",", "\"hedging\""}], "}"}], ",", 
             RowBox[{"{", "\"barometer\"", "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"\"veil\"", ",", "\"well\""}], "}"}], ",", 
             RowBox[{"{", "\"municipality\"", "}"}]}], "}"}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"aeaae73a-fc82-47d6-bb54-7a41826f8016"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:627e\:51fa\:5728\:4e4c\:514b\:5170\:8bed(Ukrainian)\:4e2d\:ff0c\:4f46\
\:4e0d\:5728\:4fc4\:8bed(Russian)\:4e2d\:7684\:5b57\:6bcd\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.14", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556287350171*^9, 
  3.8375562901406393`*^9}},ExpressionUUID->"a6025856-766c-4815-83a6-\
cd4d7351159e"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{"\<\"\:0454\"\>", ",", "\<\"\:0456\"\>", 
         ",", "\<\"\:0457\"\>", ",", "\<\"\:0491\"\>"}], "}"}]], 
       "ExerciseOutput",ExpressionUUID->
       "2eef5d46-d1e6-40b2-b427-d6ad1126f6a1"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"\"\:0454\"", ",", "\"\:0456\"", ",", "\"\:0457\"", ",", 
             "\"\:0491\""}], "}"}]], "ExerciseOutput", Selectable -> False, 
        Copyable -> False, Editable -> False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"958851df-ae9d-4c31-b6f2-d7ba0b99a2bc"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:4f7f\:7528 ",
 ButtonBox["Intersection",
  BaseStyle->"Link"],
 " \:6765\:5bfb\:627e\:540c\:65f6\:51fa\:73b0\:5728\:524d 100 \:4e2a\:6570\
\:5b57\:7684\:5e73\:65b9\:548c\:7acb\:65b9\:4e2d\:7684\:6570\:5b57\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.15", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375562971392612`*^9, 
  3.8375563077046003`*^9}},ExpressionUUID->"e4e811c8-dee9-40f4-a22b-\
ae2e4a1b18c4"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{"1", ",", "64", ",", "729", ",", "4096"}], "}"}]], 
       "ExerciseOutput",ExpressionUUID->
       "de2c6313-decc-4108-a198-c1b5bc975415"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{"1", ",", "64", ",", "729", ",", "4096"}], "}"}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"8c393eea-2bda-4926-bff2-c0fdfd755964"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:627e\:51fa\:540c\:65f6\:5c5e\:4e8e\:5317\:7ea6(NATO)\:548c\:516b\:56fd\
\:96c6\:56e2(G8)\:7684\:56fd\:5bb6\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.16", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556313236274*^9, 3.837556317058558*^9}},
 CellTags->"i:28",ExpressionUUID->"6a712fea-caf9-4f81-99fe-712410845d63"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         TemplateBox[{"\"Canada\"", 
           RowBox[{"Entity", "[", 
             RowBox[{"\"Country\"", ",", "\"Canada\""}], "]"}], 
           "\"Entity[\\\"Country\\\", \\\"Canada\\\"]\"", "\"country\""},
          "Entity"], ",", 
         TemplateBox[{"\"France\"", 
           RowBox[{"Entity", "[", 
             RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], 
           "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""},
          "Entity"], ",", 
         TemplateBox[{"\"Germany\"", 
           RowBox[{"Entity", "[", 
             RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], 
           "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""},
          "Entity"], ",", 
         TemplateBox[{"\"Italy\"", 
           RowBox[{"Entity", "[", 
             RowBox[{"\"Country\"", ",", "\"Italy\""}], "]"}], 
           "\"Entity[\\\"Country\\\", \\\"Italy\\\"]\"", "\"country\""},
          "Entity"], ",", 
         TemplateBox[{"\"United Kingdom\"", 
           RowBox[{"Entity", "[", 
             RowBox[{"\"Country\"", ",", "\"UnitedKingdom\""}], "]"}], 
           "\"Entity[\\\"Country\\\", \\\"UnitedKingdom\\\"]\"", 
           "\"country\""},
          "Entity"], ",", 
         TemplateBox[{"\"United States\"", 
           RowBox[{"Entity", "[", 
             RowBox[{"\"Country\"", ",", "\"UnitedStates\""}], "]"}], 
           "\"Entity[\\\"Country\\\", \\\"UnitedStates\\\"]\"", "\"country\""},
          "Entity"]}], "}"}]], "ExerciseOutput",ExpressionUUID->
       "e5d47695-8ab7-4674-9e5e-727f117b8d67"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             TemplateBox[{"\"Canada\"", 
               RowBox[{"Entity", "[", 
                 RowBox[{"\"Country\"", ",", "\"Canada\""}], "]"}], 
               "\"Entity[\\\"Country\\\", \\\"Canada\\\"]\"", "\"country\""}, 
              "Entity"], ",", 
             TemplateBox[{"\"France\"", 
               RowBox[{"Entity", "[", 
                 RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], 
               "\"Entity[\\\"Country\\\", \\\"France\\\"]\"", "\"country\""}, 
              "Entity"], ",", 
             TemplateBox[{"\"Germany\"", 
               RowBox[{"Entity", "[", 
                 RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], 
               "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"", "\"country\""},
               "Entity"], ",", 
             TemplateBox[{"\"Italy\"", 
               RowBox[{"Entity", "[", 
                 RowBox[{"\"Country\"", ",", "\"Italy\""}], "]"}], 
               "\"Entity[\\\"Country\\\", \\\"Italy\\\"]\"", "\"country\""}, 
              "Entity"], ",", 
             TemplateBox[{"\"United Kingdom\"", 
               RowBox[{"Entity", "[", 
                 RowBox[{"\"Country\"", ",", "\"UnitedKingdom\""}], "]"}], 
               "\"Entity[\\\"Country\\\", \\\"UnitedKingdom\\\"]\"", 
               "\"country\""}, "Entity"], ",", 
             TemplateBox[{"\"United States\"", 
               RowBox[{"Entity", "[", 
                 RowBox[{"\"Country\"", ",", "\"UnitedStates\""}], "]"}], 
               "\"Entity[\\\"Country\\\", \\\"UnitedStates\\\"]\"", 
               "\"country\""}, "Entity"]}], "}"}]], "ExerciseOutput", 
        Selectable -> False, Copyable -> False, Editable -> False, 
        ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"455d660a-6355-4947-b4c0-fd63b47ceae2"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:521b\:5efa\:4e00\:4e2a\:7f51\:683c\:ff0c\:5c06\:6570\:5b57 1 \:5230 4 \
\:6240\:6709\:53ef\:80fd\:7684\:6392\:5217\:7ec4\:5408\:4f5c\:4e3a\:8fde\:7eed\
\:7684\:5217\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.17", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556323189842*^9, 
  3.8375563264253497`*^9}},ExpressionUUID->"2b01a72d-a9f1-497f-88fd-\
439b92ad4846"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       TagBox[GridBox[{
          {"1", "1", "1", "1", "1", "1", "2", "2", "2", "2", "2", "2", "3", 
           "3", "3", "3", "3", "3", "4", "4", "4", "4", "4", "4"},
          {"2", "2", "3", "3", "4", "4", "1", "1", "3", "3", "4", "4", "1", 
           "1", "2", "2", "4", "4", "1", "1", "2", "2", "3", "3"},
          {"3", "4", "2", "4", "2", "3", "3", "4", "1", "4", "1", "3", "2", 
           "4", "1", "4", "1", "2", "2", "3", "1", "3", "1", "2"},
          {"4", "3", "4", "2", "3", "2", "4", "3", "4", "1", "3", "1", "4", 
           "2", "4", "1", "2", "1", "3", "2", "3", "1", "2", "1"}
         },
         AutoDelete->False,
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
        "Grid"]], "ExerciseOutput",ExpressionUUID->
       "b9c4d7e1-2a9c-4319-bfd9-9cdbc0637ea8"],
      Apply[TextCell, 
       Cell[
        BoxData[
         TagBox[
          
          GridBox[{{
            "1", "1", "1", "1", "1", "1", "2", "2", "2", "2", "2", "2", "3", 
             "3", "3", "3", "3", "3", "4", "4", "4", "4", "4", "4"}, {
            "2", "2", "3", "3", "4", "4", "1", "1", "3", "3", "4", "4", "1", 
             "1", "2", "2", "4", "4", "1", "1", "2", "2", "3", "3"}, {
            "3", "4", "2", "4", "2", "3", "3", "4", "1", "4", "1", "3", "2", 
             "4", "1", "4", "1", "2", "2", "3", "1", "3", "1", "2"}, {
            "4", "3", "4", "2", "3", "2", "4", "3", "4", "1", "3", "1", "4", 
             "2", "4", "1", "2", "1", "3", "2", "3", "1", "2", "1"}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"bf6fd317-fbdd-4854-8945-99edc1dd5519"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5217\:51fa\:6240\:6709\:901a\:8fc7\:6392\:5217\:7ec4\:5408 \
\[OpenCurlyDoubleQuote]hello\[CloseCurlyDoubleQuote] \:4e2d\:7684\:5b57\:7b26\
\:53ef\:4ee5\:5f97\:5230\:7684\:4e0d\:540c\:5b57\:7b26\:4e32\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.18", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375563323435106`*^9, 
  3.837556345150375*^9}},ExpressionUUID->"ef34e87b-218a-425d-a9bb-\
072a41de2091"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{"\<\"ehllo\"\>", ",", "\<\"ehlol\"\>", ",", "\<\"eholl\"\>", 
         ",", "\<\"elhlo\"\>", ",", "\<\"elhol\"\>", ",", "\<\"ellho\"\>", 
         ",", "\<\"elloh\"\>", ",", "\<\"elohl\"\>", ",", "\<\"elolh\"\>", 
         ",", "\<\"eohll\"\>", ",", "\<\"eolhl\"\>", ",", "\<\"eollh\"\>", 
         ",", "\<\"hello\"\>", ",", "\<\"helol\"\>", ",", "\<\"heoll\"\>", 
         ",", "\<\"hlelo\"\>", ",", "\<\"hleol\"\>", ",", "\<\"hlleo\"\>", 
         ",", "\<\"hlloe\"\>", ",", "\<\"hloel\"\>", ",", "\<\"hlole\"\>", 
         ",", "\<\"hoell\"\>", ",", "\<\"holel\"\>", ",", "\<\"holle\"\>", 
         ",", "\<\"lehlo\"\>", ",", "\<\"lehol\"\>", ",", "\<\"lelho\"\>", 
         ",", "\<\"leloh\"\>", ",", "\<\"leohl\"\>", ",", "\<\"leolh\"\>", 
         ",", "\<\"lhelo\"\>", ",", "\<\"lheol\"\>", ",", "\<\"lhleo\"\>", 
         ",", "\<\"lhloe\"\>", ",", "\<\"lhoel\"\>", ",", "\<\"lhole\"\>", 
         ",", "\<\"lleho\"\>", ",", "\<\"lleoh\"\>", ",", "\<\"llheo\"\>", 
         ",", "\<\"llhoe\"\>", ",", "\<\"lloeh\"\>", ",", "\<\"llohe\"\>", 
         ",", "\<\"loehl\"\>", ",", "\<\"loelh\"\>", ",", "\<\"lohel\"\>", 
         ",", "\<\"lohle\"\>", ",", "\<\"loleh\"\>", ",", "\<\"lolhe\"\>", 
         ",", "\<\"oehll\"\>", ",", "\<\"oelhl\"\>", ",", "\<\"oellh\"\>", 
         ",", "\<\"ohell\"\>", ",", "\<\"ohlel\"\>", ",", "\<\"ohlle\"\>", 
         ",", "\<\"olehl\"\>", ",", "\<\"olelh\"\>", ",", "\<\"olhel\"\>", 
         ",", "\<\"olhle\"\>", ",", "\<\"olleh\"\>", ",", "\<\"ollhe\"\>"}], 
        "}"}]], "ExerciseOutput",ExpressionUUID->
       "9d39c347-4222-45dc-b8dd-8e77744e1d5f"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"\"ehllo\"", ",", "\"ehlol\"", ",", "\"eholl\"", ",", 
             "\"elhlo\"", ",", "\"elhol\"", ",", "\"ellho\"", ",", 
             "\"elloh\"", ",", "\"elohl\"", ",", "\"elolh\"", ",", 
             "\"eohll\"", ",", "\"eolhl\"", ",", "\"eollh\"", ",", 
             "\"hello\"", ",", "\"helol\"", ",", "\"heoll\"", ",", 
             "\"hlelo\"", ",", "\"hleol\"", ",", "\"hlleo\"", ",", 
             "\"hlloe\"", ",", "\"hloel\"", ",", "\"hlole\"", ",", 
             "\"hoell\"", ",", "\"holel\"", ",", "\"holle\"", ",", 
             "\"lehlo\"", ",", "\"lehol\"", ",", "\"lelho\"", ",", 
             "\"leloh\"", ",", "\"leohl\"", ",", "\"leolh\"", ",", 
             "\"lhelo\"", ",", "\"lheol\"", ",", "\"lhleo\"", ",", 
             "\"lhloe\"", ",", "\"lhoel\"", ",", "\"lhole\"", ",", 
             "\"lleho\"", ",", "\"lleoh\"", ",", "\"llheo\"", ",", 
             "\"llhoe\"", ",", "\"lloeh\"", ",", "\"llohe\"", ",", 
             "\"loehl\"", ",", "\"loelh\"", ",", "\"lohel\"", ",", 
             "\"lohle\"", ",", "\"loleh\"", ",", "\"lolhe\"", ",", 
             "\"oehll\"", ",", "\"oelhl\"", ",", "\"oellh\"", ",", 
             "\"ohell\"", ",", "\"ohlel\"", ",", "\"ohlle\"", ",", 
             "\"olehl\"", ",", "\"olelh\"", ",", "\"olhel\"", ",", 
             "\"olhle\"", ",", "\"olleh\"", ",", "\"ollhe\""}], "}"}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"010a8e60-15db-45eb-b59c-086bbcdb408a"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:8ba1\:7b97\:5305\:542b 5 \:4e2a 0 \:548c 1 \:7684\:5143\:7ec4\:ff0c\:7136\
\:540e\:521b\:5efa\:6570\:7ec4\:56fe\:793a\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.19", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.83755635214688*^9, 
  3.8375563555801926`*^9}},ExpressionUUID->"ce24c51d-6ae5-4342-89d9-\
85550a17ec6c"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       GraphicsBox[
        RasterBox[{{0, 0, 0, 0, 0}, {0, 0, 0, 0, 1}, {0, 0, 0, 1, 0}, {0, 0, 
         0, 1, 1}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 1}, {0, 0, 1, 1, 0}, {0, 0, 
         1, 1, 1}, {0, 1, 0, 0, 0}, {0, 1, 0, 0, 1}, {0, 1, 0, 1, 0}, {0, 1, 
         0, 1, 1}, {0, 1, 1, 0, 0}, {0, 1, 1, 0, 1}, {0, 1, 1, 1, 0}, {0, 1, 
         1, 1, 1}, {1, 0, 0, 0, 0}, {1, 0, 0, 0, 1}, {1, 0, 0, 1, 0}, {1, 0, 
         0, 1, 1}, {1, 0, 1, 0, 0}, {1, 0, 1, 0, 1}, {1, 0, 1, 1, 0}, {1, 0, 
         1, 1, 1}, {1, 1, 0, 0, 0}, {1, 1, 0, 0, 1}, {1, 1, 0, 1, 0}, {1, 1, 
         0, 1, 1}, {1, 1, 1, 0, 0}, {1, 1, 1, 0, 1}, {1, 1, 1, 1, 0}, {1, 1, 
         1, 1, 1}}, {{0, 0}, {5, 32}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        ImageSize->{72.41796875, Automatic},
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
          Automatic}]], "ExerciseOutput",ExpressionUUID->
       "5aafae28-7ee8-463c-abe7-675defc21d88"],
      Apply[TextCell, 
       Cell[
        BoxData[
         GraphicsBox[
          
          RasterBox[{{0, 0, 0, 0, 0}, {0, 0, 0, 0, 1}, {0, 0, 0, 1, 0}, {0, 0,
            0, 1, 1}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 1}, {0, 0, 1, 1, 0}, {0, 
           0, 1, 1, 1}, {0, 1, 0, 0, 0}, {0, 1, 0, 0, 1}, {0, 1, 0, 1, 0}, {0,
            1, 0, 1, 1}, {0, 1, 1, 0, 0}, {0, 1, 1, 0, 1}, {0, 1, 1, 1, 0}, {
           0, 1, 1, 1, 1}, {1, 0, 0, 0, 0}, {1, 0, 0, 0, 1}, {1, 0, 0, 1, 
           0}, {1, 0, 0, 1, 1}, {1, 0, 1, 0, 0}, {1, 0, 1, 0, 1}, {1, 0, 1, 1,
            0}, {1, 0, 1, 1, 1}, {1, 1, 0, 0, 0}, {1, 1, 0, 0, 1}, {1, 1, 0, 
           1, 0}, {1, 1, 0, 1, 1}, {1, 1, 1, 0, 0}, {1, 1, 1, 0, 1}, {1, 1, 1,
            1, 0}, {1, 1, 1, 1, 1}}, {{0, 0}, {5, 32}}, {0, 1}], Frame -> 
          Automatic, FrameLabel -> {None, None}, 
          FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
          Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> {72.41796875, Automatic}, 
          Method -> {
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}]], "ExerciseOutput", Selectable -> False, Copyable -> 
        False, Editable -> False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"a0002aef-b7aa-47f2-b996-cdb5658ebdd1"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:751f\:6210\:4e00\:4e2a\:7531 5 \:4e2a\:968f\:673a\:5b57\:6bcd\:7ec4\:6210\
\:7684 10 \:4e2a\:5e8f\:5217\:7684\:5217\:8868\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.20", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556361246958*^9, 
  3.8375563643178024`*^9}},ExpressionUUID->"c6545981-c28a-412d-b630-\
f17a5b53fddf"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa\:793a\:4f8b", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{"\<\"ayasl\"\>", ",", "\<\"icnry\"\>", ",", "\<\"ahbaa\"\>", 
         ",", "\<\"jqkpc\"\>", ",", "\<\"orlaf\"\>", ",", "\<\"rmexo\"\>", 
         ",", "\<\"ngrfy\"\>", ",", "\<\"vwhii\"\>", ",", "\<\"wjiqn\"\>", 
         ",", "\<\"gngvk\"\>"}], "}"}]], "ExerciseOutput",ExpressionUUID->
       "b52ea4c6-06ba-426a-aa2a-2a609a32a845"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"\"ayasl\"", ",", "\"icnry\"", ",", "\"ahbaa\"", ",", 
             "\"jqkpc\"", ",", "\"orlaf\"", ",", "\"rmexo\"", ",", 
             "\"ngrfy\"", ",", "\"vwhii\"", ",", "\"wjiqn\"", ",", 
             "\"gngvk\""}], "}"}]], "ExerciseOutput", Selectable -> False, 
        Copyable -> False, Editable -> False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"16f2231e-4cad-4aa3-a91e-57c5410b4bc4"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:4e3a ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Flatten",
    BaseStyle->"CodeLink"], "[", 
   RowBox[{
    RowBox[{
     ButtonBox["Table",
      BaseStyle->"CodeLink"], "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", "j", ",", "k"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "2"}], "}"}]}], "]"}], ",", "2"}], "]"}]], 
  "InlineCode",ExpressionUUID->"9b8a6fe4-4a00-48f1-a176-0d658aef82b4"],
 " \:627e\:5230\:4e00\:4e2a\:66f4\:7b80\:5355\:7684\:5f62\:5f0f\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "30.21", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556372430208*^9, 3.837556380790298*^9}},
 CellTags->
  "LastCellOfAPage",ExpressionUUID->"9138ee94-0d26-4d58-b19f-f002774fb9be"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]], 
       "ExerciseOutput",ExpressionUUID->
       "2a12e3bf-3f8c-4088-95af-1471726bf413"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"2b1790ce-f529-40ca-8299-e1d33491ac80"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06\:7ef4\:57fa\:767e\:79d1\:4e0a\:5173\:4e8e\:8ba1\:7b97\:673a\:7684\
\:6587\:7ae0\:4e2d\:524d 1000 \
\:4e2a\:5b57\:7b26\:4e2d\:7684\:5b57\:6bcd\:7684\:7f16\:53f7\:521b\:5efa\:4e3a\
\:6570\:7ec4\:56fe\:793a\:ff0c\:6bcf\:884c 30 \:4e2a\:5b57\:6bcd\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.1", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375563879570694`*^9, 
  3.8375563907652116`*^9}},ExpressionUUID->"e85e4837-b682-412f-8ca1-\
f688a51ed011"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       GraphicsBox[RasterBox[CompressedData["
1:eJxlklGO2zAMROONRbEipYKxKS1RoECv1CPsBXr/vw6NbBZoP+TEljh8M9Sv
jz+/P95ut9sPrJ9YEtZNj1kYT3pYJetODz+NK/kKMtFay3pEXTFWGfiCg8LN
Z/V5Ctfmy2LYzWe3YRS8RWsDMihSQ1VoDDmW9FbIud6dvUjPnZckmpjehce8
B5txgbYpODp+fY/hHOgVlVhUj2vrQlyuVNBRZ8pCyv9tV0FEPsHkKZ12Yse7
TnZiiIP7E5VRWqXwcmyjBXstg+SUhv7E/SIlefdX6cnSQ/2NPLdwzBrKYkzf
bXmNMeRuesrTIgQb/jhJRYbpEa56yChqtEKT48j8hafzs3H2znIwRfVvxXVh
BnhbgGFQAwXU8Gn0wPRgRCcisCWNu5zdu/AG0cYCJmAcPpCsEoH06+PF0AqK
q3RH7/+Oby2nNrZA7Hg8I15prVKVM2g4ZiTqivXddMoJlXeU49AOCfiAABQz
3pdAaJWxJya8IwX/jDxtYzcDj2ljQz7PLApJjuPCASImdkVDkeGeX1HgTmUS
uBIQXClPlyCwDo6O+0WSEW5SXoasxuGaY2yFm+AuYpp/AffXL94=
         "], {{0, 0}, {
         30, 27}}, {0, 26}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
          Automatic}]], "ExerciseOutput",ExpressionUUID->
       "2dc81ca4-212a-4bb3-8d70-0a9b947a6dcb"],
      Apply[TextCell, 
       Cell[
        BoxData[
         GraphicsBox[
          RasterBox[CompressedData["
1:eJxlklGO2zAMROONRbEipYKxKS1RoECv1CPsBXr/vw6NbBZoP+TEljh8M9Sv
jz+/P95ut9sPrJ9YEtZNj1kYT3pYJetODz+NK/kKMtFay3pEXTFWGfiCg8LN
Z/V5Ctfmy2LYzWe3YRS8RWsDMihSQ1VoDDmW9FbIud6dvUjPnZckmpjehce8
B5txgbYpODp+fY/hHOgVlVhUj2vrQlyuVNBRZ8pCyv9tV0FEPsHkKZ12Yse7
TnZiiIP7E5VRWqXwcmyjBXstg+SUhv7E/SIlefdX6cnSQ/2NPLdwzBrKYkzf
bXmNMeRuesrTIgQb/jhJRYbpEa56yChqtEKT48j8hafzs3H2znIwRfVvxXVh
BnhbgGFQAwXU8Gn0wPRgRCcisCWNu5zdu/AG0cYCJmAcPpCsEoH06+PF0AqK
q3RH7/+Oby2nNrZA7Hg8I15prVKVM2g4ZiTqivXddMoJlXeU49AOCfiAABQz
3pdAaJWxJya8IwX/jDxtYzcDj2ljQz7PLApJjuPCASImdkVDkeGeX1HgTmUS
uBIQXClPlyCwDo6O+0WSEW5SXoasxuGaY2yFm+AuYpp/AffXL94=
           "], {{0, 0}, {
           30, 27}}, {0, 26}], Frame -> Automatic, FrameLabel -> {None, None},
           FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
          Directive[
            GrayLevel[0.5, 0.4]], 
          Method -> {
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}]], "ExerciseOutput", Selectable -> False, Copyable -> 
        False, Editable -> False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"d376550e-e820-4f93-825f-645b29128f96"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06 30 \:4ee5\:5185\:7684\:6574\:6570\:6839\:636e\:5b83\:4eec\:5bf9 3 \
\:7684\:6a21\:4f59\:503c\:6536\:96c6\:5230\:5217\:8868\:4e2d\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.2", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375563960513706`*^9, 
  3.837556398486388*^9}},ExpressionUUID->"15e59e5f-f56b-4cfa-b2ca-\
a8550aaa72a1"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "1", ",", "4", ",", "7", ",", "10", ",", "13", ",", "16", ",", "19",
            ",", "22", ",", "25", ",", "28"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "2", ",", "5", ",", "8", ",", "11", ",", "14", ",", "17", ",", "20",
            ",", "23", ",", "26", ",", "29"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "3", ",", "6", ",", "9", ",", "12", ",", "15", ",", "18", ",", "21",
            ",", "24", ",", "27", ",", "30"}], "}"}]}], "}"}]], 
       "ExerciseOutput",ExpressionUUID->
       "d57fbad2-e9eb-4b07-8260-7ef0333a6c40"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             RowBox[{"{", 
               
               RowBox[{
                "1", ",", "4", ",", "7", ",", "10", ",", "13", ",", "16", ",",
                  "19", ",", "22", ",", "25", ",", "28"}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "2", ",", "5", ",", "8", ",", "11", ",", "14", ",", "17", ",",
                  "20", ",", "23", ",", "26", ",", "29"}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "3", ",", "6", ",", "9", ",", "12", ",", "15", ",", "18", ",",
                  "21", ",", "24", ",", "27", ",", "30"}], "}"}]}], "}"}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"e2a56ea7-5317-4770-bcd1-2cb0a6a608a4"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:6839\:636e\:6700\:540e\:4e00\:4f4d\:6570\:5b57\:ff0c\:6536\:96c6 2 \:7684\
\:524d 50 \:4e2a\:5e42\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.3", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556406017435*^9, 
  3.83755641309216*^9}},ExpressionUUID->"26b89093-7a7b-4913-a82c-\
4da8933f4152"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "2", ",", "32", ",", "512", ",", "8192", ",", "131072", ",", 
           "2097152", ",", "33554432", ",", "536870912", ",", "8589934592", 
           ",", "137438953472", ",", "2199023255552", ",", "35184372088832", 
           ",", "562949953421312"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "4", ",", "64", ",", "1024", ",", "16384", ",", "262144", ",", 
           "4194304", ",", "67108864", ",", "1073741824", ",", "17179869184", 
           ",", "274877906944", ",", "4398046511104", ",", "70368744177664", 
           ",", "1125899906842624"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "8", ",", "128", ",", "2048", ",", "32768", ",", "524288", ",", 
           "8388608", ",", "134217728", ",", "2147483648", ",", "34359738368",
            ",", "549755813888", ",", "8796093022208", ",", 
           "140737488355328"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "16", ",", "256", ",", "4096", ",", "65536", ",", "1048576", ",", 
           "16777216", ",", "268435456", ",", "4294967296", ",", 
           "68719476736", ",", "1099511627776", ",", "17592186044416", ",", 
           "281474976710656"}], "}"}]}], "}"}]], "ExerciseOutput",
       ExpressionUUID->"4950180a-26aa-42fa-b980-9729414f4d01"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             RowBox[{"{", 
               
               RowBox[{
                "2", ",", "32", ",", "512", ",", "8192", ",", "131072", ",", 
                 "2097152", ",", "33554432", ",", "536870912", ",", 
                 "8589934592", ",", "137438953472", ",", "2199023255552", ",",
                  "35184372088832", ",", "562949953421312"}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                "4", ",", "64", ",", "1024", ",", "16384", ",", "262144", ",",
                  "4194304", ",", "67108864", ",", "1073741824", ",", 
                 "17179869184", ",", "274877906944", ",", "4398046511104", 
                 ",", "70368744177664", ",", "1125899906842624"}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "8", ",", "128", ",", "2048", ",", "32768", ",", "524288", 
                 ",", "8388608", ",", "134217728", ",", "2147483648", ",", 
                 "34359738368", ",", "549755813888", ",", "8796093022208", 
                 ",", "140737488355328"}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{
                "16", ",", "256", ",", "4096", ",", "65536", ",", "1048576", 
                 ",", "16777216", ",", "268435456", ",", "4294967296", ",", 
                 "68719476736", ",", "1099511627776", ",", "17592186044416", 
                 ",", "281474976710656"}], "}"}]}], "}"}]], "ExerciseOutput", 
        Selectable -> False, Copyable -> False, Editable -> False, 
        ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"b20d8d9c-35f5-4393-b027-002c52b713e2"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06\:4ece -10 \:5230 +10 \
\:7684\:6570\:5b57\:6309\:5176\:7edd\:5bf9\:503c\:6392\:5e8f\:7684\:7ed3\:679c\
\:521b\:5efa\:4e3a\:7ebf\:6761\:56fe\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.4", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375564193877106`*^9, 
  3.8375564223849225`*^9}},ExpressionUUID->"966e34c2-00b0-4065-9401-\
8cb506bd9630"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       GraphicsBox[{{}, {{}, {}, 
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
           0.019444444444444445`], AbsoluteThickness[1.6], 
           LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEf7BlQgQNUfD+E5nBAVScA5TMcgFAiMD6UloDS
HFB5GRgfSitAaQGovBKMD6VVoLQIVF4NxofSGjB7oPJaaPbqQGkZqLwejA+l
DWDugMobornLCEorQeWNYXwobQJzJ1TeFO5uAFL6GCM=
            "]]}}, {}},
        AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
        Axes->{True, True},
        AxesLabel->{None, None},
        AxesOrigin->{0, 0},
        DisplayFunction->Identity,
        Frame->{{False, False}, {False, False}},
        FrameLabel->{{None, None}, {None, None}},
        FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
        GridLines->{None, None},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{},
        PlotRange->{{0., 21.}, {-10., 10.}},
        PlotRangeClipping->True,
        PlotRangePadding->{{
           Scaled[0.02], 
           Scaled[0.02]}, {
           Scaled[0.05], 
           Scaled[0.05]}},
        Ticks->{Automatic, Automatic}]], "ExerciseOutput",ExpressionUUID->
       "13037c8a-1943-4e68-8c1d-6fd28128d6a8"],
      Apply[TextCell, 
       Cell[
        BoxData[
         GraphicsBox[{{}, {{}, {}, {{
              RGBColor[0.368417, 0.506779, 0.709798], 
              PointSize[0.019444444444444445`], 
              AbsoluteThickness[1.6], 
              LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEf7BlQgQNUfD+E5nBAVScA5TMcgFAiMD6UloDS
HFB5GRgfSitAaQGovBKMD6VVoLQIVF4NxofSGjB7oPJaaPbqQGkZqLwejA+l
DWDugMobornLCEorQeWNYXwobQJzJ1TeFO5uAFL6GCM=
               "]]}}}, {}}, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {0, 0}, DisplayFunction -> Identity, 
          Frame -> {{False, False}, {False, False}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], Method -> {}, 
          PlotRange -> {{0., 21.}, {-10., 10.}}, PlotRangeClipping -> True, 
          PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.05], 
             Scaled[0.05]}}, Ticks -> {Automatic, Automatic}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"4625776f-e146-42f0-8346-6346cdc468ef"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06\:524d 200 \:4e2a\:6570\:5b57\:7684\:5e73\:65b9\:6309\:5176\:9996\
\:4f4d\:6570\:8fdb\:884c\:6392\:5e8f\:ff0c\:7136\:540e\:7ed8\:5236\:4e3a\:7ebf\
\:6761\:56fe\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.5", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375564278577003`*^9, 
  3.8375564306760073`*^9}},ExpressionUUID->"5fe53764-7308-46b5-aa9a-\
d3ef39f79a10"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       GraphicsBox[{{}, {{}, {}, 
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
           0.01388888888888889], AbsoluteThickness[1.6], 
           LineBox[CompressedData["
1:eJxd1luMnHMcxvFfNnuxl5PlQsTFq5k0KhupVYet0r8xatShtapoi9mxdYrE
IdJEJPKrU95K08w6VBfh3bWo0sMWVZS+nS4GRZc6Vw3mQhMX7brRG0Gf7/+C
Jpsnn3nmmV8mafLOibXb+5d3mFnzn79/U/8Ozf1vWlDMJLvIa8iCMlyHjyVr
5HHKZDk+Qek344Ssk9OUnUO4qCw8iqcri4/hk7j/OD5ZOfgE7lHW1+JTlBNP
/u97DZOnKstP4V72T+PTlO1n8CzuP4tPV6a78RlH03+PPlPZP4HPUr89uk+Z
vI9nq0+jz1ZORc9Rv+wDfI6yGX2u+lkf4rnK0eigvtCUPZDYzlN/KPay1T6i
L6nfh122ysf056vfgV223k/oy+rXY5ct2UN/gfp12GXr/pR+nvrV2GXr+oz+
QvUPYpet43P6inrHXuH1veRFRzME7LKtjP189Y3Yy9Y5SX+x+nnYZVsV+0vU
74m9bIUv6C9Vvwi7bMOxv0z9gdjLVvySfoH6W7Ev4HX+n9lCZXKbMmC7g/fj
wl3KHI89x/suV6YZe1waYY9tlD1uYOtn/zx73D/GHicvsMdT2K5QNl9kj8fj
95XDnzinD/vYL1Kf4iDbJHb6479iTz+I7Ur1m3CQ7Qh2+vLX7Onr2Bar34+D
bDO+YU+/Auf0E9iuUt/9LXvZBrDTb8E5vX1HXq1+IQ6yjWCnn8I5ffl79noO
hLU48Fw4iJ1+zg/s6evYlqhv4yBb33729GtwTt/GtlT97B/ZL+X1Ensc7maP
6yt43zLl6Eu8D/t6EtdeZo8rG9hfq+x9hT1OXmWPuzeyx12b2PPc7NjMHg/x
fVwOv+GcPhxgf736dTjIdhg7/fyf2NOPYauq/wsnsve0+Dw5WYKrsqXY6bfh
jH0b5/TH/Cy32JewDai/EyeyZzjQ78XVAXa/cJ9+Js7YV3FOP4Rb7BuY3ynJ
HziRvfgr9+kX42qNHb97HMfnRhb7e7iP6/dyH4f7eN8N5Bbu45U44M5x7uNV
2HFhK/fxMM5x8TXu45TvY4PYuY/tfu7jcfZVHF7nPp7EGR58g/v4CG7h+jbu
8Ltwxpvcj78Tec4EnD7AfZw8xH08wT7DA9u5Hz/vLe7jEWw3Kstv87n4IA64
+TD3sackrr/Dfdy3g/u4jVt46F3u38Sd97iPD+MQe547VVx5hPt4bCf3Ze/J
uU+f4hZ9Gxu/w0u7uB9/l0/jLk5Wcx93reG+7Bn7LO4b3Kev4hZ9A9st6ou7
w9/sq93O
            "]]}}, {}},
        AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
        Axes->{True, True},
        AxesLabel->{None, None},
        AxesOrigin->{0, 0},
        DisplayFunction->Identity,
        Frame->{{False, False}, {False, False}},
        FrameLabel->{{None, None}, {None, None}},
        FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
        GridLines->{None, None},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        ImageSize->{337.6328125, Automatic},
        Method->{},
        PlotRange->{{0., 200.}, {0, 40000.}},
        PlotRangeClipping->True,
        PlotRangePadding->{{
           Scaled[0.02], 
           Scaled[0.02]}, {
           Scaled[0.02], 
           Scaled[0.05]}},
        Ticks->{Automatic, Automatic}]], "ExerciseOutput",ExpressionUUID->
       "f18fbab3-b8bf-4c49-b966-dccdc5297430"],
      Apply[TextCell, 
       Cell[
        BoxData[
         GraphicsBox[{{}, {{}, {}, {{
              RGBColor[0.368417, 0.506779, 0.709798], 
              PointSize[0.01388888888888889], 
              AbsoluteThickness[1.6], 
              LineBox[CompressedData["
1:eJxd1luMnHMcxvFfNnuxl5PlQsTFq5k0KhupVYet0r8xatShtapoi9mxdYrE
IdJEJPKrU95K08w6VBfh3bWo0sMWVZS+nS4GRZc6Vw3mQhMX7brRG0Gf7/+C
Jpsnn3nmmV8mafLOibXb+5d3mFnzn79/U/8Ozf1vWlDMJLvIa8iCMlyHjyVr
5HHKZDk+Qek344Ssk9OUnUO4qCw8iqcri4/hk7j/OD5ZOfgE7lHW1+JTlBNP
/u97DZOnKstP4V72T+PTlO1n8CzuP4tPV6a78RlH03+PPlPZP4HPUr89uk+Z
vI9nq0+jz1ZORc9Rv+wDfI6yGX2u+lkf4rnK0eigvtCUPZDYzlN/KPay1T6i
L6nfh122ysf056vfgV223k/oy+rXY5ct2UN/gfp12GXr/pR+nvrV2GXr+oz+
QvUPYpet43P6inrHXuH1veRFRzME7LKtjP189Y3Yy9Y5SX+x+nnYZVsV+0vU
74m9bIUv6C9Vvwi7bMOxv0z9gdjLVvySfoH6W7Ev4HX+n9lCZXKbMmC7g/fj
wl3KHI89x/suV6YZe1waYY9tlD1uYOtn/zx73D/GHicvsMdT2K5QNl9kj8fj
95XDnzinD/vYL1Kf4iDbJHb6479iTz+I7Ur1m3CQ7Qh2+vLX7Onr2Bar34+D
bDO+YU+/Auf0E9iuUt/9LXvZBrDTb8E5vX1HXq1+IQ6yjWCnn8I5ffl79noO
hLU48Fw4iJ1+zg/s6evYlqhv4yBb33729GtwTt/GtlT97B/ZL+X1Ensc7maP
6yt43zLl6Eu8D/t6EtdeZo8rG9hfq+x9hT1OXmWPuzeyx12b2PPc7NjMHg/x
fVwOv+GcPhxgf736dTjIdhg7/fyf2NOPYauq/wsnsve0+Dw5WYKrsqXY6bfh
jH0b5/TH/Cy32JewDai/EyeyZzjQ78XVAXa/cJ9+Js7YV3FOP4Rb7BuY3ynJ
HziRvfgr9+kX42qNHb97HMfnRhb7e7iP6/dyH4f7eN8N5Bbu45U44M5x7uNV
2HFhK/fxMM5x8TXu45TvY4PYuY/tfu7jcfZVHF7nPp7EGR58g/v4CG7h+jbu
8Ltwxpvcj78Tec4EnD7AfZw8xH08wT7DA9u5Hz/vLe7jEWw3Kstv87n4IA64
+TD3sackrr/Dfdy3g/u4jVt46F3u38Sd97iPD+MQe547VVx5hPt4bCf3Ze/J
uU+f4hZ9Gxu/w0u7uB9/l0/jLk5Wcx93reG+7Bn7LO4b3Kev4hZ9A9st6ou7
w9/sq93O
               "]]}}}, {}}, AspectRatio -> 
          NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
          AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction -> 
          Identity, Frame -> {{False, False}, {False, False}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> {337.6328125, Automatic}, 
          Method -> {}, PlotRange -> {{0., 200.}, {0, 40000.}}, 
          PlotRangeClipping -> True, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, Ticks -> {Automatic, Automatic}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"a9e75997-e8b2-45b6-a673-8f4544193d5f"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5c06 200 \:4ee5\:5185\:7684\:6574\:6570\:6309\:5176\:82f1\:6587\:540d\
\:79f0\:7684\:957f\:5ea6\:6392\:5e8f\:ff0c\:7136\:540e\:7ed8\:5236\:4e3a\:7ebf\
\:6761\:56fe\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.6", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375564375845413`*^9, 
  3.837556441435705*^9}},ExpressionUUID->"272b1f78-50b1-49ec-89a9-\
bbca6e2d99e5"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       GraphicsBox[{{}, {{}, {}, 
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
           0.01388888888888889], AbsoluteThickness[1.6], 
           LineBox[CompressedData["
1:eJxdlctOFUEQhjuuXLpwwcLFSIgxxhjvd6W93y+gCIjCcPAcceUr9KPMo/TS
x5hH8BHE8H2TVJOQP39NVVfVX1VwdvZ7fX4ipfTn6Pc/Hv/8XY2YcsST4BJ4
ClwBTzf2pcZ+BlwGu+bd5cZvpfE7Bz4Fz4OvwAvge/BiE3epibsMXgevgA/B
q+Bn8Noxli9NnO/eaN69if8a/FZT5+2mzjtN3rsxb7rX1Hmf99XjAfis6eMF
uIq/emXwNXb5W/ARdvQs8PQBfIz9IwifdHgCqoPcvqzbuuTWYR/mkT+PWFp8
yXf7foMdXuAJv/KuiaMf9yrbn9x5oltmP4o6ui/m3Yh5q/ujzpt8l2+B1OWe
WOe0J+45c3dOqZmTcyty52Bf6Dr1qU7qgC7V7/SZ1mLdky7q6Xfy1rX4TlqP
7+T16FfWo1+Vf2oQfTM8q7ccvSu8oLd3XeHOsaL/NMdt7PJfMa93bV7v1Ll7
p9W63G/q8m6s07vx74w6uDeTDpuxryx3H+UbsU/zumfG5a2IpUF1cU7qMukO
V/eyHe11O9rTVziY5TvRrl9t/BJ+ucEpz06MqzsxLn3Db594eJ1hh6cf2P1u
/Pf4TpbvEg/PPXHwsoh+9Sd+cuvajXkqPM+x78W6816su8iN34t1pD7W3cEH
9bBueK//jHfhI3yApwPi4AU+wjv0TOaBd/AKz36n7x6uLs7NPoemTuue6tyP
edMsYtegfQ5gr51+ivaD6DfaP7zQz6ST/ePXMc/OdxYxT13EPJl9mXSFD/B0
SJx1Hsa63Bv32r1xLu6Bc3GOvX04V7hzsa+xmaO6jXB1S03f6mAf7rl99PNY
R5nHdwfvwrh5jBvnMS4tInZy71E7vIcP6u+c0Ne59eoPH9Uf7h2bx7s0z3SX
zlX94d5JsU719z37h9v32PSRmrq6w5jHvsxjX/q5V0ODtUHnog6TzvwfPdL5
Hx4BaDU=
            "]]}}, {}, {}, {{}, {}}, {{}, {}}},
        AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
        Axes->{True, True},
        AxesLabel->{None, None},
        AxesOrigin->{0., 0},
        DisplayFunction->Identity,
        Frame->{{False, False}, {False, False}},
        FrameLabel->{{None, None}, {None, None}},
        FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
        GridLines->{None, None},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        ImagePadding->All,
        Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), "CopiedValueFunction" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& )}},
        PlotRange->{{0., 200.}, {0, 200.}},
        PlotRangeClipping->True,
        PlotRangePadding->{{
           Scaled[0.02], 
           Scaled[0.02]}, {
           Scaled[0.02], 
           Scaled[0.05]}},
        Ticks->{Automatic, Automatic}]], "ExerciseOutput",ExpressionUUID->
       "86bd70b2-9391-44ed-98d3-e39626feadee"],
      Apply[TextCell, 
       Cell[
        BoxData[
         GraphicsBox[{{}, {{{}, {}, {{{
                RGBColor[0.368417, 0.506779, 0.709798], 
                PointSize[0.01388888888888889], 
                AbsoluteThickness[1.6], 
                LineBox[CompressedData["
1:eJxdlctOFUEQhjuuXLpwwcLFSIgxxhjvd6W93y+gCIjCcPAcceUr9KPMo/TS
x5hH8BHE8H2TVJOQP39NVVfVX1VwdvZ7fX4ipfTn6Pc/Hv/8XY2YcsST4BJ4
ClwBTzf2pcZ+BlwGu+bd5cZvpfE7Bz4Fz4OvwAvge/BiE3epibsMXgevgA/B
q+Bn8Noxli9NnO/eaN69if8a/FZT5+2mzjtN3rsxb7rX1Hmf99XjAfis6eMF
uIq/emXwNXb5W/ARdvQs8PQBfIz9IwifdHgCqoPcvqzbuuTWYR/mkT+PWFp8
yXf7foMdXuAJv/KuiaMf9yrbn9x5oltmP4o6ui/m3Yh5q/ujzpt8l2+B1OWe
WOe0J+45c3dOqZmTcyty52Bf6Dr1qU7qgC7V7/SZ1mLdky7q6Xfy1rX4TlqP
7+T16FfWo1+Vf2oQfTM8q7ccvSu8oLd3XeHOsaL/NMdt7PJfMa93bV7v1Ll7
p9W63G/q8m6s07vx74w6uDeTDpuxryx3H+UbsU/zumfG5a2IpUF1cU7qMukO
V/eyHe11O9rTVziY5TvRrl9t/BJ+ucEpz06MqzsxLn3Db594eJ1hh6cf2P1u
/Pf4TpbvEg/PPXHwsoh+9Sd+cuvajXkqPM+x78W6816su8iN34t1pD7W3cEH
9bBueK//jHfhI3yApwPi4AU+wjv0TOaBd/AKz36n7x6uLs7NPoemTuue6tyP
edMsYtegfQ5gr51+ivaD6DfaP7zQz6ST/ePXMc/OdxYxT13EPJl9mXSFD/B0
SJx1Hsa63Bv32r1xLu6Bc3GOvX04V7hzsa+xmaO6jXB1S03f6mAf7rl99PNY
R5nHdwfvwrh5jBvnMS4tInZy71E7vIcP6u+c0Ne59eoPH9Uf7h2bx7s0z3SX
zlX94d5JsU719z37h9v32PSRmrq6w5jHvsxjX/q5V0ODtUHnog6TzvwfPdL5
Hx4BaDU=
                 "]]}}}}}, {}, {}, {{}, {}}, {{}, {}}}, AspectRatio -> 
          NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
          AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction -> 
          Identity, Frame -> {{False, False}, {False, False}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImagePadding -> All, 
          Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& )}}, PlotRange -> {{0., 200.}, {0, 200.}}, 
          PlotRangeClipping -> True, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, Ticks -> {Automatic, Automatic}]], 
        "ExerciseOutput", Selectable -> False, Copyable -> False, Editable -> 
        False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"9d057044-73b7-44f7-8ae2-e7b2a5583fa9"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:4ece ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["WordList",
    BaseStyle->"CodeLink"], "[", "]"}]], "InlineCode",ExpressionUUID->
  "4ef07650-a360-47bb-8712-f24f095debea"],
 " \:4e2d\:83b7\:53d6 25 \:4e2a\:968f\:673a\:5355\:8bcd\:6837\:672c\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.7", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375564470202947`*^9, 
  3.8375564581456013`*^9}},ExpressionUUID->"d3c6fba4-277a-41cd-84b7-\
bbf404e46364"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{"\<\"autopsy\"\>", ",", "\<\"reclassification\"\>", 
         ",", "\<\"advancement\"\>", ",", "\<\"forswear\"\>", 
         ",", "\<\"swimwear\"\>", ",", "\<\"cravat\"\>", 
         ",", "\<\"cyclone\"\>", ",", "\<\"taps\"\>", 
         ",", "\<\"diplomatic\"\>", ",", "\<\"effacement\"\>", 
         ",", "\<\"peaked\"\>", ",", "\<\"ponderously\"\>", 
         ",", "\<\"publication\"\>", ",", "\<\"immune\"\>", 
         ",", "\<\"outstay\"\>", ",", "\<\"petrol\"\>", ",", "\<\"deaf\"\>", 
         ",", "\<\"bilk\"\>", ",", "\<\"oddments\"\>", 
         ",", "\<\"scoreboard\"\>", ",", "\<\"lifeless\"\>", 
         ",", "\<\"debriefing\"\>", ",", "\<\"radiogram\"\>", 
         ",", "\<\"doting\"\>", ",", "\<\"inter\"\>"}], "}"}]], 
       "ExerciseOutput",ExpressionUUID->
       "5180b473-ef84-45c9-a721-c50ffbb2480e"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"\"autopsy\"", ",", "\"reclassification\"", ",", 
             "\"advancement\"", ",", "\"forswear\"", ",", "\"swimwear\"", ",",
              "\"cravat\"", ",", "\"cyclone\"", ",", "\"taps\"", ",", 
             "\"diplomatic\"", ",", "\"effacement\"", ",", "\"peaked\"", ",", 
             "\"ponderously\"", ",", "\"publication\"", ",", "\"immune\"", 
             ",", "\"outstay\"", ",", "\"petrol\"", ",", "\"deaf\"", ",", 
             "\"bilk\"", ",", "\"oddments\"", ",", "\"scoreboard\"", ",", 
             "\"lifeless\"", ",", "\"debriefing\"", ",", "\"radiogram\"", ",",
              "\"doting\"", ",", "\"inter\""}], "}"}]], "ExerciseOutput", 
        Selectable -> False, Copyable -> False, Editable -> False, 
        ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"77dea5d6-7071-4e9b-a084-a9b3e56e7739"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:5728\:5b57\:7b26\:4e32 \[OpenCurlyDoubleQuote]UNCLE\
\[CloseCurlyDoubleQuote] \:4e2d\:4ea4\:4e92\:63d2\:5165\:70b9\:53f7\:ff0c\
\:4f7f\:4e4b\:53d8\:4e3a \[OpenCurlyDoubleQuote]U.N.C.L.E\
\[CloseCurlyDoubleQuote]\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.8", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375564643168707`*^9, 
  3.8375565140331964`*^9}},ExpressionUUID->"2da9d0b6-fcbc-48c7-a616-\
b69f4cc4fd2e"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[
      BoxData["\<\"U.N.C.L.E.\"\>"], "ExerciseOutput",ExpressionUUID->
       "9eb07074-a242-4225-9726-01800a96aaf1"],
      Apply[TextCell, 
       Cell[
        BoxData["\"U.N.C.L.E.\""], "ExerciseOutput", Selectable -> False, 
        Copyable -> False, Editable -> False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"6eac75a6-633d-41b9-a62d-a36cb8a3f8dc"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:67e5\:627e\:51fa\:73b0\:5728\:745e\:5178\:8bed(Swedish)\:6216\:6ce2\:5170\
\:8bed(Polish)\:4e2d\:ff0c\:4f46\:4e0d\:5728\:82f1\:8bed\:4e2d\:7684\:5b57\
\:6bcd\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.9", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556533177161*^9, 
  3.837556551617151*^9}},ExpressionUUID->"3a66ae81-4e6d-4bc0-91af-\
9381ef9f3ea5"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{"\<\"\:0105\"\>", ",", "\<\"\:0119\"\>", 
         ",", "\<\"\:0144\"\>", ",", "\<\"\:015b\"\>", ",", "\<\"\:017a\"\>", 
         ",", "\<\"\:017c\"\>", ",", "\<\"\[ARing]\"\>", 
         ",", "\<\"\[ADoubleDot]\"\>", ",", "\<\"\[CAcute]\"\>", 
         ",", "\<\"\[LSlash]\"\>", ",", "\<\"\[OAcute]\"\>", 
         ",", "\<\"\[ODoubleDot]\"\>"}], "}"}]], "ExerciseOutput",
       ExpressionUUID->"2a2a9145-427b-4b11-8796-c0fb133b9820"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"\"\:0105\"", ",", "\"\:0119\"", ",", "\"\:0144\"", ",", 
             "\"\:015b\"", ",", "\"\:017a\"", ",", "\"\:017c\"", ",", 
             "\"\[ARing]\"", ",", "\"\[ADoubleDot]\"", ",", "\"\[CAcute]\"", 
             ",", "\"\[LSlash]\"", ",", "\"\[OAcute]\"", ",", 
             "\"\[ODoubleDot]\""}], "}"}]], "ExerciseOutput", Selectable -> 
        False, Copyable -> False, Editable -> False, ShowCellBracket -> 
        False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"3af95353-be0b-4f9d-8bc8-a41f07930fc8"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:627e\:5230\:52a0\:5165\:4e16\:754c\:536b\:751f\:7ec4\:7ec7(World Health \
Organization)\:4f46\:6ca1\:6709\:52a0\:5165\:8054\:5408\:56fd(United Nations)\
\:7684\:56fd\:5bb6\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.10", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556557980627*^9, 
  3.837556562496608*^9}},ExpressionUUID->"e22f5c14-c7eb-4e80-8558-\
7a8949b3d659"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         TemplateBox[{"\"Cook Islands\"", 
           RowBox[{"Entity", "[", 
             RowBox[{"\"Country\"", ",", "\"CookIslands\""}], "]"}], 
           "\"Entity[\\\"Country\\\", \\\"CookIslands\\\"]\"", "\"country\""},
          
          "Entity"], ",", 
         TemplateBox[{"\"Niue\"", 
           RowBox[{"Entity", "[", 
             RowBox[{"\"Country\"", ",", "\"Niue\""}], "]"}], 
           "\"Entity[\\\"Country\\\", \\\"Niue\\\"]\"", "\"country\""},
          "Entity"]}], "}"}]], "ExerciseOutput",ExpressionUUID->
       "71c94051-8004-4a20-9ae4-571de3646b3f"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             TemplateBox[{"\"Cook Islands\"", 
               RowBox[{"Entity", "[", 
                 RowBox[{"\"Country\"", ",", "\"CookIslands\""}], "]"}], 
               "\"Entity[\\\"Country\\\", \\\"CookIslands\\\"]\"", 
               "\"country\""}, "Entity"], ",", 
             TemplateBox[{"\"Niue\"", 
               RowBox[{"Entity", "[", 
                 RowBox[{"\"Country\"", ",", "\"Niue\""}], "]"}], 
               "\"Entity[\\\"Country\\\", \\\"Niue\\\"]\"", "\"country\""}, 
              "Entity"]}], "}"}]], "ExerciseOutput", Selectable -> False, 
        Copyable -> False, Editable -> False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"749881bc-0cc3-406f-92b8-6327d0735e8d"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:521b\:5efa\:6240\:6709\:7ea2\:3001\:7eff\:3001\:84dd\:7684\:6210\:5bf9\
\:6df7\:5408\:7684\:5217\:8868\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.11", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375565696802483`*^9, 
  3.8375565728887453`*^9}},ExpressionUUID->"340df7d3-4fa5-4489-9318-\
37710d8ed45b"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          ButtonBox[
           TooltipBox[
            GraphicsBox[{
              {GrayLevel[0], RectangleBox[{0, 0}]}, 
              {GrayLevel[0], RectangleBox[{1, -1}]}, 
              {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
             AspectRatio->1,
             Frame->True,
             FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
             FrameTicks->None,
             
             ImageSize->
              Dynamic[{
               Automatic, 
                1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}],
             PlotRangePadding->None],
            "RGBColor[1, 0, 0]"],
           Appearance->None,
           BaseStyle->{},
           BaselinePosition->Baseline,
           ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
             If[
              Not[
               AbsoluteCurrentValue["Deployed"]], 
              SelectionMove[Typeset`box$, All, Expression]; 
              FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
              FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
              FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
              MathLink`CallFrontEnd[
                FrontEnd`AttachCell[Typeset`box$, 
                 FrontEndResource["RGBColorValueSelector"], {
                 0, {Left, Bottom}}, {Left, Top}, 
                 "ClosingActions" -> {
                  "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
           
           DefaultBaseStyle->{},
           Evaluator->Automatic,
           Method->"Preemptive"],
          RGBColor[1, 0, 0],
          Editable->False,
          Selectable->False], ",", 
         InterpretationBox[
          ButtonBox[
           TooltipBox[
            GraphicsBox[{
              {GrayLevel[0], RectangleBox[{0, 0}]}, 
              {GrayLevel[0], RectangleBox[{1, -1}]}, 
              {RGBColor[
                Rational[1, 2], 
                Rational[1, 2], 0], RectangleBox[{0, -1}, {2, 1}]}},
             AspectRatio->1,
             Frame->True,
             FrameStyle->RGBColor[0.3333333333333333, 0.3333333333333333, 0.],
             
             FrameTicks->None,
             
             ImageSize->
              Dynamic[{
               Automatic, 
                1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}],
             PlotRangePadding->None],
            "RGBColor[1/2, 1/2, 0]"],
           Appearance->None,
           BaseStyle->{},
           BaselinePosition->Baseline,
           ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
             If[
              Not[
               AbsoluteCurrentValue["Deployed"]], 
              SelectionMove[Typeset`box$, All, Expression]; 
              FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
              FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
                 Rational[1, 2], 
                 Rational[1, 2], 0]; 
              FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
              MathLink`CallFrontEnd[
                FrontEnd`AttachCell[Typeset`box$, 
                 FrontEndResource["RGBColorValueSelector"], {
                 0, {Left, Bottom}}, {Left, Top}, 
                 "ClosingActions" -> {
                  "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
           
           DefaultBaseStyle->{},
           Evaluator->Automatic,
           Method->"Preemptive"],
          RGBColor[
           Rational[1, 2], 
           Rational[1, 2], 0],
          Editable->False,
          Selectable->False], ",", 
         InterpretationBox[
          ButtonBox[
           TooltipBox[
            GraphicsBox[{
              {GrayLevel[0], RectangleBox[{0, 0}]}, 
              {GrayLevel[0], RectangleBox[{1, -1}]}, 
              {RGBColor[
                Rational[1, 2], 0, 
                Rational[1, 2]], RectangleBox[{0, -1}, {2, 1}]}},
             AspectRatio->1,
             Frame->True,
             FrameStyle->RGBColor[0.3333333333333333, 0., 0.3333333333333333],
             
             FrameTicks->None,
             
             ImageSize->
              Dynamic[{
               Automatic, 
                1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}],
             PlotRangePadding->None],
            "RGBColor[1/2, 0, 1/2]"],
           Appearance->None,
           BaseStyle->{},
           BaselinePosition->Baseline,
           ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
             If[
              Not[
               AbsoluteCurrentValue["Deployed"]], 
              SelectionMove[Typeset`box$, All, Expression]; 
              FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
              FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
                 Rational[1, 2], 0, 
                 Rational[1, 2]]; 
              FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
              MathLink`CallFrontEnd[
                FrontEnd`AttachCell[Typeset`box$, 
                 FrontEndResource["RGBColorValueSelector"], {
                 0, {Left, Bottom}}, {Left, Top}, 
                 "ClosingActions" -> {
                  "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
           
           DefaultBaseStyle->{},
           Evaluator->Automatic,
           Method->"Preemptive"],
          RGBColor[
           Rational[1, 2], 0, 
           Rational[1, 2]],
          Editable->False,
          Selectable->False], ",", 
         InterpretationBox[
          ButtonBox[
           TooltipBox[
            GraphicsBox[{
              {GrayLevel[0], RectangleBox[{0, 0}]}, 
              {GrayLevel[0], RectangleBox[{1, -1}]}, 
              {RGBColor[
                Rational[1, 2], 
                Rational[1, 2], 0], RectangleBox[{0, -1}, {2, 1}]}},
             AspectRatio->1,
             Frame->True,
             FrameStyle->RGBColor[0.3333333333333333, 0.3333333333333333, 0.],
             
             FrameTicks->None,
             
             ImageSize->
              Dynamic[{
               Automatic, 
                1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}],
             PlotRangePadding->None],
            "RGBColor[1/2, 1/2, 0]"],
           Appearance->None,
           BaseStyle->{},
           BaselinePosition->Baseline,
           ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
             If[
              Not[
               AbsoluteCurrentValue["Deployed"]], 
              SelectionMove[Typeset`box$, All, Expression]; 
              FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
              FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
                 Rational[1, 2], 
                 Rational[1, 2], 0]; 
              FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
              MathLink`CallFrontEnd[
                FrontEnd`AttachCell[Typeset`box$, 
                 FrontEndResource["RGBColorValueSelector"], {
                 0, {Left, Bottom}}, {Left, Top}, 
                 "ClosingActions" -> {
                  "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
           
           DefaultBaseStyle->{},
           Evaluator->Automatic,
           Method->"Preemptive"],
          RGBColor[
           Rational[1, 2], 
           Rational[1, 2], 0],
          Editable->False,
          Selectable->False], ",", 
         InterpretationBox[
          ButtonBox[
           TooltipBox[
            GraphicsBox[{
              {GrayLevel[0], RectangleBox[{0, 0}]}, 
              {GrayLevel[0], RectangleBox[{1, -1}]}, 
              {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
             AspectRatio->1,
             Frame->True,
             FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
             FrameTicks->None,
             
             ImageSize->
              Dynamic[{
               Automatic, 
                1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}],
             PlotRangePadding->None],
            "RGBColor[0, 1, 0]"],
           Appearance->None,
           BaseStyle->{},
           BaselinePosition->Baseline,
           ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
             If[
              Not[
               AbsoluteCurrentValue["Deployed"]], 
              SelectionMove[Typeset`box$, All, Expression]; 
              FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
              FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
              FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
              MathLink`CallFrontEnd[
                FrontEnd`AttachCell[Typeset`box$, 
                 FrontEndResource["RGBColorValueSelector"], {
                 0, {Left, Bottom}}, {Left, Top}, 
                 "ClosingActions" -> {
                  "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
           
           DefaultBaseStyle->{},
           Evaluator->Automatic,
           Method->"Preemptive"],
          RGBColor[0, 1, 0],
          Editable->False,
          Selectable->False], ",", 
         InterpretationBox[
          ButtonBox[
           TooltipBox[
            GraphicsBox[{
              {GrayLevel[0], RectangleBox[{0, 0}]}, 
              {GrayLevel[0], RectangleBox[{1, -1}]}, 
              {RGBColor[0, 
                Rational[1, 2], 
                Rational[1, 2]], RectangleBox[{0, -1}, {2, 1}]}},
             AspectRatio->1,
             Frame->True,
             FrameStyle->RGBColor[0., 0.3333333333333333, 0.3333333333333333],
             
             FrameTicks->None,
             
             ImageSize->
              Dynamic[{
               Automatic, 
                1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}],
             PlotRangePadding->None],
            "RGBColor[0, 1/2, 1/2]"],
           Appearance->None,
           BaseStyle->{},
           BaselinePosition->Baseline,
           ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
             If[
              Not[
               AbsoluteCurrentValue["Deployed"]], 
              SelectionMove[Typeset`box$, All, Expression]; 
              FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
              FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 
                 Rational[1, 2], 
                 Rational[1, 2]]; 
              FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
              MathLink`CallFrontEnd[
                FrontEnd`AttachCell[Typeset`box$, 
                 FrontEndResource["RGBColorValueSelector"], {
                 0, {Left, Bottom}}, {Left, Top}, 
                 "ClosingActions" -> {
                  "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
           
           DefaultBaseStyle->{},
           Evaluator->Automatic,
           Method->"Preemptive"],
          RGBColor[0, 
           Rational[1, 2], 
           Rational[1, 2]],
          Editable->False,
          Selectable->False], ",", 
         InterpretationBox[
          ButtonBox[
           TooltipBox[
            GraphicsBox[{
              {GrayLevel[0], RectangleBox[{0, 0}]}, 
              {GrayLevel[0], RectangleBox[{1, -1}]}, 
              {RGBColor[
                Rational[1, 2], 0, 
                Rational[1, 2]], RectangleBox[{0, -1}, {2, 1}]}},
             AspectRatio->1,
             Frame->True,
             FrameStyle->RGBColor[0.3333333333333333, 0., 0.3333333333333333],
             
             FrameTicks->None,
             
             ImageSize->
              Dynamic[{
               Automatic, 
                1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}],
             PlotRangePadding->None],
            "RGBColor[1/2, 0, 1/2]"],
           Appearance->None,
           BaseStyle->{},
           BaselinePosition->Baseline,
           ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
             If[
              Not[
               AbsoluteCurrentValue["Deployed"]], 
              SelectionMove[Typeset`box$, All, Expression]; 
              FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
              FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
                 Rational[1, 2], 0, 
                 Rational[1, 2]]; 
              FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
              MathLink`CallFrontEnd[
                FrontEnd`AttachCell[Typeset`box$, 
                 FrontEndResource["RGBColorValueSelector"], {
                 0, {Left, Bottom}}, {Left, Top}, 
                 "ClosingActions" -> {
                  "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
           
           DefaultBaseStyle->{},
           Evaluator->Automatic,
           Method->"Preemptive"],
          RGBColor[
           Rational[1, 2], 0, 
           Rational[1, 2]],
          Editable->False,
          Selectable->False], ",", 
         InterpretationBox[
          ButtonBox[
           TooltipBox[
            GraphicsBox[{
              {GrayLevel[0], RectangleBox[{0, 0}]}, 
              {GrayLevel[0], RectangleBox[{1, -1}]}, 
              {RGBColor[0, 
                Rational[1, 2], 
                Rational[1, 2]], RectangleBox[{0, -1}, {2, 1}]}},
             AspectRatio->1,
             Frame->True,
             FrameStyle->RGBColor[0., 0.3333333333333333, 0.3333333333333333],
             
             FrameTicks->None,
             
             ImageSize->
              Dynamic[{
               Automatic, 
                1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}],
             PlotRangePadding->None],
            "RGBColor[0, 1/2, 1/2]"],
           Appearance->None,
           BaseStyle->{},
           BaselinePosition->Baseline,
           ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
             If[
              Not[
               AbsoluteCurrentValue["Deployed"]], 
              SelectionMove[Typeset`box$, All, Expression]; 
              FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
              FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 
                 Rational[1, 2], 
                 Rational[1, 2]]; 
              FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
              MathLink`CallFrontEnd[
                FrontEnd`AttachCell[Typeset`box$, 
                 FrontEndResource["RGBColorValueSelector"], {
                 0, {Left, Bottom}}, {Left, Top}, 
                 "ClosingActions" -> {
                  "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
           
           DefaultBaseStyle->{},
           Evaluator->Automatic,
           Method->"Preemptive"],
          RGBColor[0, 
           Rational[1, 2], 
           Rational[1, 2]],
          Editable->False,
          Selectable->False], ",", 
         InterpretationBox[
          ButtonBox[
           TooltipBox[
            GraphicsBox[{
              {GrayLevel[0], RectangleBox[{0, 0}]}, 
              {GrayLevel[0], RectangleBox[{1, -1}]}, 
              {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
             AspectRatio->1,
             Frame->True,
             FrameStyle->RGBColor[0., 0., 0.6666666666666666],
             FrameTicks->None,
             
             ImageSize->
              Dynamic[{
               Automatic, 
                1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}],
             PlotRangePadding->None],
            "RGBColor[0, 0, 1]"],
           Appearance->None,
           BaseStyle->{},
           BaselinePosition->Baseline,
           ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
             If[
              Not[
               AbsoluteCurrentValue["Deployed"]], 
              SelectionMove[Typeset`box$, All, Expression]; 
              FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
              FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
              FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
              MathLink`CallFrontEnd[
                FrontEnd`AttachCell[Typeset`box$, 
                 FrontEndResource["RGBColorValueSelector"], {
                 0, {Left, Bottom}}, {Left, Top}, 
                 "ClosingActions" -> {
                  "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
           
           DefaultBaseStyle->{},
           Evaluator->Automatic,
           Method->"Preemptive"],
          RGBColor[0, 0, 1],
          Editable->False,
          Selectable->False]}], "}"}]], "ExerciseOutput",ExpressionUUID->
       "0868062a-1441-444e-ad65-645071a5aef1"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}}, {{
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}}, {{
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}}, AspectRatio -> 1, Frame -> 
                 True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                 FrameTicks -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], PlotRangePadding -> None], 
                "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, 
               BaselinePosition -> Baseline, ButtonFunction :> 
               With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = 
                   RGBColor[1, 0, 0]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], DefaultBaseStyle -> {}, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}}, {{
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}}, {{
                    RGBColor[
                    Rational[1, 2], 
                    Rational[1, 2], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}}, AspectRatio -> 1, Frame -> 
                 True, FrameStyle -> 
                 RGBColor[0.3333333333333333, 0.3333333333333333, 0.], 
                 FrameTicks -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], PlotRangePadding -> None], 
                "RGBColor[1/2, 1/2, 0]"], Appearance -> None, BaseStyle -> {},
                BaselinePosition -> Baseline, ButtonFunction :> 
               With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
                    Rational[1, 2], 
                    Rational[1, 2], 0]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], DefaultBaseStyle -> {}, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[
               Rational[1, 2], 
               Rational[1, 2], 0], Editable -> False, Selectable -> False], 
             ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}}, {{
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}}, {{
                    RGBColor[
                    Rational[1, 2], 0, 
                    Rational[1, 2]], 
                    RectangleBox[{0, -1}, {2, 1}]}}}, AspectRatio -> 1, Frame -> 
                 True, FrameStyle -> 
                 RGBColor[0.3333333333333333, 0., 0.3333333333333333], 
                 FrameTicks -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], PlotRangePadding -> None], 
                "RGBColor[1/2, 0, 1/2]"], Appearance -> None, BaseStyle -> {},
                BaselinePosition -> Baseline, ButtonFunction :> 
               With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
                    Rational[1, 2], 0, 
                    Rational[1, 2]]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], DefaultBaseStyle -> {}, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[
               Rational[1, 2], 0, 
               Rational[1, 2]], Editable -> False, Selectable -> False], ",", 
             
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}}, {{
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}}, {{
                    RGBColor[
                    Rational[1, 2], 
                    Rational[1, 2], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}}, AspectRatio -> 1, Frame -> 
                 True, FrameStyle -> 
                 RGBColor[0.3333333333333333, 0.3333333333333333, 0.], 
                 FrameTicks -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], PlotRangePadding -> None], 
                "RGBColor[1/2, 1/2, 0]"], Appearance -> None, BaseStyle -> {},
                BaselinePosition -> Baseline, ButtonFunction :> 
               With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
                    Rational[1, 2], 
                    Rational[1, 2], 0]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], DefaultBaseStyle -> {}, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[
               Rational[1, 2], 
               Rational[1, 2], 0], Editable -> False, Selectable -> False], 
             ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}}, {{
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}}, {{
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}}, AspectRatio -> 1, Frame -> 
                 True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                 FrameTicks -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], PlotRangePadding -> None], 
                "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, 
               BaselinePosition -> Baseline, ButtonFunction :> 
               With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = 
                   RGBColor[0, 1, 0]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], DefaultBaseStyle -> {}, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[0, 1, 0], Editable -> False, Selectable -> False], ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}}, {{
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}}, {{
                    RGBColor[0, 
                    Rational[1, 2], 
                    Rational[1, 2]], 
                    RectangleBox[{0, -1}, {2, 1}]}}}, AspectRatio -> 1, Frame -> 
                 True, FrameStyle -> 
                 RGBColor[0., 0.3333333333333333, 0.3333333333333333], 
                 FrameTicks -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], PlotRangePadding -> None], 
                "RGBColor[0, 1/2, 1/2]"], Appearance -> None, BaseStyle -> {},
                BaselinePosition -> Baseline, ButtonFunction :> 
               With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 
                    Rational[1, 2], 
                    Rational[1, 2]]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], DefaultBaseStyle -> {}, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[0, 
               Rational[1, 2], 
               Rational[1, 2]], Editable -> False, Selectable -> False], ",", 
             
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}}, {{
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}}, {{
                    RGBColor[
                    Rational[1, 2], 0, 
                    Rational[1, 2]], 
                    RectangleBox[{0, -1}, {2, 1}]}}}, AspectRatio -> 1, Frame -> 
                 True, FrameStyle -> 
                 RGBColor[0.3333333333333333, 0., 0.3333333333333333], 
                 FrameTicks -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], PlotRangePadding -> None], 
                "RGBColor[1/2, 0, 1/2]"], Appearance -> None, BaseStyle -> {},
                BaselinePosition -> Baseline, ButtonFunction :> 
               With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
                    Rational[1, 2], 0, 
                    Rational[1, 2]]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], DefaultBaseStyle -> {}, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[
               Rational[1, 2], 0, 
               Rational[1, 2]], Editable -> False, Selectable -> False], ",", 
             
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}}, {{
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}}, {{
                    RGBColor[0, 
                    Rational[1, 2], 
                    Rational[1, 2]], 
                    RectangleBox[{0, -1}, {2, 1}]}}}, AspectRatio -> 1, Frame -> 
                 True, FrameStyle -> 
                 RGBColor[0., 0.3333333333333333, 0.3333333333333333], 
                 FrameTicks -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], PlotRangePadding -> None], 
                "RGBColor[0, 1/2, 1/2]"], Appearance -> None, BaseStyle -> {},
                BaselinePosition -> Baseline, ButtonFunction :> 
               With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 
                    Rational[1, 2], 
                    Rational[1, 2]]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], DefaultBaseStyle -> {}, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[0, 
               Rational[1, 2], 
               Rational[1, 2]], Editable -> False, Selectable -> False], ",", 
             
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}}, {{
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}}, {{
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}}, AspectRatio -> 1, Frame -> 
                 True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                 FrameTicks -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], PlotRangePadding -> None], 
                "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, 
               BaselinePosition -> Baseline, ButtonFunction :> 
               With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = 
                   RGBColor[0, 0, 1]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], DefaultBaseStyle -> {}, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[0, 0, 1], Editable -> False, Selectable -> False]}], 
           "}"}]], "ExerciseOutput", Selectable -> False, Copyable -> False, 
        Editable -> False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"0d263db8-9af3-424f-ac12-6a55836ca703"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:521b\:5efa\:4e00\:4e2a\:6570\:7ec4\:56fe\:793a\:5217\:8868\:ff0c\:6bcf\
\:4e2a\:5305\:542b 50 \:884c\:6570\:636e\:ff0c\:56fe\:50cf\:5927\:5c0f\:4e3a \
50\:ff0c\:6570\:636e\:4e3a\:8fde\:7eed\:7684\:5305\:542b 8 \:4e2a\:503c\:7684 \
0 \:548c 1 \:7684\:5143\:7ec4\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.12", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.837556579543408*^9, 
  3.837556583160611*^9}},ExpressionUUID->"7dfea61c-2da1-4931-890e-\
1b1beabe293a"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{
         GraphicsBox[RasterBox[CompressedData["
1:eJxdj8sRgCAQQ/M82YYtWIol0AD930QI4OSws5+QD1epTzkk3a3OVvAVs/dR
444MtebdOMYxjnHzMX9LrydjN3/XAvssG8uGspETykl83mL/DxCBiYBEICIA
YUgYEIKEAEEgHhCHObzRVwLu
           "], {{0, 0}, {8, 50}}, {0, 1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          ImageSize->50,
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}], ",", 
         GraphicsBox[RasterBox[CompressedData["
1:eJxVkMENgDAMA21erMEKjMIIXYD9f1TtOS2CKFjEvrRXe592SLp7nb3cX7u6
ZzearzE3OtroTPLfilOVoJ8DXc/U+I0/LviGb/hrOisvtPcU+IZv+N7YGVIN
h8rxJ11sQZhqq4Rrh2RLorip/a7rFFkq5Q+1UwK8
           "], {{0, 0}, {8, 50}}, {0,
            1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          ImageSize->50,
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}], ",", 
         GraphicsBox[RasterBox[CompressedData["
1:eJxNkcERgzAMBPfyShtpIaWkBBpI/78QvIc1oJHxCp3Ofh3fz/EA3mc8zyDh
/5j70uXK8vTj4leVkFlE5JFHnjZZPP6vfsXtLIgbSVdL3uQwzKGIXCs4UrVH
1ATDDDoaR3Fbym7NKA3zENib9cj2Wk2y476B/ACzhQKs
           "], {{0, 0}, {8, 
           50}}, {0, 1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          ImageSize->50,
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}], ",", 
         GraphicsBox[RasterBox[CompressedData["
1:eJxVkNsVgDAIQxO/XMMVHMURXMD9/3z0pmB7gENDCGU7r+NcJO2PrXqP7Yoe
0eQeucENbvCUfjDeJHBGq2lprZJQp7g5WVEEh98mTccou5MnoxAuOHz067XE
U6WqZiFmEWzv16WGdvurSnta1LIq35i5Apo=
           "], {{0, 0}, {8, 50}}, {0, 1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          ImageSize->50,
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}], ",", 
         GraphicsBox[RasterBox[CompressedData["
1:eJxVj8sNwDAIQ3FPXaMrdJSOkAW6/61R8wwhEgrC+MM13mccEXHPOoMn+f8b
eUwrJmKx1sEZaDUb3WVZ8JQDty38kg81G/hlB+5YMiWvUIthyYK0xwr4Fc9L
jg2eccF91uJv8S2e3urngPvsyf8AdrECeA==
           "], {{0, 0}, {8, 50}}, {0, 1}],
          Frame->Automatic,
          FrameLabel->{None, None},
          FrameTicks->{{None, None}, {None, None}},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          ImageSize->50,
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
            Automatic}]}], "}"}]], "ExerciseOutput",ExpressionUUID->
       "8da4cd3b-df4a-448a-ba32-aec0f5b07c87"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           RowBox[{
             GraphicsBox[
              RasterBox[CompressedData["
1:eJxdj8sRgCAQQ/M82YYtWIol0AD930QI4OSws5+QD1epTzkk3a3OVvAVs/dR
444MtebdOMYxjnHzMX9LrydjN3/XAvssG8uGspETykl83mL/DxCBiYBEICIA
YUgYEIKEAEEgHhCHObzRVwLu
               "], {{0, 0}, {8, 50}}, {0, 1}], Frame -> 
              Automatic, FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 50, 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}], ",", 
             GraphicsBox[
              RasterBox[CompressedData["
1:eJxVkMENgDAMA21erMEKjMIIXYD9f1TtOS2CKFjEvrRXe592SLp7nb3cX7u6
ZzearzE3OtroTPLfilOVoJ8DXc/U+I0/LviGb/hrOisvtPcU+IZv+N7YGVIN
h8rxJ11sQZhqq4Rrh2RLorip/a7rFFkq5Q+1UwK8
               "], {{0, 0}, {8, 
               50}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 50, 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}], ",", 
             GraphicsBox[
              RasterBox[CompressedData["
1:eJxNkcERgzAMBPfyShtpIaWkBBpI/78QvIc1oJHxCp3Ofh3fz/EA3mc8zyDh
/5j70uXK8vTj4leVkFlE5JFHnjZZPP6vfsXtLIgbSVdL3uQwzKGIXCs4UrVH
1ATDDDoaR3Fbym7NKA3zENib9cj2Wk2y476B/ACzhQKs
               "], {{0, 0}, {8, 
               50}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 50, 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}], ",", 
             GraphicsBox[
              RasterBox[CompressedData["
1:eJxVkNsVgDAIQxO/XMMVHMURXMD9/3z0pmB7gENDCGU7r+NcJO2PrXqP7Yoe
0eQeucENbvCUfjDeJHBGq2lprZJQp7g5WVEEh98mTccou5MnoxAuOHz067XE
U6WqZiFmEWzv16WGdvurSnta1LIq35i5Apo=
               "], {{0, 0}, {8, 50}}, {0,
                1}], Frame -> Automatic, FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 50, 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}], ",", 
             GraphicsBox[
              RasterBox[CompressedData["
1:eJxVj8sNwDAIQ3FPXaMrdJSOkAW6/61R8wwhEgrC+MM13mccEXHPOoMn+f8b
eUwrJmKx1sEZaDUb3WVZ8JQDty38kg81G/hlB+5YMiWvUIthyYK0xwr4Fc9L
jg2eccF91uJv8S2e3urngPvsyf8AdrECeA==
               "], {{0, 0}, {8, 50}}, {0,
                1}], Frame -> Automatic, FrameLabel -> {None, None}, 
              FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
              Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 50, 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
                Automatic}]}], "}"}]], "ExerciseOutput", Selectable -> False, 
        Copyable -> False, Editable -> False, ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"90f35eef-251a-470d-8bc3-4191d7d097e5"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:751f\:6210 1000 \:4e2a 4 \:4e2a\:968f\:673a\:5b57\:6bcd\:7684\:5e8f\:5217\
\:ff0c\:5e76\:5217\:51fa\:5176\:4e2d\:51fa\:73b0\:5728 ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["WordList",
    BaseStyle->"CodeLink"], "[", " ", "]"}]], "InlineCode",ExpressionUUID->
  "caddb3bf-2c04-44f1-bd3e-cf01b65a9ad3"],
 " \:4e2d\:7684\:5217\:8868\:3002",
 StyleBox[ButtonBox["\[RightGuillemet]",
  Appearance->None,
  Evaluator->Automatic,
  Method->"Preemptive",
  ButtonFunction:>(SelectionMove[
     ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; 
   FrontEndExecute[
     FrontEndToken[
      ButtonNotebook[], "OpenCloseGroup"]])],
  FontColor->RGBColor[1, 0.501961, 0]]
}], "Exercise",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellDingbat->Cell[
  "+30.13", "ExerciseNumber", FontColor -> 
   RGBColor[0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]],
 ShowCellBracket->False,
 CellChangeTimes->{{3.8375565901612196`*^9, 
  3.8375566050194664`*^9}},ExpressionUUID->"66e9a863-e390-43e3-a8f9-\
3b5de9a69c5b"],

Cell[BoxData[
 PaneBox[GridBox[{
    {" ", 
     StyleBox[
      RowBox[{"\:671f\:671b\:8f93\:51fa", "\:ff1a"}],
      Editable->False,
      Selectable->False,
      StripOnInput->False,
      FontColor->RGBColor[0.45, 0.45, 0.45]], " "},
    {" ", 
     InterpretationBox[Cell[BoxData[
       RowBox[{"{", 
        RowBox[{"\<\"avow\"\>", ",", "\<\"frog\"\>", ",", "\<\"know\"\>", 
         ",", "\<\"lido\"\>", ",", "\<\"snot\"\>"}], "}"}]], "ExerciseOutput",
       ExpressionUUID->"59f9fcc9-9b0a-471b-bed2-16fa3c396af1"],
      Apply[TextCell, 
       Cell[
        BoxData[
         RowBox[{"{", 
           
           RowBox[{"\"avow\"", ",", "\"frog\"", ",", "\"know\"", ",", 
             "\"lido\"", ",", "\"snot\""}], "}"}]], "ExerciseOutput", 
        Selectable -> False, Copyable -> False, Editable -> False, 
        ShowCellBracket -> False]]], " "}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[1, 1, 1]}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1}}}],
  FrameMargins->0]], "ExerciseOutput",
 Editable->False,
 Selectable->False,
 Deletable->False,
 CellFrame->{{1, 1}, {1, 1}},
 ShowCellBracket->False,
 CellFrameColor->RGBColor[0.85, 0.85, 0.85],
 LineBreakWithin->
  Automatic,ExpressionUUID->"3780bab1-6755-44a6-b974-3bce87b50944"]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:95ee&\:7b54",
 FontFamily->"Microsoft YaHei",
 FontWeight->"Normal",
 FontSlant->"Oblique"]], "QASection",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.83673031905431*^9, 3.836730320927821*^9}},
 CellTags->"p:185",ExpressionUUID->"ab9d1cec-4ceb-4810-b633-13dbd5e4fa1c"],

Cell[TextData[{
 "\:5982\:679c\:5757\:4e0d\:5b8c\:5168\:543b\:5408\:ff0c",
 ButtonBox["Partition",
  BaseStyle->"Link"],
 " \:4f1a\:600e\:4e48\:505a\:ff1f"
}], "Question",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836777233873203*^9, 
  3.8367772570374727`*^9}},ExpressionUUID->"4c0aa9a4-7e25-49ff-aa60-\
2faa64734662"],

Cell[TextData[{
 "\:5982\:679c\:6ca1\:6709\:989d\:5916\:6307\:5b9a\:ff0c\:5b83\:53ea\:4f1a\
\:5305\:62ec\:5b8c\:6574\:7684\:5757\:ff0c\:6240\:4ee5\:5b83\:5c31\:4f1a\:653e\
\:5f03\:90a3\:4e9b\:53ea\:51fa\:73b0\:5728\:4e0d\:5b8c\:6574\:5757\:4e2d\:7684\
\:5143\:7d20\:3002\:7136\:800c\:ff0c\:5982\:679c\:4f60\:7ed9\:5b9a ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Partition",
    BaseStyle->"CodeLink"], "[", 
   RowBox[{
    StyleBox["list", "CodeVariable"], ",", 
    RowBox[{
     ButtonBox["UpTo",
      BaseStyle->"CodeLink"], "[", "4", "]"}]}], "]"}]], "InlineCode",
  ExpressionUUID->"aef65840-5a86-4073-bf67-58465ed0d8cb"],
 "\:ff0c\:5b83\:5c31\:4f1a\:521b\:5efa\:957f\:5ea6\:6700\:957f\:4e3a 4 \:7684\
\:5757\:ff0c\:5982\:679c\:9700\:8981\:ff0c\:6700\:540e\:4e00\:4e2a\:5757\:4f1a\
\:66f4\:77ed\:3002"
}], "Answer",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.83677726469354*^9, 3.836777317679005*^9}, {
  3.8367773584059863`*^9, 3.836777389940288*^9}},
 CellTags->"i:29",ExpressionUUID->"8d9e912b-df0c-4519-8336-69d2b7ad79d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:6280\:672f\:7b14\:8bb0",
 FontFamily->"Microsoft YaHei",
 FontWeight->"Normal",
 FontSlant->"Oblique"]], "TechNoteSection",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836730333165636*^9, 
  3.8367303338990946`*^9}},ExpressionUUID->"d899484b-31d2-4bb8-8c99-\
bd353010ca42"],

Cell[TextData[{
 ButtonBox["Transpose",
  BaseStyle->"Link"],
 " \:53ef\:4ee5\:8ba4\:4e3a\:662f\:5bf9\:77e9\:9635\:4e2d\:7684\:884c\:548c\
\:5217\:8fdb\:884c\:8f6c\:7f6e\:3002"
}], "TechNote",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.651515120816633*^9, 3.651515125814807*^9}, 
   3.6515155174947033`*^9, {3.836777400841993*^9, 3.8367774086178527`*^9}},
 CellTags->"i:30",ExpressionUUID->"8a44b516-cb23-49af-87c7-dff12ee692f3"],

Cell[TextData[{
 ButtonBox["ArrayFlatten",
  BaseStyle->"Link"],
 " \:662f\:5c06\:6570\:7ec4\:7684\:6570\:7ec4\:538b\:5e73\:4e3a\:5355\:4e00\
\:7684\:6570\:7ec4\:ff0c\:6216\:8005\:5c06\:4e00\:4e2a\:77e9\:9635\:7684\:77e9\
\:9635\:538b\:5e73\:4e3a\:5355\:4e00\:7684\:77e9\:9635\:3002"
}], "TechNote",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.651515120816633*^9, 3.651515125814807*^9}, 
   3.6515155174947033`*^9, {3.8367774182076745`*^9, 3.8367774597278957`*^9}},
 CellTags->"i:31",ExpressionUUID->"7652986e-91e4-47b8-90db-3a36134b1d5f"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   ButtonBox["DeleteDuplicates",
    BaseStyle->"CodeLink"], "[", 
   StyleBox["list", "CodeVariable"], "]"}]], "InlineCode",ExpressionUUID->
  "c23c0966-bf88-44f7-82e3-a1899c6e0234"],
 " \:7684\:4f5c\:7528\:4e0e ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Union",
    BaseStyle->"CodeLink"], "[", 
   StyleBox["list", "CodeVariable"], "]"}]], "InlineCode",ExpressionUUID->
  "e4b5e17b-7c18-4b83-a12b-6aed1525cb3f"],
 " \:76f8\:540c\:ff0c\:53ea\:662f\:5b83\:4e0d\:4f1a\:5bf9\:5143\:7d20\:8fdb\
\:884c\:91cd\:65b0\:6392\:5e8f\:3002"
}], "TechNote",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.651515120816633*^9, 3.651515125814807*^9}, 
   3.6515155174947033`*^9, {3.8367774682256603`*^9, 3.8367774868295417`*^9}},
 CellTags->"i:32",ExpressionUUID->"c62b4ce4-6261-401b-881e-cbc14c9af288"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:63a2\:7d22\:66f4\:591a",
 FontFamily->"Microsoft YaHei",
 FontWeight->"Normal",
 FontSlant->"Oblique"]], "MoreExploreSection",
 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836730344083799*^9, 
  3.8367303454299116`*^9}},ExpressionUUID->"0a961737-910c-4eb8-8696-\
db284d733641"],

Cell[TextData[ButtonBox["Wolfram \:8bed\:8a00\:4e2d\:7684\:91cd\:6392\:5217\
\:4e0e\:91cd\:6784\:5217\:8868\:6307\:5357\[NonBreakingSpace]\[RightGuillemet]\
",
 BaseStyle->"Link",
 ButtonData->"paclet:guide/RearrangingAndRestructuringLists"]], "MoreExplore",\

 Editable->False,
 Deletable->False,
 ShowCellBracket->False,
 CellChangeTimes->{{3.836730362419505*^9, 3.836730378804926*^9}},
 CellTags->
  "LastCellOfAPage",ExpressionUUID->"e00cf606-4bd8-418b-b6c9-9355fae03d1c"]
}, Open  ]]
},
Saveable->False,
WindowToolbars->{},
BlinkingCellInsertionPoint->False,
CellInsertionPointCell->None,
WindowSize->{1908., 1011.75},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowPersistentStyles->{
 WindowFrame, WindowMargins, WindowSize, Magnification},
WindowTitle->"\:91cd\:65b0\:6392\:5217\:5217\:8868 - Wolfram \:8bed\:8a00\
\:5165\:95e8\:4ecb\:7ecd \:7ffb\:8bd1 By \:90d1\:660c\:76db",
DockedCells->{
  Cell[
   BoxData[
    TagBox[
     GridBox[{{
        TemplateBox[{
         "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]", 
          "\"\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\"", 
          GraphicsBox[
           TagBox[
            RasterBox[CompressedData["
1:eJztl01IVFEUxyctMFzUysjIyUDCTauiIJFM6ENpM4NEtJrBUaSYZMYPhCRm
rYuoICgiW0VEBVIUEbTNEMTAIqRsk6JGCVFBHx7//+4JLo/36DqvB4Ie+Mk7
7+t3733nHpzq9NlEW0ksFsuX4U8i1duQy6X6kpuRtGTzHe3ZTOuxbFemPZPb
ny7FyZ2gEqwHInICfJToguOIReywPVHHlYDzcY4hJHZ486giyBOXtfms5Pms
Bs9zUBDTow6DJOgBT8DP/+B5CepAPbgqZm+zT70Bt9VXCx6H8DwE28Gw5ufB
IT2eA1N6PKquC0V4xtUxqfkE6ARD4BHYAx5Y938Gu8GdZXq4VsNWngIfwDzY
Aa6Bm55nOKYq8NXRw29eb+Uz4JSVd4Nn4IbPs2fARUdPQcfLWAQJ8Mq6Tkdd
gGcEHHT0sHYn9Jg1dcnnnhf6vnee8xzXVkcP9wdr97eY7z0NnlrX74qpxffg
iOZ2VDp6kvqOe6AVXAb7xNQB462YNfsCfoBzoE1MzTEqHD096mgE98WsEec4
Jqamvvk8cx2kwWuw19HDXnIAbNAx03ka9IO8mO+3ScyebRZTi01i1rqguHjY
r3aJWaugOA5O6vEC+K6ebWDW0cNgv6oBnwKus87KwKDmv8BRMOBz77/6G/sV
e8lkwHWuTwm4pQ7WzGIRHgb7FXsJ9/mI5z2si42gXMw8/ByuHgb7FXsJ9yX3
IPfHFjF1xTl5v0exnrCx5gnn+fu7JC7h/z/0Y52+P+rfWX9iCXVYErg=
             "], {{0,
              34}, {26, 0}}, {0, 255}, ColorFunction -> RGBColor], 
            BoxForm`ImageTag[
            "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
             1], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
           ImageSize -> Magnification[1], ImageSizeRaw -> {26, 34}, 
           PlotRange -> {{0, 26}, {0, 34}}], 
          GraphicsBox[
           TagBox[
            RasterBox[CompressedData["
1:eJztXUuS47gRLX8WXtYRaJ+gl17SS+8U4/CeM+H2hDdtRY8jHF6ZR9AReATt
qrwyj6AjcO+ZaN0gLZCZwEMiQVJqSd2qwYvgdBGf/AF4+LFqfvvd37/56y+f
np5++M3pP998+88/fPz47b/+9Hx6+fOHH/72/Yf3f/njh3+8//79x99/96tT
4u9Oz79/8fT066cY9NNLSz++9uPz0+uOPv3n3Zj+40vj083npZktd5IVdJzk
hvT9pHOq78uc9I75rD/KA31n6/z03+dY1lRX64jkQh3LLpevbWI7t6N/Esv/
vdSJDpcOdpr5M74lvk/tt6VPL1VG3j7v79Qedr2XLlevoKDgsTHx8Cud+OTA
XDKM7yfOijnmlB+XC9zvuGfMm+HhqfwR8sjLY54ddbJuw05yesL7Sp2qHtY1
4+F8VjZ4Xajf2/q6Gd/HuUDH6OTvZOM21jHZmm0TsTvH/d531WZOn5o3x3lL
Ys22pnFN87Bezs6CgoLHhFsnMqd1IW1cz26TsrO8nOdSX8bgO+CwZlmHzf2L
OoXbYE08y/2e80AXcDGkbVEuzEXbIAvmA9S/kvuz+aIL5yeJHbTlVHbcQwzT
/BDncT5l6xXuLyh4k4C1Xfb8wZe9Bfcrnr0J949r43H9vV9bl2Oyn2w88Te/
Yx0+DxmiOiddiSyDk2/B/cEGFWPm/GkOeDmavo5zQ5wnaYX7CwreJvy61HGb
cc7uy63g/rEMPLEeg/tl7cxrZa/DpStZ2TOfFTo1Vy5yP88Zk02vGzkTic54
prjx/JDuFWJ501nXXCwS/Wev+9m+aN/Bdrk8dUYVZE1zv7n/4vScHQUFBY8L
f2fpz99PP1v8vob71ROV8efSruxYfj9xojujVuf92cfg/mWdPf88yDp9ed0f
8uXMZJIxroP5zN3ar6Tn6cGOsK5efd6f8S1/3n/6Nzrbirl7sj852yFuk87P
Zfzzmr1VQUHBY2M6+x/HPJnnCddY9yOXjevmkz7kqhut+xPZS9zv1/juvnvc
N3STTv5+R8XCsi+2Y+Joyy67fLijxifxXbhf5uzkeyZ/zt/yt0ADzrXs06RH
fJ7uKI7TnXfh/oKCnwvgDiD67u8W5/1JmZuc92vOndbus9wvd+D+TEq+ZQ3v
wpNTebkTMO5S4b4gZ5dp9xlnPp7/cR7F73v0g9/K4v7Ff4c17VEK9xcUvE2M
vJR828dcpc/m3wL3e05fvsPktW/0jY7n02m9PSS6FP+infHvJlyZ+4352p/h
671AWi5wv/+2R/Y5hfsLCt4icKzD2cpe3xmOZS8484nuIm/E/efqpJXfLkIc
hihdvtnP7YvcuYq/Ww1nM7EM/v5I2y5zzCV3vXJeF/YCg7Yx8kv2LMj9MofI
7/YV7i8oeJOY1vhwxh+e5JvPS+5643vGG3H/mTr9efYi9/vf5+qUHebc6O0P
c4M8e+Mc3rzLDWcvF3C/P6fnuSdno5xX+d/Lm7mnKNxfUPDmodeeBZdjXD+P
sYw5v6CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoOBr
BxE9n57aPV/aloLr4dSeFbdr9m/CXlmf60fVPXTdGi5mHLvqS9uyhNz45fTm
9LTu3y9jXcFacHu1/NRXktlmnprzXb8ZcQ19Pxdw3K7WTtcG2+bQ30nf4fQc
7zXX3BIuZhy79kryKhl3Kt1K23J6tVK2OX7Bh69mbFv+FkzgeVpg/r9bL5CZ
Q8v5D8n99+S1jP4W43hm3Zvbfivuz/nN6Y7/b/57dCcdwzX6K/T9VqXfgvuj
MYZpBPPluWPRGr9KdkdfyXz8iDxzLzi+5/Ac+d/PHkfQB7bcT+SpOP/huJ+m
PflDcj/Eu7+NZV7PXbn/nrhWf70X97NMGdM1v+M6b8tp0q+T/+/cCh/ISrsG
h1wLj8Yz9wJN5z3C+x3/3KgyY7/g8XeE8vn/z1dAncnP7Rk3xOsrRof9SHiF
6x/gXc4Zxb6dkvuO4v1oT/G6R/JQhvt3w/mNsmuUAbL3Kk/rF50tlNnyv3tV
VvQk8SWDA0HeJba3UFfi2UIbYb2Dtol9HyBf4thr+1a0/Vbpk3bdUYoWZRP0
M8Nu3dai38ntVLmEs9jHAylAvu6zkT4lC9tI+yKx2yt5jZJh6TO5FmQKz6O/
e7DJv4PPOF6cPh1jHweK+4H2S2yUdnT+yzkz1hkobifpmxsK3HNkeysKYy6q
Z8TA25nJrykdv63hK/ogequZmCFqMtZfZI9nHIsSr0bZvKW0H3nZNMW3W5Cx
4bwOftZcRErG0SqXqROt+4146jEkcPZIv+gytmC/ORpp77hOBfk9hfY5gFxs
syPIGYz2OHL5HeftVLqgUXajjcJrggr6j9drxHWO+0XHEWUs2N5COnG5DduB
aVhfbMW4DqT4SNu30PYt1JUz/IEC9+vYNcr3WsVvzu6aYuA4S//+Xcr9PYUx
Vis5EoOR3wxZDZTRvmjewHg+G/51YFevdam4SnsPYOfR6lOUtiv6LmPK4n4d
I91G6HMFaRi33rBdxwPXN6u5aCa/A3nYBtKndH/BdulADtoXjQUK9/g5H1tD
jo59ZdiD+a68tDPOix3EqTb8dn0SuUivtYntdGU8Ry/FWwPyrfEvfjT8/sw2
Hw25so4R3h0otNWg5EgZbCdp43fqfc96fd80bPZtB3Zu4F307SBN0Km6En/x
p9V1Vfk57u8usB25H9dcYheuBSVGnRH7Z1Wvh3o5WzBN+qbEYfTD0O39Vr7X
/C593rJbxoXo92sh8MXkEMtmpa+DNOl/yTyiYq59ETt7CuM8GrOgbwv1RJ81
12xQptgKunCtKjokFr3hp+wVrDbMxUig98IbitcRWp7E6cD5yE/S18W/41MG
lk0q38nG8St9uNV+UeifjREjgV47VUoO1rHGs6uLY1F4sTbigvviDuo74LgU
e5GTxL4NxecoTS52ZLRTLt4cx1YeyLf6jqCH52iVMWKH8Yx4At4PIFfGS63K
1DO6TP6E2O4hntomwbOqJzIP/C7xrzJxneP+s22nzFwDduCYiPq7jrOSl/hu
2ELWe8bvtdwv7Tpn99wYjOKTszmnf6WsJe5vjTTxD/di0RhBG6C+jFVXRniy
ARsaUnMH6MT5Rfw/qvfV3J+xbUfqPG0uTpSO2zV9Zzafy1jjt13ha2/YJnEU
v/ReCetYPjo+30I7aHsiHieY3/l9y++yj+lJ7Q8pPmPRwHVTEjsrzcqnM877
oU6vn5xeupz75dHr/npGV44/8cynA1lZu1V935/Fzpm43or7W5U+GDJ1H/sa
ud/a22q7H5n7BVZfrjL6JCbST/H8we/dDJ1Nzn8rHksxUmm4Lu4hJkvcr+Px
2dxP8ZnPTrfDgq89pAknu7EjXHtYqBP5SBPvH0BOS2EsYhwkrYc4bpRM5H55
RE8H9Vt+pC9k19or4ymoM/lWPMWfjVXH0kvruL/D94zcc7jf2WmdidUzNmXj
BeWlzc2zAlW2hbQk1mfYvsRDuEeMzkUgrp1RJvGdwt5X1iXCI7iX9z5k7OlU
uo69xZ9ipz6vQBuX+BrP2a39eGPo6zKyTF0Z2zXXJby8BKjjoM9PPf/O2a9t
ps/n/tbQoeXdnPspvneQ9brm47Xc731iO7cUjzWpg/OBnKVpXdhOms/ceHHj
WOb/PcVj34/1mZhIu+tvNyIOtmK3Nt6kznwonK/WUEbSJHbjOSyFfdhGyzXi
jW2gY4W6XPmN2GXUqWd04fjvKb3LOpD6bmRNvCjufw7VTFw/l/u17Tnuxz1h
C+W8Hoq/F9zN+C79aU9qH2vE/8i6OoL7UiXb6ZL92pxNObvP5n6ly/nTqnrO
1i3F34HUGTlbKOPHLa3jfvFP4iRjpJmxG2Ng3YNondhXdhS+sSEK/QbHQqPr
WXGbsWlHcDdqlJmLx2rup5iHWq6LY8/Jxn7W5nSQ3YfEhx2F71twnYAxi3y2
dFE6XqSM9IGBfxZdlWGLq79hfXKXKWN7MGIl/nczbZekZeKtgbGaW3MIjmTw
HLwvcr+KF8IaB/Wcj6S+veI0HO/OXpnL+zlZSq7Umf3Gmi7k/hnbTe43/CKr
HKXfkUkc0fdWyfD9GcrgXhfL1Zxfq7x2xnfLbuvs2rLRp62IR2XEQNDMyHG+
JvdCtIL7M3aMZxUz+qJ5PCNno+pY40XfCUXjl87jfjzzIYI7OChzbe7XaJVM
iWVuLb523a8x3skauhyk76CPOA4GsvsFzhsI/J0NXebA6RWpeQnkRnn8c63K
JGlWvvHgPOj0bLUNbJ9LT85+tF7LD8r8XRQu2/Cj71yljt6jJT7SNJYaZccG
5Ro2ZeNFExdI+2bPe5S/FaTVa2ynMOd72y15hj6JWa6MtJfpO5RpQW8utjWX
S3RBf9lQ/O1E5PuS3RT+Fo3ui+Z4UHU3FL5bxnhLDLJxMmwQ+2ScJf3W6pfK
v+z5qOGvtrmy0g0dpk96/KIeVS7X1lK/Ql8N+7LxyOm09BsPyh3HhZJZqXe0
zepDbgwPFP4+hoxpUnWlD1VaF8j2bavjQGHe6Sic0yfraCi7pRV9suC+4H4g
87w/4ygoKHgcUNhb4f2YnMsTLawpztTVa5kUzhH7a+kpuC0o3vc2X9qegoKC
80Hp78Phmr+7si48q5O9hqwdrzbHFNwWFL61rr60LQUFBZeDwt9N7Sl8O1nf
SFdD4XuijtQ3RXP4P6lulfg=
             "], {{0, 34}, {383, 0}}, {0, 255}, 
             ColorFunction -> RGBColor], 
            BoxForm`ImageTag[
            "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
             1], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
           ImageSize -> Magnification[1], ImageSizeRaw -> {383, 34}, 
           PlotRange -> {{0, 383}, {0, 34}}]}, "RowWithSeparators"], 
        PaneBox[
         StyleBox["\[VeryThinSpace]", ShowStringCharacters -> False], 
         Alignment -> Right, ImageSize -> {174, 47}], 
        PaneBox[
         PaneBox[
          TemplateBox[{"\[ThinSpace]", "\" \"", 
            TagBox[
             TooltipBox[
              PaneSelectorBox[{False -> ButtonBox[
                  PaneBox[
                   GraphicsBox[
                    TagBox[
                    RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAPiDmBmIUBO/j//z8jEDcA8W8g3oBFnhmIZ/9HgE9o8mxAvBZJ/hsQuyPJ
8wPxfiT5N0BsjiQvCsTnkOSfALEWkrwSEN9Bkr8OxDJobniAJP8ZZCYWfxCj
RpGQXcS4mVi/ExuGxMYFmlp4nAIAG14fWQ==
                    "], {{0, 14}, {9, 
                    0}}, {0, 255}, ColorFunction -> RGBColor], 
                    BoxForm`ImageTag[
                    "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                    Selectable -> False], DefaultBaseStyle -> "ImageGraphics",
                     ImageSizeRaw -> {9, 14}, PlotRange -> {{0, 9}, {0, 14}}, 
                    ImageSize -> Magnification[1]], ImageSize -> {35, 30}, 
                   Alignment -> Center], 
                  ButtonFunction :> (
                   NotebookLocate[{
                    "EIWL2-29-more-about-pure-functions.nb", ""}, 
                    FrontEnd`HistoryData :> {
                    EvaluationNotebook[]}]& ), Enabled -> True, Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], True -> 
                ButtonBox[
                  PaneBox[
                   GraphicsBox[
                    TagBox[
                    RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAPiDmBmIUBO/j//z8jEDcA8W8g3oBFnhmIZ/9HgE9o8mxAvBZJ/hsQuyPJ
8wPxfiT5N0BsjiQvCsTnkOSfALEWkrwSEN9Bkr8OxDJobniAJP8ZZCYWfxCj
RpGQXcS4mVi/ExuGxMYFmlp4nAIAG14fWQ==
                    "], {{0, 14}, {9, 
                    0}}, {0, 255}, ColorFunction -> RGBColor], 
                    BoxForm`ImageTag[
                    "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                    Selectable -> False], DefaultBaseStyle -> "ImageGraphics",
                     ImageSizeRaw -> {9, 14}, PlotRange -> {{0, 9}, {0, 14}}, 
                    ImageSize -> Magnification[1]], ImageSize -> {35, 30}, 
                   Alignment -> Center], 
                  ButtonFunction :> (
                   NotebookLocate[{
                    "EIWL2-29-more-about-pure-functions.nb", ""}, 
                    FrontEnd`HistoryData :> {
                    EvaluationNotebook[]}]& ), Enabled -> True, Appearance -> 
                  None, Background -> RGBColor[0.835294, 0.364706, 0.0196078],
                   Evaluator -> Automatic, Method -> "Preemptive"]}, 
               Dynamic[
                CurrentValue["MouseOver"]], ImageSize -> Automatic, 
               FrameMargins -> 0], "\"\:518d\:8c08\:7eaf\:51fd\:6570\"", 
              TooltipDelay -> 0.15, LabelStyle -> "TextStyling"], 
             Annotation[#, "More about Pure Functions", "Tooltip"]& ], 
            InterpretationBox[
             StyleBox[
              
              GraphicsBox[{}, ImageSize -> {5, 0}, BaselinePosition -> 
               Baseline], "CacheGraphics" -> False], 
             Spacer[5], Selectable -> False], 
            TagBox[
             TooltipBox[
              PaneSelectorBox[{False -> ButtonBox[
                  PaneBox[
                   GraphicsBox[
                    TagBox[
                    RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAfiDmBmAWI////vwKIfwFxMQMOAJT7+R8B6nGoSf+PCjpwqMskUl0SEP9F
UtcHxIxY1EWjqZuOQ10Mmr2TcNj7BEnNP1LNIeQeIDsZn78IhQ8x4fwfNb4a
cPgTFu8l2ORBAAC+1hnm
                    "], {{0, 15}, {9, 0}}, {0, 255}, 
                    ColorFunction -> RGBColor], 
                    BoxForm`ImageTag[
                    "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                    Selectable -> False], DefaultBaseStyle -> "ImageGraphics",
                     ImageSizeRaw -> {9, 15}, PlotRange -> {{0, 9}, {0, 15}}, 
                    ImageSize -> Magnification[1]], ImageSize -> {35, 30}, 
                   Alignment -> Center], 
                  ButtonFunction :> (
                   NotebookLocate[{"EIWL2-31-parts-of-lists.nb", ""}, 
                    FrontEnd`HistoryData :> {
                    EvaluationNotebook[]}]& ), Appearance -> None, Evaluator -> 
                  Automatic, Method -> "Preemptive"], True -> ButtonBox[
                  PaneBox[
                   GraphicsBox[
                    TagBox[
                    RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAfiDmBmAWI////vwKIfwFxMQMOAJT7+R8B6nGoSf+PCjpwqMskUl0SEP9F
UtcHxIxY1EWjqZuOQ10Mmr2TcNj7BEnNP1LNIeQeIDsZn78IhQ8x4fwfNb4a
cPgTFu8l2ORBAAC+1hnm
                    "], {{0, 15}, {9, 0}}, {0, 255}, 
                    ColorFunction -> RGBColor], 
                    BoxForm`ImageTag[
                    "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                    Selectable -> False], DefaultBaseStyle -> "ImageGraphics",
                     ImageSizeRaw -> {9, 15}, PlotRange -> {{0, 9}, {0, 15}}, 
                    ImageSize -> Magnification[1]], ImageSize -> {35, 30}, 
                   Alignment -> Center], 
                  ButtonFunction :> (
                   NotebookLocate[{"EIWL2-31-parts-of-lists.nb", ""}, 
                    FrontEnd`HistoryData :> {
                    EvaluationNotebook[]}]& ), Appearance -> None, Background -> 
                  RGBColor[0.835294, 0.364706, 0.0196078], Evaluator -> 
                  Automatic, Method -> "Preemptive"]}, 
               Dynamic[
                CurrentValue["MouseOver"]], ImageSize -> Automatic, 
               FrameMargins -> 0], "\"\:63d0\:53d6\:5217\:8868\:5143\:7d20\"",
               TooltipDelay -> 0.15, LabelStyle -> "TextStyling"], 
             Annotation[#, "Parts of Lists", "Tooltip"]& ]}, 
           "RowWithSeparators"], Alignment -> Right], ImageSize -> {100, 30}, 
         FrameMargins -> {{0, 6}, {0, 0}}, Alignment -> Right], 
        ActionMenuBox[
         PaneSelectorBox[{True -> PanelBox[
             GraphicsBox[
              TagBox[
               RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UBAkIQ3ELED8////Jf/pA0D2/KWTXSB7ZtPBPrA9DKOAYgAMR1Eg9gPiABpi
P6g912mcLmAAZM9XOtkFsicKiNcD8QYaYpD5UQOdXoYD+E/HMooO9iDbR7c6
BQDxtyEt
                "], {{0, 16}, {27, 0}}, {0, 255}, ColorFunction -> 
                RGBColor], 
               BoxForm`ImageTag[
               "Byte", ColorSpace -> "RGB", Interleaving -> True, 
                Magnification -> 1], Selectable -> False], DefaultBaseStyle -> 
              "ImageGraphics", ImageSize -> Magnification[1], 
              ImageSizeRaw -> {27, 16}, PlotRange -> {{0, 27}, {0, 16}}], 
             Appearance -> None, Background -> 
             RGBColor[0.835294, 0.364706, 0.0196078], ImageSize -> {35, 30}, 
             Alignment -> Center], False -> PanelBox[
             GraphicsBox[
              TagBox[
               RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UBAkIQ3ELED8////Jf/pA0D2/KWTXSB7ZtPBPrA9DKOAYgAMR1Eg9gPiABpi
P6g912mcLmAAZM9XOtkFsicKiNcD8QYaYpD5UQOdXoYD+E/HMooO9iDbR7c6
BQDxtyEt
                "], {{0, 16}, {27, 0}}, {0, 255}, ColorFunction -> 
                RGBColor], 
               BoxForm`ImageTag[
               "Byte", ColorSpace -> "RGB", Interleaving -> True, 
                Magnification -> 1], Selectable -> False], DefaultBaseStyle -> 
              "ImageGraphics", ImageSize -> Magnification[1], 
              ImageSizeRaw -> {27, 16}, PlotRange -> {{0, 27}, {0, 16}}], 
             Appearance -> None, Background -> 
             RGBColor[0.952941, 0.509804, 0], ImageSize -> {35, 30}, 
             Alignment -> Center]}, 
          Dynamic[
           CurrentValue["MouseOver"]]], {
         "\:524d\:8a00" :> 
          NotebookLocate[{"EIWL2-0a-preface.nb", ""}, FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\:4ec0\:4e48\:662f Wolfram \:8bed\:8a00?" :> 
          NotebookLocate[{"EIWL2-0b-what-is-the-wolfram-language.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], "\:4f7f\:7528 Wolfram \:8bed\:8a00" :> 
          NotebookLocate[{
            "EIWL2-0c-practicalities-of-using-the-wolfram-language.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], "\:5176\:5b83\:8d44\:6e90" :> 
          NotebookLocate[{"EIWL2-0d-other-resources.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\[ThickSpace]\[ThickSpace]\[ThinSpace]1\[ThickSpace]\[ThickSpace]|\
\[ThickSpace]\[ThickSpace]\:8d77\:6b65\:ff1a\:521d\:7b49\:6570\:5b66" :> 
          NotebookLocate[{
            "EIWL2-01-starting-out-elementary-arithmetic.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\[ThickSpace]\[ThickSpace]\[ThinSpace]2\[ThickSpace]\[ThickSpace]|\
\[ThickSpace]\[ThickSpace]\:51fd\:6570\:4ecb\:7ecd" :> 
          NotebookLocate[{"EIWL2-02-introducing-functions.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\[ThickSpace]\[ThickSpace]\[ThinSpace]3\[ThickSpace]\[ThickSpace]|\
\[ThickSpace]\[ThickSpace]\:521d\:8bc6\:5217\:8868" :> 
          NotebookLocate[{"EIWL2-03-first-look-at-lists.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\[ThickSpace]\[ThickSpace]\[ThinSpace]4\[ThickSpace]\[ThickSpace]|\
\[ThickSpace]\[ThickSpace]\:663e\:793a\:5217\:8868" :> 
          NotebookLocate[{"EIWL2-04-displaying-lists.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\[ThickSpace]\[ThickSpace]\[ThinSpace]5\[ThickSpace]\[ThickSpace]|\
\[ThickSpace]\[ThickSpace]\:64cd\:4f5c\:5217\:8868" :> 
          NotebookLocate[{"EIWL2-05-operations-on-lists.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\[ThickSpace]\[ThickSpace]\[ThinSpace]6\[ThickSpace]\[ThickSpace]|\
\[ThickSpace]\[ThickSpace]\:521b\:5efa\:8868" :> 
          NotebookLocate[{"EIWL2-06-making-tables.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\[ThickSpace]\[ThickSpace]\[ThinSpace]7\[ThickSpace]\[ThickSpace]|\
\[ThickSpace]\[ThickSpace]\:989c\:8272\:548c\:6837\:5f0f" :> 
          NotebookLocate[{"EIWL2-07-colors-and-styles.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\[ThickSpace]\[ThickSpace]\[ThinSpace]8\[ThickSpace]\[ThickSpace]|\
\[ThickSpace]\[ThickSpace]\:57fa\:672c\:56fe\:5f62\:5bf9\:8c61" :> 
          NotebookLocate[{"EIWL2-08-basic-graphics-objects.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\[ThickSpace]\[ThickSpace]\[ThinSpace]9\[ThickSpace]\[ThickSpace]|\
\[ThickSpace]\[ThickSpace]\:4ea4\:4e92\:5f0f\:64cd\:4f5c" :> 
          NotebookLocate[{"EIWL2-09-interactive-manipulation.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "10\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:56fe\:50cf\
" :> NotebookLocate[{"EIWL2-10-images.nb", ""}, FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "11\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5b57\:7b26\
\:4e32\:4e0e\:6587\:672c" :> 
          NotebookLocate[{"EIWL2-11-strings-and-text.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "12\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:58f0\:97f3\
" :> NotebookLocate[{"EIWL2-12-sound.nb", ""}, FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "13\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:6570\:7ec4\
\:ff0c\:6216\:5217\:8868\:7684\:5217\:8868" :> 
          NotebookLocate[{"EIWL2-13-arrays-or-lists-of-lists.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "14\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5750\:6807\
\:4e0e\:56fe\:5f62" :> 
          NotebookLocate[{"EIWL2-14-coordinates-and-graphics.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "15\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]Wolfram \
\:8bed\:8a00\:7684\:8303\:56f4" :> 
          NotebookLocate[{
            "EIWL2-15-the-scope-of-the-wolfram-language.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "16\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:771f\:5b9e\
\:4e16\:754c\:7684\:6570\:636e" :> 
          NotebookLocate[{"EIWL2-16-real-world-data.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "17\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5355\:4f4d\
" :> NotebookLocate[{"EIWL2-17-units.nb", ""}, FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "18\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5730\:7406\
\:8ba1\:7b97" :> 
          NotebookLocate[{"EIWL2-18-geocomputation.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "19\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:65e5\:671f\
\:548c\:65f6\:95f4" :> 
          NotebookLocate[{"EIWL2-19-dates-and-times.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "20\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:9009\:9879\
" :> NotebookLocate[{"EIWL2-20-options.nb", ""}, FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "21\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:56fe\:548c\
\:7f51\:7edc" :> 
          NotebookLocate[{"EIWL2-21-graphs-and-networks.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "22\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:673a\:5668\
\:5b66\:4e60" :> 
          NotebookLocate[{"EIWL2-22-machine-learning.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "23\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:518d\:8c08\
\:6570\:5b57" :> 
          NotebookLocate[{"EIWL2-23-more-about-numbers.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "24\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:66f4\:591a\
\:53ef\:89c6\:5316\:7684\:5f62\:5f0f" :> 
          NotebookLocate[{"EIWL2-24-more-forms-of-visualization.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "25\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5e94\:7528\
\:51fd\:6570\:7684\:65b9\:5f0f" :> 
          NotebookLocate[{"EIWL2-25-ways-to-apply-functions.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "26\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:7eaf\:533f\
\:540d\:51fd\:6570" :> 
          NotebookLocate[{"EIWL2-26-pure-anonymous-functions.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "27\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:91cd\:590d\
\:5e94\:7528\:51fd\:6570" :> 
          NotebookLocate[{"EIWL2-27-applying-functions-repeatedly.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "28\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:6d4b\:8bd5\
\:4e0e\:6761\:4ef6" :> 
          NotebookLocate[{"EIWL2-28-tests-and-conditionals.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "29\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:518d\:8c08\
\:7eaf\:51fd\:6570" :> 
          NotebookLocate[{"EIWL2-29-more-about-pure-functions.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "30\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:91cd\:65b0\
\:6392\:5217\:5217\:8868" :> 
          NotebookLocate[{"EIWL2-30-rearranging-lists.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "31\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:63d0\:53d6\
\:5217\:8868\:5143\:7d20" :> 
          NotebookLocate[{"EIWL2-31-parts-of-lists.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "32\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:6a21\:5f0f\
" :> NotebookLocate[{"EIWL2-32-patterns.nb", ""}, FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "33\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:8868\:8fbe\
\:5f0f\:53ca\:5176\:7ed3\:6784" :> 
          NotebookLocate[{"EIWL2-33-expressions-and-their-structure.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "34\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5173\:8054\
" :> NotebookLocate[{"EIWL2-34-associations.nb", ""}, FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "35\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:7406\:89e3\
\:81ea\:7136\:8bed\:8a00" :> 
          NotebookLocate[{"EIWL2-35-natural-language-understanding.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "36\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:521b\:5efa\
\:7f51\:7ad9\:548c\:5e94\:7528\:7a0b\:5e8f" :> 
          NotebookLocate[{"EIWL2-36-creating-websites-and-apps.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "37\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5e03\:5c40\
\:4e0e\:663e\:793a" :> 
          NotebookLocate[{"EIWL2-37-layout-and-display.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          
          "38\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:4e3a\:5bf9\
\:8c61\:6307\:6d3e\:540d\:79f0" :> 
          NotebookLocate[{"EIWL2-38-assigning-names-to-things.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "39\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:7acb\:5373\
\:8d4b\:503c\:4e0e\:5ef6\:8fdf\:8d4b\:503c" :> 
          NotebookLocate[{"EIWL2-39-immediate-and-delayed-values.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "40\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5b9a\:4e49\
\:4f60\:81ea\:5df1\:7684\:51fd\:6570" :> 
          NotebookLocate[{"EIWL2-40-defining-your-own-functions.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "41\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:518d\:8c08\
\:6a21\:5f0f" :> 
          NotebookLocate[{"EIWL2-41-more-about-patterns.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "42\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5b57\:7b26\
\:4e32\:6a21\:5f0f\:4e0e\:6a21\:677f" :> 
          NotebookLocate[{"EIWL2-42-string-patterns-and-templates.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "43\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5b58\:50a8\
\:5bf9\:8c61" :> 
          NotebookLocate[{"EIWL2-43-storing-things.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "44\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:5bfc\:5165\
\:4e0e\:5bfc\:51fa" :> 
          NotebookLocate[{"EIWL2-44-importing-and-exporting.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "45\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:6570\:636e\
\:96c6" :> NotebookLocate[{"EIWL2-45-datasets.nb", ""}, FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "46\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:7f16\:5199\
\:4f18\:79c0\:7684\:4ee3\:7801" :> 
          NotebookLocate[{"EIWL2-46-writing-good-code.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "47\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\:8c03\:8bd5\
\:4f60\:7684\:4ee3\:7801" :> 
          NotebookLocate[{"EIWL2-47-debugging-your-code.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\:8fd8\:6709\:4ec0\:4e48\:6211\:4eec\:5c1a\:672a\:8bba\:53ca" :> 
          NotebookLocate[{"EIWL2-what-we-havent-discussed.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], 
          "\:540e\:8bb0\:ff1a\:6210\:4e3a\:4e00\:4e2a\:7a0b\:5e8f\:5458" :> 
          NotebookLocate[{"EIWL2-being-a-programmer.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], "\:4e60\:9898\:7b54\:6848" :> 
          NotebookLocate[{"EIWL2-answers-to-exercises.nb", ""}, 
            FrontEnd`HistoryData :> {
              EvaluationNotebook[]}], "\:7d22\:5f15" :> 
          NotebookLocate[{"EIWL2-book-index.nb", ""}, FrontEnd`HistoryData :> {
              EvaluationNotebook[]}]}, Appearance -> None]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], 
   "Text", ShowCellBracket -> False, CellFrame -> {{0, 0}, {3, 0}}, 
   Selectable -> False, CellFrameColor -> 
   RGBColor[0.835294, 0.364706, 0.0196078], CellMargins -> {{0, 0}, {0, -1}}, 
   CellFrameMargins -> {{27, 0}, {1, 7}}, Background -> 
   RGBColor[0.952941, 0.509804, 0], CellTags -> "DockedCellLogoCell"], 
  Cell["\:7b2c\:4e8c\:7248", "Text", FontFamily -> "Source Sans Pro", 
   CellFrame -> {{0, 0}, {3, 0}}, ShowCellBracket -> False, 
   CellMargins -> {{0, 0}, {-1, -1}}, CellFrameMargins -> {{66, 0}, {2, 4}}, 
   CellFrameColor -> RGBColor[0.952941, 0.509804, 0], FontSize -> 10, 
   FontTracking -> "Extended", FontColor -> RGBColor[1, 0.929412, 0.721569], 
   Background -> RGBColor[0.862745, 0.309804, 0], CellTags -> 
   "DockedCellLogoCell"]},
PrintingStartingPageNumber->254,
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], 
      StyleBox[
      "    An Elementary Introduction to the Wolfram Language", "Header"]}], 
    "Header", CellMargins -> {{37, Inherited}, {Inherited, Inherited}}], None,
    None}, {None, None, 
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Section"], "Header"], 
      StyleBox[" | Rearranging Lists \[LongDash] wolfr.am/eiwl-", "Header"], 
      StyleBox[
       CounterBox["Section"], "Header"], 
      StyleBox["    ", "Header"], 
      StyleBox[
       CounterBox["Page"], "PageNumber"]}], "Header", 
    CellMargins -> {{Inherited, 17}, {Inherited, Inherited}}]}},
PrintingOptions->{"FirstPageHeader"->True},
ShowCellBracket->Automatic,
ShowAutoSpellCheck->False,
ShowPredictiveInterface->False,
ShowSyntaxStyles->False,
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (2021\:5e742\:67085\
\:65e5)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    CellGroupData[{
      Cell[
      "Style Environments", "Section", 
       CellChangeTimes -> {{3.64661165091824*^9, 3.646611654013329*^9}, 
         3.6485723794335403`*^9, 3.651347081728628*^9, 3.651347179462186*^9, 
         3.651347384135805*^9, 3.651348171662589*^9}], 
      Cell[
       StyleData[All, "Working"], CellInsertionPointCell -> 
       FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"], 
       CreateCellID -> True, $CellContext`GhostCellInEmptyNotebook -> False], 
      
      Cell[
       StyleData[All, "Printout"], 
       PrintingOptions -> {
        "PageSize" -> {504, 720}, "PrintRegistrationMarks" -> True}, 
       Magnification -> 0.6]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Headers and Footers", "Section"], 
      Cell[
       StyleData["Header"], StyleMenuListing -> None, FontFamily -> "Verdana",
        FontSize -> 7, FontSlant -> "Plain", FontColor -> GrayLevel[0.6]], 
      Cell[
       StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, 
       StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 7, 
       FontWeight -> "Bold", FontSlant -> "Plain", FontColor -> 
       GrayLevel[0]]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell[
      "WPL Specific", "Section", 
       CellChangeTimes -> {{3.6556608433734913`*^9, 3.6556608489412746`*^9}}], 
      Cell[
       StyleData["Link"], FontFamily -> "Source Sans Pro", FontSize :> 
       If[CurrentValue[
           EvaluationCell[], "FontFamily"] === "Source Sans Pro", Inherited, 
         If[CurrentValue[
            EvaluationCell[], "FontFamily"] === "WolframCodeSans", Inherited, 
          Inherited 0.9]], FontColor -> GrayLevel[0]], 
      Cell[
       StyleData["CodeLink"], 
       ButtonBoxOptions -> {
        Appearance -> None, ButtonFunction :> (FEPrivate`FrontEndExecute[
           FrontEndToken["OpenHelpLink", {
             Part[#, 1], Null}]]& ), ButtonSource -> ButtonContents, 
         Evaluator -> None, Method -> "Preemptive"}]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell[
      "Custom Styles", "Section", 
       CellChangeTimes -> {{3.646611660445352*^9, 3.646611669493331*^9}}], 
      Cell[
       StyleData["Notebook"], PageWidth :> 700, 
       PrintingOptions -> {
        "InnerOuterMargins" -> {35, 16}, "PaperOrientation" -> "Portrait", 
         "PaperSize" -> {504, 720}, 
         "PrintingMargins" -> {{20, 20}, {54, 54}}}, CellLabelAutoDelete -> 
       False, ShowSyntaxStyles -> True, 
       AutoStyleOptions -> {
        "FormattingErrorTooltips" -> False, "HighlightComments" -> False, 
         "HighlightEmphasizedSyntaxErrors" -> False, 
         "HighlightExcessArguments" -> False, "HighlightFormattingErrors" -> 
         False, "HighlightGlobalToLocalScopeConflicts" -> False, 
         "HighlightGraphicsCompatibilityProblems" -> False, 
         "HighlightLocalScopeConflicts" -> False, "HighlightMissingArguments" -> 
         False, "HighlightNoKernelPresent" -> False, 
         "HighlightOrderOfEvaluationConflicts" -> False, "HighlightStrings" -> 
         True, "HighlightSymbolContexts" -> False, "HighlightSymbolShadowing" -> 
         False, "HighlightSyntaxErrors" -> False, "HighlightUndefinedSymbols" -> 
         False, "HighlightUnknownOptions" -> False, 
         "HighlightUnwantedAssignments" -> False}, MenuSortingValue -> None, 
       GraphicsBoxOptions -> {ImageSize -> 240}, 
       Graphics3DBoxOptions -> {ImageSize -> 240}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Title"], CellMargins -> {{64, Inherited}, {50, 72}}, 
          MenuCommandKey :> None, FontFamily -> "Verdana", FontSize -> 42, 
          FontWeight -> "Bold", FontColor -> GrayLevel[0.4]], 
         Cell[
          StyleData["Title", "Printout"], 
          CellMargins -> {{64, Inherited}, {50, 72}}]}, Closed]], 
      Cell[
       StyleData["Chapter"], MenuCommandKey :> None], 
      Cell[
       StyleData["Subchapter"], MenuCommandKey :> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Section"], CellFrame -> {{0, 0}, {0, 0}}, CellDingbat -> 
          Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{96, Inherited}, {12, 44}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["Section", "Printout"], 
          CellMargins -> {{96, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionDoubleDigit"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellDingbat -> Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{112, Inherited}, {12, 44}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionDoubleDigit", "Printout"], 
          CellMargins -> {{112, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNumber"], CellBaseline -> Baseline, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 26, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionInline"], FontFamily -> 
          "Source Sans Pro Semibold", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionInline", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNoDingbat"], 
          CellMargins -> {{64, Inherited}, {12, 44}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> 
          True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionNoDingbat", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       StyleData["AnswerKeyNumberedSection"], 
       CellMargins -> {{64, Inherited}, {8, 28}}, Evaluatable -> True, 
       CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> True, 
       ShowCellLabel -> False, 
       CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
       CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
       CounterIncrements -> "Section", 
       CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
         "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", FontSize -> 
       18, FontSlant -> "Plain", FontColor -> 
       RGBColor[
        0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
       InterpretationBoxOptions -> {Editable -> True}], 
      Cell[
       StyleData["AnswerKeySectionNumber"], CellBaseline -> Baseline, 
       FontFamily -> "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
       RGBColor[
        0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
      Cell[
       StyleData["IndexLinkGuide"], 
       CellMargins -> {{64, Inherited}, {48, 28}}, Evaluatable -> True, 
       CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> True, 
       ShowCellLabel -> False, 
       CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
       CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
       CounterIncrements -> "Section", 
       CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
         "Exercise", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 14, 
       FontSlant -> "Plain", FontColor -> 
       RGBColor[
        0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
       InterpretationBoxOptions -> {Editable -> True}], 
      Cell[
       StyleData["Index"], MenuSortingValue -> 10000, FontFamily -> 
       "Source Sans Pro", FontSize -> 11], 
      Cell[
       StyleData["IndexSubentry"], MenuSortingValue -> 10000, FontFamily -> 
       "Source Sans Pro", FontSize -> 11], 
      Cell[
       StyleData["FunctionName"], MenuSortingValue -> 10000, FontFamily -> 
       "Source Sans Pro Semibold", FontWeight -> "Bold"], 
      Cell[
       StyleData["IndexColumn"], 
       CellMargins -> {{66, 0}, {Inherited, Inherited}}, TabSpacings -> {2.}, 
       MenuSortingValue -> 10000, FontFamily -> "Source Sans Pro", 
       GridBoxOptions -> {
        GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
         GridBoxItemSize -> {"Columns" -> {{25}}}, 
         GridBoxSpacings -> {"Columns" -> {{2}}}}], 
      Cell[
       StyleData["IndexSubsection"], 
       CellMargins -> {{64, Inherited}, {9, 28}}, 
       CellGroupingRules -> {"SectionGrouping", 40}, MenuSortingValue -> 
       10000, FontFamily -> "Source Sans Pro", FontSize -> 24], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsection"], CellMargins -> {{64, Inherited}, {12, 32}},
           FontFamily -> "Source Sans Pro Semibold", FontSize -> 18, 
          FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 32}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesSubsection"], 
          CellMargins -> {{64, Inherited}, {4, 16}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesSubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 16}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsection"], 
          CellMargins -> {{64, Inherited}, {6, 12}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 16, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySection"], PageWidth :> 700, 
          CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 24}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["VocabularySection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 24}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyTable", StyleDefinitions -> StyleData["Text"]],
           SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {"VocabularyCode", Inherited, Inherited}, 
              "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "VocabularyTable3Column", StyleDefinitions -> StyleData["Text"]], 
          SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {
               "VocabularyCode", Inherited, "VocabularyCode", Inherited, 
                Inherited}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable3Column", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyText"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["VocabularyText", "Printout"], 
          CellMargins -> {{66, 10}, {7, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyCode", StyleDefinitions -> StyleData["Text"]], 
          Deletable -> False, FontFamily -> "Source Sans Pro", FontSize -> 14,
           FontWeight -> "Bold", FontColor -> GrayLevel[0.25], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {
             "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {True, {True}, True}, "RowsIndexed" -> {}}}], 
         Cell[
          StyleData["VocabularyCode", "Printout"], FontColor -> 
          GrayLevel[0.25]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabDivColor"], FontColor -> GrayLevel[0.8]], 
         Cell[
          StyleData["VocabDivColor", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSection"], PageWidth :> 700, 
          CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, ShowCellLabel -> False, CellFrameMargins -> {{8, 8}, {4, 6}},
           CellFrameColor -> RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["ExerciseSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Exercise"], PageWidth :> 700, CellDingbat -> Cell[
            TextData[{"  ", 
              CounterBox["Section"], ".", 
              CounterBox["Exercise"]}], "ExerciseNumber", FontColor -> 
            RGBColor[
             0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          ShowGroupOpener -> True, CellMargins -> {{108, Inherited}, {4, 8}}, 
          CellGroupingRules -> {"SectionGrouping", 67}, CounterIncrements -> 
          "Exercise", MenuSortingValue -> 10020, MenuCommandKey :> "2", 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["Exercise", "Printout"], ShowGroupOpener -> False, 
          CellMargins -> {{110, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSubsection"], PageWidth :> 500, 
          CellFrame -> {{False, False}, {1, False}}, 
          CellMargins -> {{64, Inherited}, {8, 18}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6], FontFamily -> "Source Sans Pro", FontSize -> 
          18, FontSlant -> "Italic", FontColor -> RGBColor[0.65, 0.6, 0.6]], 
         Cell[
          StyleData["ExerciseSubsection", "Printout"], 
          CellFrame -> {{False, False}, {1, False}}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNote"], PageWidth :> 700, 
          CellMargins -> {{64, Inherited}, {4, 8}}, PageBreakBelow -> False, 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25], $CellContext`ReturnCreatesNewCell -> 
          True], 
         Cell[
          StyleData["ExerciseNote", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QASection"], PageWidth :> 700, 
          CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Question", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["QASection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Question"], PageWidth :> 700, 
          CellMargins -> {{64, Inherited}, {2, 12}}, PageBreakBelow -> False, 
          CounterIncrements -> "Question", MenuSortingValue -> 10030, 
          MenuCommandKey :> "3", FontFamily -> "Source Sans Pro", FontSize -> 
          14, FontWeight -> "Bold", FontSlant -> 
          "Plain", $CellContext`ReturnCreatesNewCell -> 
          True, $CellContext`DefaultReturnCreatedCellStyle -> "Answer"], 
         Cell[
          StyleData["Question", "Printout"], 
          CellMargins -> {{65, Inherited}, {2, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Answer"], PageWidth :> 700, 
          CellMargins -> {{66, 10}, {4, 1}}, LineSpacing -> {1.125, 1., 2.}, 
          MenuSortingValue -> 10032, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25], $CellContext`ReturnCreatesNewCell -> 
          True, $CellContext`DefaultReturnCreatedCellStyle -> "Question"], 
         Cell[
          StyleData["Answer", "Printout"], 
          CellMargins -> {{66, 10}, {4, 1}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QuestionNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["QuestionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteSection"], PageWidth :> 700, 
          CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["TechNoteSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNote"], PageWidth :> 700, CellDingbat -> Cell[
            TextData[{"\[FilledSmallSquare]"}], FontSize -> 12, FontColor -> 
            GrayLevel[0.5]], CellMargins -> {{78, Inherited}, {4, 8}}, 
          CellChangeTimes -> {{3.651515120816633*^9, 3.651515125814807*^9}, 
            3.6515155174947033`*^9}, LineSpacing -> {1.25, 1., 2.}, 
          MenuSortingValue -> 10040, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25], $CellContext`ReturnCreatesNewCell -> 
          True], 
         Cell[
          StyleData["TechNote", "Printout"], 
          CellMargins -> {{82, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreSection"], PageWidth :> 700, 
          CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["MoreExploreSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExplore"], PageWidth :> 700, 
          CellMargins -> {{64, Inherited}, {4, 8}}, PageBreakBelow -> False, 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0], $CellContext`ReturnCreatesNewCell -> 
          True], 
         Cell[
          StyleData["MoreExplore", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreShortURL"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, PageBreakBelow -> False, 
          FontFamily -> "Source Sans Pro Light", FontSize -> 14, FontSlant -> 
          "Plain", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["MoreExploreShortURL", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Text"], CellMargins -> {{66, 10}, {4, 14}}, FontFamily -> 
          "Baskerville", FontSize -> 18, FontColor -> 
          GrayLevel[0], $CellContext`ReturnCreatesNewCell -> True], 
         Cell[
          StyleData["Text", "Printout"], CellMargins -> {{66, 10}, {7, 7}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesText"], CellMargins -> {{66, 10}, {2, 0}}, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> 
          GrayLevel[0], $CellContext`ReturnCreatesNewCell -> True], 
         Cell[
          StyleData["ResourcesText", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesLink"], CellMargins -> {{66, 10}, {2, 0}}, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Italic", FontColor -> 
          GrayLevel[0], $CellContext`ReturnCreatesNewCell -> True], 
         Cell[
          StyleData["ResourcesLink", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeCaption"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{66, 10}, {4, 12}}, PageBreakBelow -> False, 
          CellFrameColor -> GrayLevel[0.4], MenuSortingValue -> 10010, 
          MenuCommandKey :> "1", FontFamily -> "Source Sans Pro", FontSize -> 
          16, FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["CodeCaption", "Printout"], 
          CellMargins -> {{66, 10}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Input"], CellMargins -> {{99, 10}, {3, 7}}, SpanMaxSize -> 
          1, FontSize -> 15], 
         Cell[
          StyleData["Input", "Printout"], CellMargins -> {{99, 10}, {3, 7}}]},
         Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Output"], CellMargins -> {{99, 10}, {14, 7}}, FontSize -> 
          15], 
         Cell[
          StyleData["Output", "Printout"], 
          CellMargins -> {{99, 10}, {14, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputOnly"], CellMargins -> {{99, 10}, {25, 10}}, 
          SpanMaxSize -> 1, MenuSortingValue -> 1500, FontSize -> 15], 
         Cell[
          StyleData["InputOnly", "Printout"], 
          CellMargins -> {{99, 10}, {15, 10}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CellLabel"], 
          CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, 
          LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> 
          "Helvetica Neue", FontSize -> 9, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.5]], 
         Cell[
          StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> 
          GrayLevel[0.5]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Message"], Editable -> False, 
          CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, 
          CellGroupingRules -> "OutputGrouping", TextClipboardType -> 
          "PlainText", PageBreakWithin -> False, GroupPageBreakWithin -> 
          False, GeneratedCell -> True, CellAutoOverwrite -> True, 
          ShowCellLabel -> False, DefaultFormatType -> 
          DefaultOutputFormatType, ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Output"], 
          ShowAutoStyles -> False, ShowSyntaxStyles -> False, 
          AutoStyleOptions -> {
           "StringStyle" -> None, "SyntaxErrorStyle" -> None}, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           AutoItalicWords -> {}, AutoQuoteCharacters -> {}, 
          PasteAutoQuoteCharacters -> {}, LanguageCategory -> None, 
          FormatType -> InputForm, ShowStringCharacters -> False, 
          CounterIncrements -> "Message", MenuSortingValue -> 1600, 
          StyleMenuListing -> None, FontFamily :> 
          CurrentValue["PanelFontFamily"], FontSize -> 11, FontColor -> 
          RGBColor[0.5072, 0.16933, 0.15221], $CellContext`StripStyleOnPaste -> 
          True], 
         Cell[
          StyleData["Message", "Printout"], 
          CellMargins -> {{100, Inherited}, {Inherited, Inherited}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, FontColor -> 
          GrayLevel[0]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{88, 10}, {4, 7}}, ShowCellLabel -> False, 
          SpanMaxSize -> 1, FontSize -> 
          14, $CellContext`GeneratedCellStyles -> {
           "Output" -> "ExerciseOutput"}], 
         Cell[
          StyleData["ExerciseInput", "Printout"], 
          CellMargins -> {{88, 10}, {4, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ExerciseOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{88, 10}, {10, 4}}, ShowCellLabel -> False, 
          FontSize -> 14], 
         Cell[
          StyleData["ExerciseOutput", "Printout"], 
          CellMargins -> {{88, 10}, {10, 4}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Picture"], CellMargins -> {{66, 10}, {10, 10}}, 
          CellGroupingRules -> "GraphicsGrouping", StyleMenuListing -> None], 
         
         Cell[
          StyleData["Picture", "Printout"], 
          CellMargins -> {{66, 10}, {8, 8}}]}, Closed]], 
      Cell[
       StyleData["ExerciseSummaryCell"], PageWidth :> 700, CellFrame -> 0, 
       CellMargins -> {{64, Inherited}, {8, 10}}, 
       CellGroupingRules -> {"SectionGrouping", 64}, PageBreakBelow -> False, 
       ShowCellLabel -> False, CellFrameMargins -> 0, ShowStringCharacters -> 
       False, FontFamily -> "Source Sans Pro", FontSize -> 18, FontColor -> 
       RGBColor[1, 1, 1], 
       GridBoxOptions -> {GridBoxBackground -> {"Columns" -> {{
              RGBColor[0.990997, 0.539528, 0.155779], 
              RGBColor[0.989487, 0.434699, 0.0320439]}}, "Rows" -> {{None}}}, 
         GridBoxItemSize -> {"Columns" -> {
             Scaled[0.7], 
             Scaled[0.3]}, "Rows" -> {{Automatic}}}}], 
      Cell[
       StyleData["ExerciseSummaryHeading"], ShowStringCharacters -> False, 
       FontFamily -> "Source Sans Pro", FontSize -> 18, FontColor -> 
       RGBColor[1, 1, 1]], 
      Cell[
       StyleData["ExerciseSummarySubheading"], ShowStringCharacters -> False, 
       FontFamily -> "Source Sans Pro", FontSize -> 15, FontColor -> 
       RGBColor[1., 0.9294117647058824, 0.7215686274509804]], 
      Cell[
       StyleData["ExercisePreviewButtonText"], ShowStringCharacters -> False, 
       FontFamily -> "Source Sans Pro", FontSize -> 14, FontSlant -> "Plain", 
       FontColor -> RGBColor[0.6, 0.6, 0.6]], 
      Cell[
       StyleData["ExercisePreviewButtonTextHighlight"], ShowStringCharacters -> 
       False, FontFamily -> "Source Sans Pro", FontSize -> 14, FontSlant -> 
       "Plain", FontColor -> 
       RGBColor[
        0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]]}, 
     Open]], 
   Cell[
    CellGroupData[{
      Cell[
      "Inline and special formatting", "Section", 
       CellChangeTimes -> {{3.646681732592888*^9, 3.646681749414035*^9}}], 
      Cell[
       StyleData["Graphics"], MenuSortingValue -> None], 
      Cell[
       StyleData["Graphics3D"], MenuSortingValue -> None], 
      Cell[
       StyleData["StandardForm"], 
       InputAutoReplacements -> {
        "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", 
         ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]",
          "@>" -> "\\[InlinePart]", "<->" -> "\[UndirectedEdge]", ParentList},
        LineSpacing -> {1.25, 0, 2}, SingleLetterItalics -> False, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", 
       PrivateFontOptions -> {"OperatorSubstitution" -> True}], 
      Cell[
       StyleData["OutputForm"], PageWidth :> DirectedInfinity[1], 
       TextAlignment -> Left, LineSpacing -> {0.6, 1}, 
       AutoQuoteCharacters -> {}, PasteAutoQuoteCharacters -> {}, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", 
       PrivateFontOptions -> {"OperatorSubstitution" -> True}], 
      Cell[
       StyleData["InputForm"], PageWidth :> DirectedInfinity[1], 
       InputAutoReplacements -> {}, AllowInlineCells -> False, Hyphenation -> 
       False, AutoQuoteCharacters -> {}, PasteAutoQuoteCharacters -> {}, 
       AutoSpacing -> False, NumberMarks -> True, AutoNumberFormatting -> 
       False, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", 
       PrivateFontOptions -> {"OperatorSubstitution" -> True}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["DetailsLink"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           ButtonFunction :> (
             Function[$CellContext`t, 
              NotebookFind[$CellContext`t, "Notes", All, CellStyle]; 
              NotebookFind[$CellContext`t, "NotesSection", All, CellStyle, 
                AutoScroll -> Top]][
              Documentation`HelpLookup[
               StringJoin["ref/", #]]]& ), ButtonSource -> ButtonContents, 
            Evaluator -> Automatic}], 
         Cell[
          StyleData["DetailsLink", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["LinkAlt"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["LinkAlt", "Printout"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Hyperlink"], MenuSortingValue -> None, FontColor -> 
          RGBColor[0.3, 0.35, 0.5]], 
         Cell[
          StyleData["Hyperlink", "Printout"]]}, Closed]], 
      Cell[
       StyleData[
       "IndexNavigationLink", StyleDefinitions -> StyleData["Hyperlink"]], 
       MenuSortingValue -> None, FontColor -> 
       RGBColor[
        0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
      Cell[
       StyleData["Crosslink"], 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["VocabularyLink"], FontColor -> GrayLevel[0], 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["InlineCode"], SpanMaxSize -> 1, FontColor -> GrayLevel[0]], 
      
      Cell[
       StyleData["InlineCodeText"], SpanMaxSize -> 1, FontFamily -> 
       "Source Sans Pro", FontSize -> 0.95 Inherited], 
      Cell[
       StyleData["NoLabel"], ShowCellLabel -> 
       False, $CellContext`GeneratedCellStyles -> {
        "Output" -> "ExerciseOutput"}], 
      Cell[
       StyleData["MenuName"], FontFamily -> "Verdana", FontWeight -> "Bold", 
       FontColor -> GrayLevel[0.286275]], 
      Cell[
       StyleData["KeyEvent"], CellFrame -> {{0.5, 0.5}, {0.5, 0.5}}, 
       CellFrameMargins -> {{2, 2}, {2, 2}}, CellFrameColor -> GrayLevel[0.7],
        FontFamily -> "Verdana", FontColor -> GrayLevel[0.4]], 
      Cell[
       StyleData["KeyEventDelimiter"], FontColor -> GrayLevel[0.5]], 
      Cell[
       CellGroupData[{
         Cell["Key Styles", "Subsubsection"], 
         Cell[
          StyleData["Key0"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {"Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-2, -2}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key1"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {2 -> GrayLevel[0.8352941176470589]}, 
                  "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-2, -2}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key2"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-2, -2}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key3"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #4, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589], 4 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-2, -2}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Entity styles", "Subsubsection"], 
         Cell[
          StyleData["Entity"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontFamily -> "Source Sans Pro", 
                    FontWeight -> "Plain", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 1}], False -> 
                 PaneBox[#, 
                   BaseStyle -> {
                    FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                   BaselinePosition -> Baseline]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               RGBColor[1., 0.504768, 0.], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontFamily -> "Source Sans Pro", 
                    FontWeight -> "Plain", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 1}], False -> 
                PaneBox[#, 
                  BaseStyle -> {
                   FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                  BaselinePosition -> Baseline]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {
                 FontWeight -> "Plain", "OperatorSubstitution" -> False}}]& ),
             Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFramelessHot"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 1}], False -> 
               PaneBox[#, BaseStyle -> {FontColor -> GrayLevel[0]}, 
                 BaselinePosition -> Baseline]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               RGBColor[1., 0.504768, 0.], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFramelessHot"], ShowStringCharacters -> False,
           TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], False -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   StyleBox[#, FontColor -> GrayLevel[0]]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityProperty"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               
               PaneBox[#, 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Source Sans Pro", FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> 
               RGBColor[0.94227, 0.703639, 0.033387], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityPropertyClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneBox[
                GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], #}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Source Sans Pro", FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> 
               RGBColor[0.94227, 0.703639, 0.033387], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityValue"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              
              GridBox[{{#, #2}}, GridBoxAlignment -> {"Rows" -> {{Baseline}}},
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
               GridBoxSpacings -> {"Columns" -> {{0}}}, 
               BaselinePosition -> {1, 1}], Background -> 
              RGBColor[{0.9921568627450981, 0.9529411764705882, 
                0.8509803921568627}], BaselinePosition -> Baseline, 
              FrameMargins -> {{1, 1}, {1, 1}}, ImageMargins -> 2, FrameStyle -> 
              RGBColor[{0.9333333333333333, 0.8470588235294118, 
                0.5529411764705883}], RoundingRadius -> 5]& )}]}, Closed]]}, 
     Closed]]}, Visible -> False, FrontEndVersion -> 
  "12.2 for Microsoft Windows (64-bit) (2021\:5e742\:67085\:65e5)", 
  StyleDefinitions -> "StylesheetFormatting.nb"],
ExpressionUUID->"5ac9a80d-2396-42c5-9906-8948289ffcd4"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "p:177"->{
  Cell[714, 24, 680, 17, 189, "SectionDoubleDigit",ExpressionUUID->"410569be-7f26-45af-a43e-7510b233b330",
   CounterAssignments->{{"Section", 29}, {"Subsection", 0}, {"Subsubsection", 0}, {"Exercise", 0}},
   CellTags->"p:177"]},
 "i:1"->{
  Cell[2153, 59, 464, 8, 73, "CodeCaption",ExpressionUUID->"fc5f5e0c-d60a-4f23-a4da-9ab43f315817",
   CellTags->"i:1"]},
 "i:2"->{
  Cell[4838, 148, 463, 13, 79, "Text",ExpressionUUID->"8962f7e9-0b5b-4246-a788-482a996a0407",
   CellTags->"i:2"]},
 "i:3"->{
  Cell[6708, 210, 424, 11, 79, "Text",ExpressionUUID->"7d681ab3-a2ec-4534-92ab-e6f6d84c5654",
   CellTags->"i:3"]},
 "i:4"->{
  Cell[8249, 260, 368, 7, 73, "CodeCaption",ExpressionUUID->"546db506-8f7a-4b56-9a5e-7112c01460eb",
   CellTags->"i:4"]},
 "i:5"->{
  Cell[10638, 324, 349, 6, 73, "CodeCaption",ExpressionUUID->"34537605-c2b5-48da-a310-292c3e2f4884",
   CellTags->"i:5"]},
 "LastCellOfAPage"->{
  Cell[11259, 342, 799, 24, 79, "Output",ExpressionUUID->"deeefbef-b444-4d73-b9ca-7f266bc6cd62",
   Evaluatable->False,
   CellTags->"LastCellOfAPage"],
  Cell[22289, 675, 1151, 38, 79, "Output",ExpressionUUID->"358d079c-7717-48c9-a1d5-b7d922893d5d",
   Evaluatable->False,
   CellTags->"LastCellOfAPage"],
  Cell[36418, 1126, 2456, 49, 391, "Output",ExpressionUUID->"b1619ca4-3621-43b6-8b8f-440ad3e781ed",
   Evaluatable->False,
   CellTags->"LastCellOfAPage"],
  Cell[50846, 1556, 333, 10, 79, "Output",ExpressionUUID->"43b7f6df-09be-43f7-af78-3a745b7b23c9",
   Evaluatable->False,
   CellTags->"LastCellOfAPage"],
  Cell[59519, 1823, 673, 15, 128, "Text",ExpressionUUID->"48b69621-b517-4e94-a9e3-e6e8fa68299b",
   CellTags->"LastCellOfAPage"],
  Cell[207850, 5883, 355, 10, 79, "Output",ExpressionUUID->"ab8f3322-f09d-46b1-8f0d-81d9aeea586f",
   Evaluatable->False,
   CellTags->"LastCellOfAPage"],
  Cell[208575, 5909, 8490, 220, 1564, "VocabularyTable",ExpressionUUID->"3aedd571-f8e6-47d7-a60a-17d0abf73573",
   CellTags->"LastCellOfAPage"],
  Cell[322987, 8633, 1371, 41, 47, "Exercise",ExpressionUUID->"9138ee94-0d26-4d58-b19f-f002774fb9be",
   CellTags->"LastCellOfAPage"],
  Cell[420043, 11056, 476, 11, 59, "MoreExplore",ExpressionUUID->"e00cf606-4bd8-418b-b6c9-9355fae03d1c",
   CellTags->"LastCellOfAPage"]},
 "p:178"->{
  Cell[12073, 369, 335, 6, 73, "CodeCaption",ExpressionUUID->"07a6ea35-a0e3-4ec4-a1ce-5ac379ddf727",
   CellTags->"p:178"]},
 "i:6"->{
  Cell[15583, 465, 503, 14, 79, "Text",ExpressionUUID->"9f96a35b-4542-4681-ad9b-c1422f29e43a",
   CellTags->"i:6"]},
 "p:179"->{
  Cell[23455, 716, 282, 5, 73, "CodeCaption",ExpressionUUID->"45e67845-67dd-49f4-a507-ea4bbca9f141",
   CellTags->"p:179"]},
 "i:7"->{
  Cell[26324, 810, 567, 15, 128, "Text",ExpressionUUID->"3d9b368e-714a-4cbb-9baa-902c3ec9f155",
   CellTags->"i:7"]},
 "i:8"->{
  Cell[29614, 922, 363, 9, 73, "CodeCaption",ExpressionUUID->"c8b1aba6-c7ea-47de-8020-e497d6193792",
   CellTags->"i:8"]},
 "i:9"->{
  Cell[35442, 1093, 419, 11, 116, "CodeCaption",ExpressionUUID->"a1d7916b-a50c-4cfc-9557-0f61c75431ad",
   CellTags->"i:9"]},
 "p:180"->{
  Cell[38889, 1178, 592, 14, 128, "Text",ExpressionUUID->"e8dd28ff-4e1a-41df-aa0c-c92ab9b4ffef",
   CellTags->{"p:180", "i:10"}]},
 "i:10"->{
  Cell[38889, 1178, 592, 14, 128, "Text",ExpressionUUID->"e8dd28ff-4e1a-41df-aa0c-c92ab9b4ffef",
   CellTags->{"p:180", "i:10"}]},
 "i:11"->{
  Cell[40750, 1235, 454, 11, 79, "Text",ExpressionUUID->"ebee30da-2871-450b-a222-18220e7795cd",
   CellTags->"i:11"]},
 "i:12"->{
  Cell[42338, 1286, 611, 15, 128, "Text",ExpressionUUID->"183c3a0b-bead-4f68-bede-67fcdffc6f6f",
   CellTags->"i:12"]},
 "i:13"->{
  Cell[44514, 1346, 383, 10, 79, "Text",ExpressionUUID->"ed646aae-2a9d-41b5-b49b-f351c414c2c3",
   CellTags->"i:13"]},
 "i:14"->{
  Cell[44900, 1358, 394, 10, 73, "CodeCaption",ExpressionUUID->"411e0669-c6aa-47bb-b8eb-c8978edb4e8b",
   CellTags->"i:14"]},
 "i:15"->{
  Cell[48088, 1468, 512, 13, 79, "Text",ExpressionUUID->"34f757d1-d3d1-492b-ad9d-462702a47ab6",
   CellTags->"i:15"]},
 "p:181"->{
  Cell[51194, 1569, 323, 7, 73, "CodeCaption",ExpressionUUID->"efe6522a-bd78-4ecf-8ef2-b8457ec5ba3b",
   CellTags->{"p:181", "i:16"}]},
 "i:16"->{
  Cell[51194, 1569, 323, 7, 73, "CodeCaption",ExpressionUUID->"efe6522a-bd78-4ecf-8ef2-b8457ec5ba3b",
   CellTags->{"p:181", "i:16"}]},
 "i:17"->{
  Cell[52262, 1604, 375, 7, 73, "CodeCaption",ExpressionUUID->"4f615a91-b241-4661-8f64-df3cb4b562e9",
   CellTags->"i:17"]},
 "i:18"->{
  Cell[53281, 1637, 442, 8, 73, "CodeCaption",ExpressionUUID->"4853d53c-311e-42cd-a756-53e9e131f615",
   CellTags->"i:18"]},
 "i:19"->{
  Cell[56040, 1710, 480, 12, 79, "Text",ExpressionUUID->"050db292-e73c-4abf-80b1-5dbf98e00798",
   CellTags->"i:19"]},
 "p:182"->{
  Cell[60195, 1840, 536, 15, 79, "Text",ExpressionUUID->"569ae83e-1c1e-4ff3-9268-9df45efba35c",
   CellTags->{"p:182", "i:20"}]},
 "i:20"->{
  Cell[60195, 1840, 536, 15, 79, "Text",ExpressionUUID->"569ae83e-1c1e-4ff3-9268-9df45efba35c",
   CellTags->{"p:182", "i:20"}]},
 "i:21"->{
  Cell[89792, 2639, 492, 13, 73, "CodeCaption",ExpressionUUID->"54ea5451-a2b6-4bb0-9a7f-3bd9ee691de8",
   CellTags->"i:21"]},
 "i:22"->{
  Cell[109526, 3179, 543, 12, 79, "Text",ExpressionUUID->"99f2a01d-f5b1-4818-999c-f6ddda96293a",
   CellTags->"i:22"]},
 "i:23"->{
  Cell[148531, 4226, 391, 10, 79, "Text",ExpressionUUID->"417a256a-ff55-470a-bd2d-8ccc3d49c0ce",
   CellTags->"i:23"]},
 "i:24"->{
  Cell[205636, 5817, 469, 11, 128, "Text",ExpressionUUID->"9ca45ddf-45b6-4ccc-9ca8-584c15fef385",
   CellTags->"i:24"]},
 "p:183"->{
  Cell[208254, 5899, 318, 8, 129, "VocabularySection",ExpressionUUID->"8e0aea5a-5a60-4e84-afe4-55fd5fe246ae",
   CellTags->"p:183"]},
 "i:25"->{
  Cell[247181, 6781, 966, 25, 47, "Exercise",ExpressionUUID->"335e0c26-6efd-47fe-a007-8e3a2343e79a",
   CellTags->"i:25"]},
 "i:26"->{
  Cell[255072, 6952, 1894, 60, 73, "Exercise",ExpressionUUID->"d8518d6e-d5e9-4815-8219-21945099bb00",
   CellTags->"i:26"]},
 "i:27"->{
  Cell[263964, 7182, 1406, 41, 47, "Exercise",ExpressionUUID->"4b3920f5-2fe9-43ad-aaeb-59b6ce152d1a",
   CellTags->"i:27"]},
 "i:28"->{
  Cell[302886, 8149, 843, 22, 47, "Exercise",ExpressionUUID->"6a712fea-caf9-4f81-99fe-712410845d63",
   CellTags->"i:28"]},
 "p:185"->{
  Cell[415584, 10928, 334, 8, 141, "QASection",ExpressionUUID->"ab9d1cec-4ceb-4810-b633-13dbd5e4fa1c",
   CellTags->"p:185"]},
 "i:29"->{
  Cell[416285, 10951, 1074, 24, 127, "Answer",ExpressionUUID->"8d9e912b-df0c-4519-8336-69d2b7ad79d0",
   CellTags->"i:29"]},
 "i:30"->{
  Cell[417738, 10991, 470, 11, 59, "TechNote",ExpressionUUID->"8a44b516-cb23-49af-87c7-dff12ee692f3",
   CellTags->"i:30"]},
 "i:31"->{
  Cell[418211, 11004, 579, 12, 59, "TechNote",ExpressionUUID->"7652986e-91e4-47b8-90db-3a36134b1d5f",
   CellTags->"i:31"]},
 "i:32"->{
  Cell[418793, 11018, 868, 22, 59, "TechNote",ExpressionUUID->"c62b4ce4-6261-401b-881e-cbc14c9af288",
   CellTags->"i:32"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"p:177", 511921, 12911},
 {"i:1", 512162, 12915},
 {"i:2", 512293, 12918},
 {"i:3", 512419, 12921},
 {"i:4", 512545, 12924},
 {"i:5", 512677, 12927},
 {"LastCellOfAPage", 512822, 12930},
 {"p:178", 514155, 12954},
 {"i:6", 514290, 12957},
 {"p:179", 514419, 12960},
 {"i:7", 514554, 12963},
 {"i:8", 514682, 12966},
 {"i:9", 514815, 12969},
 {"p:180", 514953, 12972},
 {"i:10", 515095, 12975},
 {"i:11", 515237, 12978},
 {"i:12", 515367, 12981},
 {"i:13", 515498, 12984},
 {"i:14", 515628, 12987},
 {"i:15", 515765, 12990},
 {"p:181", 515896, 12993},
 {"i:16", 516043, 12996},
 {"i:17", 516190, 12999},
 {"i:18", 516326, 13002},
 {"i:19", 516462, 13005},
 {"p:182", 516593, 13008},
 {"i:20", 516734, 13011},
 {"i:21", 516875, 13014},
 {"i:22", 517012, 13017},
 {"i:23", 517143, 13020},
 {"i:24", 517274, 13023},
 {"p:183", 517407, 13026},
 {"i:25", 517552, 13029},
 {"i:26", 517687, 13032},
 {"i:27", 517823, 13035},
 {"i:28", 517959, 13038},
 {"p:185", 518095, 13041},
 {"i:29", 518233, 13044},
 {"i:30", 518369, 13047},
 {"i:31", 518505, 13050},
 {"i:32", 518641, 13053}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[714, 24, 680, 17, 189, "SectionDoubleDigit",ExpressionUUID->"410569be-7f26-45af-a43e-7510b233b330",
 CounterAssignments->{{"Section", 29}, {"Subsection", 0}, {"Subsubsection", 0}, {"Exercise", 0}},
 CellTags->"p:177"],
Cell[1397, 43, 753, 14, 177, "Text",ExpressionUUID->"61b2e948-dede-4c20-bb86-78b186c4c649"],
Cell[2153, 59, 464, 8, 73, "CodeCaption",ExpressionUUID->"fc5f5e0c-d60a-4f23-a4da-9ab43f315817",
 CellTags->"i:1"],
Cell[CellGroupData[{
Cell[2642, 71, 510, 16, 92, "Input",ExpressionUUID->"bf8bb5a1-8390-428a-9032-c3070ec6e260"],
Cell[3155, 89, 398, 12, 79, "Output",ExpressionUUID->"af58798f-aeae-4cb9-8274-c655f710fd76",
 Evaluatable->False]
}, Open  ]],
Cell[3568, 104, 325, 7, 73, "CodeCaption",ExpressionUUID->"ac5e3df8-038d-480f-8ccb-7473e964ad7e"],
Cell[CellGroupData[{
Cell[3918, 115, 390, 11, 92, "Input",ExpressionUUID->"cf7e5482-6cc1-4659-89fe-34faba69bcf8"],
Cell[4311, 128, 512, 17, 79, "Output",ExpressionUUID->"2e2fe29d-8c3c-4bd1-94e9-c07b4e233965",
 Evaluatable->False]
}, Open  ]],
Cell[4838, 148, 463, 13, 79, "Text",ExpressionUUID->"8962f7e9-0b5b-4246-a788-482a996a0407",
 CellTags->"i:2"],
Cell[5304, 163, 579, 16, 74, "CodeCaption",ExpressionUUID->"338e8ab4-2322-4d18-8b0d-246af194d18f"],
Cell[CellGroupData[{
Cell[5908, 183, 365, 10, 92, "Input",ExpressionUUID->"4db3ffd0-27a1-48bc-bb9c-57240550516b"],
Cell[6276, 195, 417, 12, 79, "Output",ExpressionUUID->"d0274e1b-ca06-4372-a5a3-65c8df7630aa",
 Evaluatable->False]
}, Open  ]],
Cell[6708, 210, 424, 11, 79, "Text",ExpressionUUID->"7d681ab3-a2ec-4534-92ab-e6f6d84c5654",
 CellTags->"i:3"],
Cell[7135, 223, 342, 7, 73, "CodeCaption",ExpressionUUID->"3e54f540-e83e-48de-8ff7-70a7151b072c"],
Cell[CellGroupData[{
Cell[7502, 234, 234, 6, 92, "Input",ExpressionUUID->"4d78325e-d871-41b3-81fb-77d7ca9058ab"],
Cell[7739, 242, 495, 15, 79, "Output",ExpressionUUID->"741c73dc-27bc-4a69-b217-79c8995d5c7e",
 Evaluatable->False]
}, Open  ]],
Cell[8249, 260, 368, 7, 73, "CodeCaption",ExpressionUUID->"546db506-8f7a-4b56-9a5e-7112c01460eb",
 CellTags->"i:4"],
Cell[CellGroupData[{
Cell[8642, 271, 404, 12, 177, "Input",ExpressionUUID->"f87f3426-943d-4510-9600-5c8e554b44d5"],
Cell[9049, 285, 1006, 21, 253, "Output",ExpressionUUID->"e40b500a-64cc-49f0-91fc-411f470e48b3",
 Evaluatable->False]
}, Open  ]],
Cell[10070, 309, 565, 13, 128, "Text",ExpressionUUID->"29c7bf03-eccf-4969-a37e-39b55454a774"],
Cell[10638, 324, 349, 6, 73, "CodeCaption",ExpressionUUID->"34537605-c2b5-48da-a310-292c3e2f4884",
 CellTags->"i:5"],
Cell[CellGroupData[{
Cell[11012, 334, 244, 6, 92, "Input",ExpressionUUID->"24c1870f-6108-49bc-aa33-3c8f3c6a8877"],
Cell[11259, 342, 799, 24, 79, "Output",ExpressionUUID->"deeefbef-b444-4d73-b9ca-7f266bc6cd62",
 Evaluatable->False,
 CellTags->"LastCellOfAPage"]
}, Open  ]],
Cell[12073, 369, 335, 6, 73, "CodeCaption",ExpressionUUID->"07a6ea35-a0e3-4ec4-a1ce-5ac379ddf727",
 CellTags->"p:178"],
Cell[CellGroupData[{
Cell[12433, 379, 373, 10, 92, "Input",ExpressionUUID->"1eab4ac3-5a03-4d5f-9a98-de7920259e04"],
Cell[12809, 391, 1211, 26, 253, "Output",ExpressionUUID->"88e29c32-6eb1-4f18-8c10-9ebce66c915a",
 Evaluatable->False]
}, Open  ]],
Cell[14035, 420, 253, 6, 73, "CodeCaption",ExpressionUUID->"e244d449-0ea1-4edd-accd-ddfbe9f847c3"],
Cell[CellGroupData[{
Cell[14313, 430, 373, 10, 92, "Input",ExpressionUUID->"19fff1eb-0296-4fa3-ad97-2375e2bf498b"],
Cell[14689, 442, 879, 20, 171, "Output",ExpressionUUID->"71718e85-10ba-47ea-b714-919f8979f49f",
 Evaluatable->False]
}, Open  ]],
Cell[15583, 465, 503, 14, 79, "Text",ExpressionUUID->"9f96a35b-4542-4681-ad9b-c1422f29e43a",
 CellTags->"i:6"],
Cell[16089, 481, 368, 8, 73, "CodeCaption",ExpressionUUID->"a8105255-07f5-4e0e-8753-625d643300e0"],
Cell[CellGroupData[{
Cell[16482, 493, 210, 5, 92, "Input",ExpressionUUID->"d5435fbe-840d-4df1-8cc1-821a04dfa0a9"],
Cell[16695, 500, 1171, 38, 127, "Output",ExpressionUUID->"f7dab78e-0ecc-4494-a3f4-d1fb25dad2f3",
 Evaluatable->False]
}, Open  ]],
Cell[17881, 541, 275, 7, 73, "CodeCaption",ExpressionUUID->"38961a2d-ba54-464b-b387-0eac2318e77b"],
Cell[CellGroupData[{
Cell[18181, 552, 246, 6, 92, "Input",ExpressionUUID->"9af9062b-8555-4b9b-9d2e-c70a19e9e3b6"],
Cell[18430, 560, 546, 12, 79, "Output",ExpressionUUID->"196858d3-b606-458b-928f-7798a8731f23",
 Evaluatable->False]
}, Open  ]],
Cell[18991, 575, 307, 7, 73, "CodeCaption",ExpressionUUID->"fc27c2bd-f139-4700-bc8f-44cd81824726"],
Cell[CellGroupData[{
Cell[19323, 586, 287, 7, 92, "Input",ExpressionUUID->"a4e9f557-1033-49b6-951d-6aa054d56e99"],
Cell[19613, 595, 1186, 34, 284, "Output",ExpressionUUID->"d87deb76-cac5-4537-891b-b2299b557808",
 Evaluatable->False]
}, Open  ]],
Cell[20814, 632, 780, 17, 128, "Text",ExpressionUUID->"98c94d4b-c94d-4bbf-b14e-33c79303eb57"],
Cell[21597, 651, 293, 7, 73, "CodeCaption",ExpressionUUID->"328b558b-dccb-4678-8790-e85399ef2439"],
Cell[CellGroupData[{
Cell[21915, 662, 371, 11, 92, "Input",ExpressionUUID->"94944208-5bc2-4c66-afc6-ea6a9d1b96c2"],
Cell[22289, 675, 1151, 38, 79, "Output",ExpressionUUID->"358d079c-7717-48c9-a1d5-b7d922893d5d",
 Evaluatable->False,
 CellTags->"LastCellOfAPage"]
}, Open  ]],
Cell[23455, 716, 282, 5, 73, "CodeCaption",ExpressionUUID->"45e67845-67dd-49f4-a507-ea4bbca9f141",
 CellTags->"p:179"],
Cell[CellGroupData[{
Cell[23762, 725, 412, 12, 92, "Input",ExpressionUUID->"fa438f03-19e6-4253-a909-5cf0fd4e2727"],
Cell[24177, 739, 462, 11, 79, "Output",ExpressionUUID->"cb41575e-35cc-4223-9c0a-4f3f974eee0e",
 Evaluatable->False]
}, Open  ]],
Cell[24654, 753, 263, 6, 73, "CodeCaption",ExpressionUUID->"4029ff89-9725-43e0-bb3b-e7107ce1998b"],
Cell[CellGroupData[{
Cell[24942, 763, 443, 13, 92, "Input",ExpressionUUID->"3da8ba7b-d8ff-4517-9974-4070ad6849f8"],
Cell[25388, 778, 921, 29, 79, "Output",ExpressionUUID->"37036f6e-c41c-43b7-983b-addb89a9471f",
 Evaluatable->False]
}, Open  ]],
Cell[26324, 810, 567, 15, 128, "Text",ExpressionUUID->"3d9b368e-714a-4cbb-9baa-902c3ec9f155",
 CellTags->"i:7"],
Cell[26894, 827, 327, 7, 73, "CodeCaption",ExpressionUUID->"03b9e75c-9ab6-4f43-835e-a158e3d46a2f"],
Cell[CellGroupData[{
Cell[27246, 838, 439, 14, 92, "Input",ExpressionUUID->"6060b3ea-fd74-4ace-bf93-d8c31855011a"],
Cell[27688, 854, 1911, 65, 127, "Output",ExpressionUUID->"992c0d52-1a64-45a2-91ea-64266ad1643f",
 Evaluatable->False]
}, Open  ]],
Cell[29614, 922, 363, 9, 73, "CodeCaption",ExpressionUUID->"c8b1aba6-c7ea-47de-8020-e497d6193792",
 CellTags->"i:8"],
Cell[CellGroupData[{
Cell[30002, 935, 486, 15, 92, "Input",ExpressionUUID->"f7050adb-4072-42c8-9ba5-cc6d9018e97d"],
Cell[30491, 952, 815, 26, 79, "Output",ExpressionUUID->"baa3c445-533b-4491-a616-d5b71e93624c",
 Evaluatable->False]
}, Open  ]],
Cell[31321, 981, 378, 12, 73, "CodeCaption",ExpressionUUID->"a3c69c4b-08f4-4d18-8689-bee75291fcbc"],
Cell[CellGroupData[{
Cell[31724, 997, 529, 16, 92, "Input",ExpressionUUID->"5130d1e9-6e3e-4441-a8af-26815956398d"],
Cell[32256, 1015, 3171, 75, 224, "Output",ExpressionUUID->"ea7cfc28-36bb-4b00-9765-80ca27e68690",
 Evaluatable->False]
}, Open  ]],
Cell[35442, 1093, 419, 11, 116, "CodeCaption",ExpressionUUID->"a1d7916b-a50c-4cfc-9557-0f61c75431ad",
 CellTags->"i:9"],
Cell[CellGroupData[{
Cell[35886, 1108, 529, 16, 92, "Input",ExpressionUUID->"ea79c986-5402-48cd-a906-940d262b704a"],
Cell[36418, 1126, 2456, 49, 391, "Output",ExpressionUUID->"b1619ca4-3621-43b6-8b8f-440ad3e781ed",
 Evaluatable->False,
 CellTags->"LastCellOfAPage"]
}, Open  ]],
Cell[38889, 1178, 592, 14, 128, "Text",ExpressionUUID->"e8dd28ff-4e1a-41df-aa0c-c92ab9b4ffef",
 CellTags->{"p:180", "i:10"}],
Cell[39484, 1194, 352, 7, 73, "CodeCaption",ExpressionUUID->"8647de99-4bd7-459e-8d0e-0c8f56ff4dcd"],
Cell[CellGroupData[{
Cell[39861, 1205, 330, 8, 92, "Input",ExpressionUUID->"171d3c66-5d14-467b-aeed-bbc8f4eac9a4"],
Cell[40194, 1215, 541, 17, 79, "Output",ExpressionUUID->"332edc17-33d9-4f4e-922f-dc8cf342e0dd",
 Evaluatable->False]
}, Open  ]],
Cell[40750, 1235, 454, 11, 79, "Text",ExpressionUUID->"ebee30da-2871-450b-a222-18220e7795cd",
 CellTags->"i:11"],
Cell[41207, 1248, 307, 7, 73, "CodeCaption",ExpressionUUID->"4ff9c2f8-6f96-4668-a203-ee08a72626e9"],
Cell[CellGroupData[{
Cell[41539, 1259, 331, 8, 92, "Input",ExpressionUUID->"03ea96e5-5327-4512-90d0-1e1989d04449"],
Cell[41873, 1269, 450, 14, 79, "Output",ExpressionUUID->"1ffa06b6-0b88-4ba7-8374-1cca1638a3cd",
 Evaluatable->False]
}, Open  ]],
Cell[42338, 1286, 611, 15, 128, "Text",ExpressionUUID->"183c3a0b-bead-4f68-bede-67fcdffc6f6f",
 CellTags->"i:12"],
Cell[42952, 1303, 291, 7, 73, "CodeCaption",ExpressionUUID->"74b7b112-581d-40e6-a102-a57472362c45"],
Cell[CellGroupData[{
Cell[43268, 1314, 292, 8, 92, "Input",ExpressionUUID->"eb7ad33b-7035-4049-ba3b-9cce48491e28"],
Cell[43563, 1324, 936, 19, 79, "Output",ExpressionUUID->"e619f0ae-b3f8-496d-a762-e7a56f6831ef",
 Evaluatable->False]
}, Open  ]],
Cell[44514, 1346, 383, 10, 79, "Text",ExpressionUUID->"ed646aae-2a9d-41b5-b49b-f351c414c2c3",
 CellTags->"i:13"],
Cell[44900, 1358, 394, 10, 73, "CodeCaption",ExpressionUUID->"411e0669-c6aa-47bb-b8eb-c8978edb4e8b",
 CellTags->"i:14"],
Cell[CellGroupData[{
Cell[45319, 1372, 349, 10, 92, "Input",ExpressionUUID->"3673c499-8825-49dd-8954-219b47f9470f"],
Cell[45671, 1384, 782, 24, 79, "Output",ExpressionUUID->"b96941a0-bbfb-4420-81f4-9ec71198b85d",
 Evaluatable->False]
}, Open  ]],
Cell[46468, 1411, 408, 12, 73, "CodeCaption",ExpressionUUID->"e79359df-5d11-46aa-9999-9a2fe832b7fd"],
Cell[CellGroupData[{
Cell[46901, 1427, 387, 12, 92, "Input",ExpressionUUID->"54b1a571-214a-4c01-b188-266196fa0cfd"],
Cell[47291, 1441, 782, 24, 79, "Output",ExpressionUUID->"ad4bbd12-c02b-4de7-8827-ffe20180486f",
 Evaluatable->False]
}, Open  ]],
Cell[48088, 1468, 512, 13, 79, "Text",ExpressionUUID->"34f757d1-d3d1-492b-ad9d-462702a47ab6",
 CellTags->"i:15"],
Cell[48603, 1483, 287, 7, 73, "CodeCaption",ExpressionUUID->"8e12a87a-9498-48e2-9ef9-2ad4a460d303"],
Cell[CellGroupData[{
Cell[48915, 1494, 342, 9, 92, "Input",ExpressionUUID->"399f5919-c33a-417e-b59f-ef53c2959016"],
Cell[49260, 1505, 267, 7, 79, "Output",ExpressionUUID->"f4b217b3-6763-4b09-b9cd-7150269c1fab",
 Evaluatable->False]
}, Open  ]],
Cell[49542, 1515, 471, 13, 79, "Text",ExpressionUUID->"d35507f8-69f5-4b46-b432-e8cd594007e1"],
Cell[50016, 1530, 341, 7, 73, "CodeCaption",ExpressionUUID->"3ad3c2f9-72c5-42b8-ad14-8949d742fdae"],
Cell[CellGroupData[{
Cell[50382, 1541, 461, 13, 92, "Input",ExpressionUUID->"00489667-b439-4df6-838b-efd819b3bdf6"],
Cell[50846, 1556, 333, 10, 79, "Output",ExpressionUUID->"43b7f6df-09be-43f7-af78-3a745b7b23c9",
 Evaluatable->False,
 CellTags->"LastCellOfAPage"]
}, Open  ]],
Cell[51194, 1569, 323, 7, 73, "CodeCaption",ExpressionUUID->"efe6522a-bd78-4ecf-8ef2-b8457ec5ba3b",
 CellTags->{"p:181", "i:16"}],
Cell[CellGroupData[{
Cell[51542, 1580, 455, 12, 92, "Input",ExpressionUUID->"f017568d-592a-47bc-840a-6d1957eee41e"],
Cell[52000, 1594, 247, 7, 79, "Output",ExpressionUUID->"107ed0bb-d7de-40a3-af3d-4f4c2614053c",
 Evaluatable->False]
}, Open  ]],
Cell[52262, 1604, 375, 7, 73, "CodeCaption",ExpressionUUID->"4f615a91-b241-4661-8f64-df3cb4b562e9",
 CellTags->"i:17"],
Cell[CellGroupData[{
Cell[52662, 1615, 364, 10, 92, "Input",ExpressionUUID->"abe6b14f-4af7-42e3-88cd-6ab65d1f7b05"],
Cell[53029, 1627, 237, 7, 79, "Output",ExpressionUUID->"dc72bf8e-e83f-4365-b19b-2b48a4596431",
 Evaluatable->False]
}, Open  ]],
Cell[53281, 1637, 442, 8, 73, "CodeCaption",ExpressionUUID->"4853d53c-311e-42cd-a756-53e9e131f615",
 CellTags->"i:18"],
Cell[CellGroupData[{
Cell[53748, 1649, 357, 8, 92, "Input",ExpressionUUID->"c2d5d2f2-931f-4d85-84c5-76e1fa0ecac9"],
Cell[54108, 1659, 941, 17, 79, "Output",ExpressionUUID->"017a3e9b-f0a8-452c-94cb-528707f890a0",
 Evaluatable->False]
}, Open  ]],
Cell[55064, 1679, 325, 7, 73, "CodeCaption",ExpressionUUID->"3e44a586-4c77-4e85-b700-9af4b2607541"],
Cell[CellGroupData[{
Cell[55414, 1690, 302, 7, 92, "Input",ExpressionUUID->"6fe3bd7e-5ba6-4500-9d9c-e836f9c1f5d8"],
Cell[55719, 1699, 306, 8, 79, "Output",ExpressionUUID->"c3594d8c-959c-4c3d-ae10-7dc5208e63bc",
 Evaluatable->False]
}, Open  ]],
Cell[56040, 1710, 480, 12, 79, "Text",ExpressionUUID->"050db292-e73c-4abf-80b1-5dbf98e00798",
 CellTags->"i:19"],
Cell[56523, 1724, 295, 7, 73, "CodeCaption",ExpressionUUID->"28ecc4a8-604f-4cde-aa00-79f276521e5f"],
Cell[CellGroupData[{
Cell[56843, 1735, 280, 8, 92, "Input",ExpressionUUID->"1d165fa9-f436-438e-b19a-1a33592aa820"],
Cell[57126, 1745, 314, 9, 79, "Output",ExpressionUUID->"df9f2f3b-ed39-4b11-be92-2a4623c1cd84",
 Evaluatable->False]
}, Open  ]],
Cell[57455, 1757, 382, 11, 73, "CodeCaption",ExpressionUUID->"38b45c34-fa8a-48dc-81b5-d87307c9a5e3"],
Cell[CellGroupData[{
Cell[57862, 1772, 262, 7, 92, "Input",ExpressionUUID->"a83da58c-039a-4323-b14f-0cf288537780"],
Cell[58127, 1781, 469, 10, 79, "Output",ExpressionUUID->"0068b4de-742e-46ca-a8b6-443dda516495",
 Evaluatable->False]
}, Open  ]],
Cell[58611, 1794, 345, 7, 73, "CodeCaption",ExpressionUUID->"ddcec93f-22e3-4c17-9402-095e5e7d4b3a"],
Cell[CellGroupData[{
Cell[58981, 1805, 302, 8, 92, "Input",ExpressionUUID->"b03d75d9-1430-4ae9-9aaa-6d9de349ed80"],
Cell[59286, 1815, 218, 5, 79, "Output",ExpressionUUID->"4670fad4-a968-45d9-b45e-8fe5814af880",
 Evaluatable->False]
}, Open  ]],
Cell[59519, 1823, 673, 15, 128, "Text",ExpressionUUID->"48b69621-b517-4e94-a9e3-e6e8fa68299b",
 CellTags->"LastCellOfAPage"],
Cell[60195, 1840, 536, 15, 79, "Text",ExpressionUUID->"569ae83e-1c1e-4ff3-9268-9df45efba35c",
 CellTags->{"p:182", "i:20"}],
Cell[60734, 1857, 435, 9, 73, "CodeCaption",ExpressionUUID->"8eba414b-e90e-4af2-a16b-2bf76416af3f"],
Cell[CellGroupData[{
Cell[61194, 1870, 247, 6, 92, "Input",ExpressionUUID->"fe188099-6d88-4a0d-8d50-269b254dd7be"],
Cell[61444, 1878, 28333, 758, 79, "Output",ExpressionUUID->"9697afc9-42ac-4f19-87f4-2384b021aca6",
 Evaluatable->False]
}, Open  ]],
Cell[89792, 2639, 492, 13, 73, "CodeCaption",ExpressionUUID->"54ea5451-a2b6-4bb0-9a7f-3bd9ee691de8",
 CellTags->"i:21"],
Cell[CellGroupData[{
Cell[90309, 2656, 242, 6, 92, "Input",ExpressionUUID->"9f1b285a-51f1-49eb-8784-109944d4c428"],
Cell[90554, 2664, 18957, 512, 79, "Output",ExpressionUUID->"b5ec3653-e951-4c01-9a0e-0e24868593b4",
 Evaluatable->False]
}, Open  ]],
Cell[109526, 3179, 543, 12, 79, "Text",ExpressionUUID->"99f2a01d-f5b1-4818-999c-f6ddda96293a",
 CellTags->"i:22"],
Cell[110072, 3193, 476, 9, 73, "CodeCaption",ExpressionUUID->"2be49263-ef0b-4608-87ff-4b9933631ef7"],
Cell[CellGroupData[{
Cell[110573, 3206, 253, 7, 92, "Input",ExpressionUUID->"c3bee2e6-2f5a-431b-a6b5-6281fde38190"],
Cell[110829, 3215, 37687, 1008, 79, "Output",ExpressionUUID->"74da462a-4bc0-4499-96eb-99b5080146d8",
 Evaluatable->False]
}, Open  ]],
Cell[148531, 4226, 391, 10, 79, "Text",ExpressionUUID->"417a256a-ff55-470a-bd2d-8ccc3d49c0ce",
 CellTags->"i:23"],
Cell[148925, 4238, 293, 7, 73, "CodeCaption",ExpressionUUID->"a90b018e-4cae-43ad-903c-f01693ffcea5"],
Cell[CellGroupData[{
Cell[149243, 4249, 247, 6, 92, "Input",ExpressionUUID->"eef9f7ad-36ec-4cb2-b8f4-ac5b91a0fc2e"],
Cell[149493, 4257, 1610, 46, 79, "Output",ExpressionUUID->"f813acdf-29d5-450c-bea9-6328e32ab259",
 Evaluatable->False]
}, Open  ]],
Cell[151118, 4306, 315, 7, 73, "CodeCaption",ExpressionUUID->"45922204-9d4d-41f3-b4a6-7b053e21e5d7"],
Cell[CellGroupData[{
Cell[151458, 4317, 276, 8, 92, "Input",ExpressionUUID->"c622bed4-0d2e-457a-9c15-b5c69f0cabf0"],
Cell[151737, 4327, 29551, 828, 79, "Output",ExpressionUUID->"354aa7a7-5ae9-42c5-b760-b5d8e3845dfa",
 Evaluatable->False]
}, Open  ]],
Cell[181303, 5158, 313, 8, 73, "CodeCaption",ExpressionUUID->"a074f3c8-2eb9-491a-9a02-cd624dedc97a"],
Cell[CellGroupData[{
Cell[181641, 5170, 321, 9, 92, "Input",ExpressionUUID->"1c4dd1a2-7095-49f2-bd8c-460a45125d64"],
Cell[181965, 5181, 23656, 633, 79, "Output",ExpressionUUID->"2b17bd04-c0b5-4a42-b76d-181d4d314efc",
 Evaluatable->False]
}, Open  ]],
Cell[205636, 5817, 469, 11, 128, "Text",ExpressionUUID->"9ca45ddf-45b6-4ccc-9ca8-584c15fef385",
 CellTags->"i:24"],
Cell[206108, 5830, 369, 8, 73, "CodeCaption",ExpressionUUID->"6c8aa36c-d4e5-4168-ae9f-74b7fbcfb152"],
Cell[CellGroupData[{
Cell[206502, 5842, 240, 6, 92, "Input",ExpressionUUID->"ab5315fd-a5a8-4bbd-b5b4-a6870e2a1ed9"],
Cell[206745, 5850, 449, 11, 79, "Output",ExpressionUUID->"a16c3b81-07a5-4bd4-8e66-94d062cc670c",
 Evaluatable->False]
}, Open  ]],
Cell[207209, 5864, 399, 8, 73, "CodeCaption",ExpressionUUID->"f22e0f6f-98ca-4240-af51-756a2b7664c9"],
Cell[CellGroupData[{
Cell[207633, 5876, 214, 5, 92, "Input",ExpressionUUID->"20ebd000-a8b6-447e-bb55-dd87ae4c937f"],
Cell[207850, 5883, 355, 10, 79, "Output",ExpressionUUID->"ab8f3322-f09d-46b1-8f0d-81d9aeea586f",
 Evaluatable->False,
 CellTags->"LastCellOfAPage"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[208254, 5899, 318, 8, 129, "VocabularySection",ExpressionUUID->"8e0aea5a-5a60-4e84-afe4-55fd5fe246ae",
 CellTags->"p:183"],
Cell[208575, 5909, 8490, 220, 1564, "VocabularyTable",ExpressionUUID->"3aedd571-f8e6-47d7-a60a-17d0abf73573",
 CellTags->"LastCellOfAPage"]
}, Open  ]],
Cell[CellGroupData[{
Cell[217102, 6134, 1847, 49, 139, "ExerciseSection",ExpressionUUID->"c938020b-9ba6-4cac-9018-93d6ed5eb7df"],
Cell[CellGroupData[{
Cell[218974, 6187, 1527, 47, 163, "ExerciseSummaryCell",ExpressionUUID->"abc41054-be9c-48a1-a369-2541d09d0e41"],
Cell[CellGroupData[{
Cell[220526, 6238, 936, 27, 59, "Exercise",ExpressionUUID->"d7120b93-ad0e-44da-b10d-52f030a7b30c"],
Cell[221465, 6267, 3976, 86, 70, "ExerciseOutput",ExpressionUUID->"6284e50b-3620-4e56-9384-f0278309cdc9"]
}, Closed]],
Cell[CellGroupData[{
Cell[225478, 6358, 837, 24, 47, "Exercise",ExpressionUUID->"3590d512-b56b-4e90-b0d5-ca2545eb293b"],
Cell[226318, 6384, 2041, 53, 70, "ExerciseOutput",ExpressionUUID->"6fe54f4d-3e99-425b-af12-9f091d1f0be6"]
}, Closed]],
Cell[CellGroupData[{
Cell[228396, 6442, 934, 24, 47, "Exercise",ExpressionUUID->"4b4b4a14-ba8f-461d-b27d-1c0215744a1f"],
Cell[229333, 6468, 5181, 92, 70, "ExerciseOutput",ExpressionUUID->"3feda60d-633e-4eec-b04a-11796deeaf91"]
}, Closed]],
Cell[CellGroupData[{
Cell[234551, 6565, 1003, 25, 84, "Exercise",ExpressionUUID->"e14d3cae-ef03-4ce4-91c1-677e2611dec0"],
Cell[235557, 6592, 11587, 184, 70, "ExerciseOutput",ExpressionUUID->"4f825f31-2d25-49a1-997c-d894b7c59e62"]
}, Closed]],
Cell[CellGroupData[{
Cell[247181, 6781, 966, 25, 47, "Exercise",ExpressionUUID->"335e0c26-6efd-47fe-a007-8e3a2343e79a",
 CellTags->"i:25"],
Cell[248150, 6808, 6885, 139, 70, "ExerciseOutput",ExpressionUUID->"6eac1ad6-9606-4027-b1d7-d040452ab4b4"]
}, Closed]],
Cell[CellGroupData[{
Cell[255072, 6952, 1894, 60, 73, "Exercise",ExpressionUUID->"d8518d6e-d5e9-4815-8219-21945099bb00",
 CellTags->"i:26"],
Cell[256969, 7014, 6958, 163, 70, "ExerciseOutput",ExpressionUUID->"e6af9103-e865-44fa-97db-be291648f020"]
}, Closed]],
Cell[CellGroupData[{
Cell[263964, 7182, 1406, 41, 47, "Exercise",ExpressionUUID->"4b3920f5-2fe9-43ad-aaeb-59b6ce152d1a",
 CellTags->"i:27"],
Cell[265373, 7225, 3588, 91, 70, "ExerciseOutput",ExpressionUUID->"fc7d988d-110d-4700-8b25-4f34deac51e6"]
}, Closed]],
Cell[CellGroupData[{
Cell[268998, 7321, 853, 23, 47, "Exercise",ExpressionUUID->"d9373a53-a8ef-4cae-b2a9-12c5d6aa054c"],
Cell[269854, 7346, 3513, 66, 70, "ExerciseOutput",ExpressionUUID->"c0db4dca-6336-42f0-b714-c8d010130349"]
}, Closed]],
Cell[CellGroupData[{
Cell[273404, 7417, 925, 24, 47, "Exercise",ExpressionUUID->"f1368f2f-6b08-42e5-bee7-969ff3d74a04"],
Cell[274332, 7443, 9858, 199, 70, "ExerciseOutput",ExpressionUUID->"967ff9cb-5a34-43a4-b559-3496bc6c0003"]
}, Closed]],
Cell[CellGroupData[{
Cell[284227, 7647, 1000, 29, 47, "Exercise",ExpressionUUID->"a9f3ea33-78ad-4661-ba4b-615e360d71f5"],
Cell[285230, 7678, 3806, 73, 70, "ExerciseOutput",ExpressionUUID->"956dbf10-2a5c-4e77-be02-e58d4a320034"]
}, Closed]],
Cell[CellGroupData[{
Cell[289073, 7756, 857, 24, 47, "Exercise",ExpressionUUID->"f5f1f9a2-0d83-4600-bb16-00294987b5b1"],
Cell[289933, 7782, 1683, 42, 70, "ExerciseOutput",ExpressionUUID->"51cb7e5b-a0d4-4c31-9c4c-3a47094fccca"]
}, Closed]],
Cell[CellGroupData[{
Cell[291653, 7829, 845, 23, 47, "Exercise",ExpressionUUID->"73b50c6b-1ca3-4b3a-af9c-6dbc5b8f78a7"],
Cell[292501, 7854, 1648, 42, 70, "ExerciseOutput",ExpressionUUID->"5b32196e-80cc-499b-8c40-6161f3d62f1c"]
}, Closed]],
Cell[CellGroupData[{
Cell[294186, 7901, 1072, 30, 47, "Exercise",ExpressionUUID->"eb6ea61c-7671-4f1e-8776-6a4f2350c866"],
Cell[295261, 7933, 3152, 76, 70, "ExerciseOutput",ExpressionUUID->"aeaae73a-fc82-47d6-bb54-7a41826f8016"]
}, Closed]],
Cell[CellGroupData[{
Cell[298450, 8014, 853, 23, 47, "Exercise",ExpressionUUID->"a6025856-766c-4815-83a6-cd4d7351159e"],
Cell[299306, 8039, 1337, 37, 70, "ExerciseOutput",ExpressionUUID->"958851df-ae9d-4c31-b6f2-d7ba0b99a2bc"]
}, Closed]],
Cell[CellGroupData[{
Cell[300680, 8081, 932, 26, 47, "Exercise",ExpressionUUID->"e4e811c8-dee9-40f4-a22b-ae2e4a1b18c4"],
Cell[301615, 8109, 1234, 35, 70, "ExerciseOutput",ExpressionUUID->"8c393eea-2bda-4926-bff2-c0fdfd755964"]
}, Closed]],
Cell[CellGroupData[{
Cell[302886, 8149, 843, 22, 47, "Exercise",ExpressionUUID->"6a712fea-caf9-4f81-99fe-712410845d63",
 CellTags->"i:28"],
Cell[303732, 8173, 4212, 95, 70, "ExerciseOutput",ExpressionUUID->"455d660a-6355-4947-b4c0-fd63b47ceae2"]
}, Closed]],
Cell[CellGroupData[{
Cell[307981, 8273, 889, 24, 47, "Exercise",ExpressionUUID->"2b01a72d-a9f1-497f-88fd-439b92ad4846"],
Cell[308873, 8299, 2582, 58, 70, "ExerciseOutput",ExpressionUUID->"bf6fd317-fbdd-4854-8945-99edc1dd5519"]
}, Closed]],
Cell[CellGroupData[{
Cell[311492, 8362, 925, 24, 47, "Exercise",ExpressionUUID->"ef34e87b-218a-425d-a9bb-072a41de2091"],
Cell[312420, 8388, 4011, 74, 70, "ExerciseOutput",ExpressionUUID->"010a8e60-15db-45eb-b59c-086bbcdb408a"]
}, Closed]],
Cell[CellGroupData[{
Cell[316468, 8467, 841, 23, 47, "Exercise",ExpressionUUID->"ce24c51d-6ae5-4342-89d9-85550a17ec6c"],
Cell[317312, 8492, 3131, 66, 70, "ExerciseOutput",ExpressionUUID->"a0002aef-b7aa-47f2-b996-cdb5658ebdd1"]
}, Closed]],
Cell[CellGroupData[{
Cell[320480, 8563, 846, 23, 47, "Exercise",ExpressionUUID->"c6545981-c28a-412d-b630-f17a5b53fddf"],
Cell[321329, 8588, 1621, 40, 70, "ExerciseOutput",ExpressionUUID->"16f2231e-4cad-4aa3-a91e-57c5410b4bc4"]
}, Closed]],
Cell[CellGroupData[{
Cell[322987, 8633, 1371, 41, 47, "Exercise",ExpressionUUID->"9138ee94-0d26-4d58-b19f-f002774fb9be",
 CellTags->"LastCellOfAPage"],
Cell[324361, 8676, 2510, 67, 70, "ExerciseOutput",ExpressionUUID->"2b1790ce-f529-40ca-8299-e1d33491ac80"]
}, Closed]],
Cell[CellGroupData[{
Cell[326908, 8748, 975, 25, 84, "Exercise",ExpressionUUID->"e85e4837-b682-412f-8ca1-f688a51ed011"],
Cell[327886, 8775, 3044, 70, 70, "ExerciseOutput",ExpressionUUID->"d376550e-e820-4f93-825f-645b29128f96"]
}, Closed]],
Cell[CellGroupData[{
Cell[330967, 8850, 858, 23, 47, "Exercise",ExpressionUUID->"15e59e5f-f56b-4cfa-b2ca-a8550aaa72a1"],
Cell[331828, 8875, 2339, 62, 70, "ExerciseOutput",ExpressionUUID->"e2a56ea7-5317-4770-bcd1-2cb0a6a608a4"]
}, Closed]],
Cell[CellGroupData[{
Cell[334204, 8942, 819, 23, 47, "Exercise",ExpressionUUID->"26b89093-7a7b-4913-a82c-4da8933f4152"],
Cell[335026, 8967, 3818, 85, 459, "ExerciseOutput",ExpressionUUID->"b20d8d9c-35f5-4393-b027-002c52b713e2"]
}, Closed]],
Cell[CellGroupData[{
Cell[338881, 9057, 871, 24, 47, "Exercise",ExpressionUUID->"966e34c2-00b0-4065-9401-8cb506bd9630"],
Cell[339755, 9083, 3336, 81, 70, "ExerciseOutput",ExpressionUUID->"4625776f-e146-42f0-8346-6346cdc468ef"]
}, Closed]],
Cell[CellGroupData[{
Cell[343128, 9169, 890, 24, 47, "Exercise",ExpressionUUID->"5fe53764-7308-46b5-aa9a-d3ef39f79a10"],
Cell[344021, 9195, 5653, 119, 70, "ExerciseOutput",ExpressionUUID->"a9e75997-e8b2-45b6-a673-8f4544193d5f"]
}, Closed]],
Cell[CellGroupData[{
Cell[349711, 9319, 888, 24, 47, "Exercise",ExpressionUUID->"272b1f78-50b1-49ec-89a9-bbca6e2d99e5"],
Cell[350602, 9345, 5735, 125, 70, "ExerciseOutput",ExpressionUUID->"9d057044-73b7-44f7-8ae2-e7b2a5583fa9"]
}, Closed]],
Cell[CellGroupData[{
Cell[356374, 9475, 967, 28, 47, "Exercise",ExpressionUUID->"d3c6fba4-277a-41cd-84b7-bbf404e46364"],
Cell[357344, 9505, 2522, 55, 70, "ExerciseOutput",ExpressionUUID->"77dea5d6-7071-4e9b-a084-a9b3e56e7739"]
}, Closed]],
Cell[CellGroupData[{
Cell[359903, 9565, 938, 25, 47, "Exercise",ExpressionUUID->"2da9d0b6-fcbc-48c7-a616-b69f4cc4fd2e"],
Cell[360844, 9592, 1083, 30, 70, "ExerciseOutput",ExpressionUUID->"6eac75a6-633d-41b9-a62d-a36cb8a3f8dc"]
}, Closed]],
Cell[CellGroupData[{
Cell[361964, 9627, 880, 24, 47, "Exercise",ExpressionUUID->"3a66ae81-4e6d-4bc0-91af-9381ef9f3ea5"],
Cell[362847, 9653, 1806, 44, 70, "ExerciseOutput",ExpressionUUID->"3af95353-be0b-4f9d-8bc8-a41f07930fc8"]
}, Closed]],
Cell[CellGroupData[{
Cell[364690, 9702, 895, 24, 47, "Exercise",ExpressionUUID->"e22f5c14-c7eb-4e80-8558-7a8949b3d659"],
Cell[365588, 9728, 2151, 54, 70, "ExerciseOutput",ExpressionUUID->"749881bc-0cc3-406f-92b8-6327d0735e8d"]
}, Closed]],
Cell[CellGroupData[{
Cell[367776, 9787, 830, 23, 47, "Exercise",ExpressionUUID->"340df7d3-4fa5-4489-9318-37710d8ed45b"],
Cell[368609, 9812, 36129, 829, 70, "ExerciseOutput",ExpressionUUID->"0d263db8-9af3-424f-ac12-6a55836ca703"]
}, Closed]],
Cell[CellGroupData[{
Cell[404775, 10646, 984, 25, 84, "Exercise",ExpressionUUID->"7dfea61c-2da1-4931-890e-1b1beabe293a"],
Cell[405762, 10673, 7303, 175, 70, "ExerciseOutput",ExpressionUUID->"90f35eef-251a-470d-8bc3-4191d7d097e5"]
}, Closed]],
Cell[CellGroupData[{
Cell[413102, 10853, 1058, 29, 47, "Exercise",ExpressionUUID->"66e9a863-e390-43e3-a8f9-3b5de9a69c5b"],
Cell[414163, 10884, 1360, 37, 70, "ExerciseOutput",ExpressionUUID->"3780bab1-6755-44a6-b974-3bce87b50944"]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[415584, 10928, 334, 8, 141, "QASection",ExpressionUUID->"ab9d1cec-4ceb-4810-b633-13dbd5e4fa1c",
 CellTags->"p:185"],
Cell[415921, 10938, 361, 11, 63, "Question",ExpressionUUID->"4c0aa9a4-7e25-49ff-aa60-2faa64734662"],
Cell[416285, 10951, 1074, 24, 127, "Answer",ExpressionUUID->"8d9e912b-df0c-4519-8336-69d2b7ad79d0",
 CellTags->"i:29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[417396, 10980, 339, 9, 141, "TechNoteSection",ExpressionUUID->"d899484b-31d2-4bb8-8c99-bd353010ca42"],
Cell[417738, 10991, 470, 11, 59, "TechNote",ExpressionUUID->"8a44b516-cb23-49af-87c7-dff12ee692f3",
 CellTags->"i:30"],
Cell[418211, 11004, 579, 12, 59, "TechNote",ExpressionUUID->"7652986e-91e4-47b8-90db-3a36134b1d5f",
 CellTags->"i:31"],
Cell[418793, 11018, 868, 22, 59, "TechNote",ExpressionUUID->"c62b4ce4-6261-401b-881e-cbc14c9af288",
 CellTags->"i:32"]
}, Open  ]],
Cell[CellGroupData[{
Cell[419698, 11045, 342, 9, 141, "MoreExploreSection",ExpressionUUID->"0a961737-910c-4eb8-8696-db284d733641"],
Cell[420043, 11056, 476, 11, 59, "MoreExplore",ExpressionUUID->"e00cf606-4bd8-418b-b6c9-9355fae03d1c",
 CellTags->"LastCellOfAPage"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)