(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 102041, 2690] NotebookOptionsPosition[ 95220, 2525] NotebookOutlinePosition[ 96979, 2577] CellTagsIndexPosition[ 96936, 2574] WindowTitle->DifferencesBy | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell[TextData[{ "Find differences between images with respect to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ImageDifference", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/ImageDifference", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.777721295625083*^9, 3.777721302209124*^9}, { 3.8590304079813128`*^9, 3.859030417335026*^9}}, CellID->1388444664], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"images", "=", RowBox[{"RandomSample", "[", RowBox[{ RowBox[{"Keys", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], ",", "10"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777721305276322*^9, 3.777721346108906*^9}}, CellLabel->"In[41]:=", CellID->1201295015], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/x+EII2BDZfUZREmCRj7+RNUuXlMTHUwdqT4bWSp60JMTNeg7BcSTKeQ 5U4yMUX+hbIbmMy/IstNYmLigwr8smdyRrHuFDMTUxOE+ZkJTe6/LxOT9ReI dRhyT4yYmBzfg1i1TEy9aB7cxcHEZLTg4/8nmkzKr9Dk/jsxAYHe/BQmJkN0 qf/vZjFBQSyG3P/ftd0QueWYcv///zt0TYyJSf4vNrn//7+qMjHpYpf6v5GJ ifMWbjk+HFL/Q5iYuO7gkFsIdGY8Drmroky8P3AZShUAAFh7sY4= "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/x+UYL9DPU45oKNxSToA5RgcsJvIAAEO9Q5AVQ77sUjBALLpDmDufgeo 3no0bTjdD1aNz5WoTkAC9Q74ZPfXo7sQQxa7/0EAKInDWKC1uE3FLle/HyqF aWY9PMywWAcPZixy9dA4wuUKnMFCPQAARrmgUA== "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/x/c4LpRFk65HkbJjzikbrJxf0YX+zuhDUzPZkzHUN/LKAuivvExLsWQ 02a0A1H7GXV+o0utZWF8BlFSj2GbF2PHP5BLuJS/osudYGT0mF3cVmzPmI9h 2zxGKOB4gy71WJSRszRk8mQRxjkY2p66Fz8HUssYdb5jyEHAC3XWkzik/pdh cQgU3GcRx3AIQlssLqkfvOynccl1MLjikvomx7gCl9xXWc4HuOSoBwCFNNHy "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/6cDOMzNwHceq8yzeiEm5uw72KQeSTExSa7Dqut6MpN46W2sUn+8mJjW 43BGHBNTxg/sUn94mNJ+49DWyRSDQ+b/B0mmflxyy5jY7v7/f/Hm/yPPsMi1 /f+/ll98UqvhE3S5KqYv/9fzMaku+8xUjS5nwLR/CxdT7Yf/P4wNMeXKLMTn //3//zMThlwpExNTAYixgMke0y1M6vdADDb27VjksoGuf9bJXIrhhzflTExm q1ebMrFhaAMGTCYTGCzClPr//99qXSYmvTX/sMkNOAAAClS+Hw== "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/x848LrNktH+J3a5cCYmJkZeh63Y5AJBckxMXK3PMKQS+JjYZkxnAyqw foom9daIianq//+zM3iYmHrQpPyYmIweg1hhvEw84chSH3yAuh5B2GZMTBLv kOQmMTFx7ICyJ3IyMbUhpA7wMrF2wHkTmZj4EXK+TEyuCN5JZLmj7IyMp5Dk GBj44JyfvExMzQi5P61MTL1wlzAzeSEH5FImpnYYu42JKQjZR4FIcslMTGVI 1s0XYtJcDuMBQ3g3jH1uHj8shMBAjIlJ+iiI8fJaOBcwsI0fIUy5JMHEJBUH BLoMQBlxSySp//9n8rMABZn5+fk8pkx5+R8NzJRjYpJFF6QzAABCX4ZM "], {{0, 28}, { 28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/x+C4Hsog9FhHHJxTIxMWVhlfidzAeVysUl9smJiYmIMeYNNbjtQKnv5 t7be35hyTkxMuZ9/JTIxlWNIvVdk0vryvxqo2RBD7qEI09Qfcay45AIMge7E JvfJgwnkzhR/LHL/TzICQd2X6YxY5L66SBmf/v8/HZu+//9fgQgr7HIg8FkT t1wjE1MHLrkaJqZ+XHKWTEwXcUg9E2Hy/odLnxxTNS6p/yk6L3HKEQ0Acou6 yw== "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/x9e4Pfv////Aum//zCkngvw+vub+vv7W/pk3UeT++rJzAgGDIyMmRg6 jxanyjikCgOl2bDb+rMMKFeHVeppMCMjRwuma4CaFukyMmpdwqbpHlATZ9ZL bJrWqzEyik3CpukBWNNrbFLXxRkZ1bdhdd9DDUbGxDdYpc5rMHJk/8QqdYeD UfAKVpn/9/gZ+a9hl3rIy8i7B7vUH1VGpVvYpf7HMUZ9xyH1P6DnDy4p8gAA 5mHIZQ== "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/x+k4HkeA/f8v1ilfsYyyRgxbcYq18eU/eEpN99jLFLf9dXe/f9fxFSC RW4KUzeQvMcThEUukvE+iFIIxJS6IOT5HUQrYtE3n6kBRD0XwiJXzDQFRO1m SsWUC2S6AKLqmRZgygUogikDxmtY9CmByI8yTO9xyV1g4vuEKTeV7SqQPMik 9wubH0BuiWMqxpT6f42xBkiIMq7DIveRS+c30JOQwEEHFUwVCxg5NmKT+v87 gosFZC5W8MLdN/85DjmqAQDHrc9o "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/x848PxyCCODYGLNSQyZr1PFuBnBgC0fTeqyB1BUONYRJMlchiJ1TIiR 0XLn76dAuYwERqazyHIxjCYbv33o1mRkdPj0M5PREFmO1eT1DWcZRkaZng// //9i5L6EkDrJzMbFwcio0HILxPvFyHgQIbcY6AJeh8lvIDxUuceVMZvuw3mo cqigh5HjLA6pWzyMwTikXhowir3GLnVEn5HlPBJ/0Z3fMOZBY0bmWiSpt5KM pqfArPtlHIxincjGHAD6jieusrLSiY+R0ercf3Q5OMj89QtZ7oU4siQjfxyy 71K4QGIsPFBJwcXIOi8mJzUePHb54O4kXWAE3sThc1oDAKMvd94= "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU/x9IcLyAgXEfdqlfsUxMTDjkKoBSTPlHsEm9EQPJMcmEvseUK2FiCgqr K2JicsOQvCrCpLh93//f5UxM99HlipmY5oLo0zIYcn1sTMLbwSwjDLlmJiYX MGO7CDa5x2BGN4Z9L7SZEr+DGP/aMeTuMTH1ghnLmJhMX+OQc2Jim/gfp5w2 mtT/x+JM5b////87lY9pA7ocyJ3P//9fCAzQ89jkPF9M5GHiaPuJTY7JmZWJ qRpD5v//7+HgGJK/iEXu/1sfoFTRCWxSdAIAO42oAg== "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7777213252668247`*^9, 3.777721349122217*^9}}, CellLabel->"Out[41]=", CellID->1962924985] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DifferencesBy"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DifferencesBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DifferencesBy"], BoxID -> "DifferencesBy", Selectable->False], "[", RowBox[{"images", ",", "ImageDifference"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.77772134790028*^9, 3.777721356008699*^9}}, CellLabel->"In[42]:=", CellID->992829854], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwUD0Yw8//O/Q3YpXRe/5X4/x8iKSGNKpf4167u////+0HsZS9UkKU03u5l uvYfBPY3rNBgOrXfASFntpcp8u9/CGhgMv/6H8nqXDsmvjIGBof9////smdi bkB2FTczE1MthMnz9+8eFKc4+DIxsZaCmeLocgxLjJiYHN+DnND0928Rmgdd y+2YjBZ83K967e8dUXTf7/27t5ZJb35K7d9z6FIMgql/QbJMTHaLMOQYWJpK /v79C5SUwJRjYGC01XxZyyRfh02OgYHrVi2TbgOGcAPQ/Qx+tUyctxwwpEBB 6FDIxMSHIcXAAA7nECYmLllMuQaQ3EImu78LsLgDJDl11d9P7NidSSUAAOev es0= "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwUD07gsL8BwtA4OxVd7v///xDJ4n/P+FCl9gPl/u8HMtR+fuFBM/H/3wlt INmGaPv0//sdUKT+9zLKgrR+42NcCjMdbmLIv4MOQGo/o87uhgZUbWt//5ME Ma/8Q5aA2OZlz8kIcsnXO1xoHth/gpHRY7axZc+BfxMwfJ5YZ88IBPb7vguj S8m8+vfNS3vyZBFGWQxtUjt6JIDWqjPqfN+PIQkG4jd+nfz/3wGrXOe/CQ2o /oYDhd8vhLHKNTgAtS0CSmGa2fC/gf3Tjm5sUqDo62Bw/Y9druGbHOMKSAxi gjJZzgco8UYTAACqeIZZ "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwU0wPYfPn/0QCrjGTD279/pihjk5J9+vfvs0CNs1MxpTTm/H3RpcJQ/O8Z H7oU89a/fwMYGNR+fuFBl2Iyavk7nZ2BIeXfDAwT87mlZ7IwMHB+/BeFIRfH KAeiHP5dZkGXchZlDAfRV/41YNgWw9ikyMCgx/B1IT+6nPlSRruUHvUUjYli 56TR5BIrGT//W8fLqDKP/W8LqpTMK312r4TOiZnvk9nPnEOVk9rh/LTz+Av2 P5c5eP6iyTEwdP39+7fixi8zhvi/B9DlIv/+vZHxbwIDw88fHljkSh69EJYs +9OFLsUg3PG3xNQv5NTfnxjaGBj4+7lZTwItjcWUYmAoWy3x9+/FYEYsUpwP /4Vj0wICXI++yeOSox4AAO3sds4= "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJy90k0ow2EcB/CHli2bZpI2b2XKDovkJOSlKFJakzKt2LItan/alG3l4uDt orQ4ULjNwQrNWdK0zG6EE7I2B2svJmPfzX8x+7c5+9Xz9Ps9n6en561GPSXX 5hNCjBy6k6tmuwwGlXmwmC6GKOOEjtKM91EzGp3G0KxOTav8af8Rba/JUGPu cKnZ6e30IW6tzTUb7oV5XAn7r+XsVypSZryNWkQ5tB3oZa0LYwDOyrOo5FJJ TBvsJl0EMGbRwUdh4xyLzvbCiNiYxD/ComnhO3cBPgHD9AgIjqe/c+oNMGeo I4zdhZiYkIY60iqigGDGDgFVaq486NdbPBVMa3lPJGTgElkIdwoeBpLJ0K8V hIFBdPZHMc8nbPeFBTD87iQOhwvL5/4x+ml58IwAprSZgf0V+kJWU8UoTuwM 2wKWFcBNTaqInQpfcD2ctgTQTZuVvmRRz6YWuMx8l2fgSbIEuNqlYg7LAXdV 5nj1PsC7xlUqpfRedvxOBhGiDX4CcVt1Ea9cOFlGskL7ADxmD/5zfAHIOrfS "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzF0l0oQ2EYB/DH14wp32riwrXUlJZIKCkurZXkwpZtKEedKTtyoyQu3Igo opULko983bhAsVKzC+KWyRpJHRMJ/8M7M+c0c+HKv87bc/q9z9vznk6BuavB GktEdjVbGkw91TxvEgxp7MXI2dttnKW1juu22Cx8qTm4Le/r+cdkCS5pVxXd 5gFIgZ36aLb8aIgt3sNjr/YHzd43x0+Mt7Lm/dwIyjg0qR0SWmwPgD2C5kpJ 55UWM2khgId5JaWub5LjYqwxSeDjDwF/usI6UaXaGk1JmAGGuCdAkKkycJc3 eKqhATaJhzhAlG0N58XoSHS+fJpeaWXP0sUWVjyQQvb+fv9tqgDEcgQ/y9Qq s7hegP+e5A2bOomlX9MmeYiaAEfYBGApedvnLiGaZH20rLBpYJgoO1gewKNv ucNZY9jYCDWhKuXM3SkCR/LvcgNclQWLHKNRPQi48+XrFfkBn5PluI9o5Nql ICKr+Mpu8CaKhbWjFTkUEasXuCTtLTZiIikcLwZ+I5o6+XHi3/MBsqnLpA== "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwUD0XAser/WRvsUixz//77PZWBgYkRQ0okmNnXz1huw4Zjm6cqoErx7nZn ZGQIfv3v3/9//6ahynn8/XuYw+mWm8aLf//+/USV2/v37yQe1nl/vzMC5RpR pATu/b3KzdDy93Ggwb/v1aiukXv9N4t94ZcF2owGV3XRXAmUW3/uThAjI7ul GLoPeLf//b5WhSHZcsI5TJ+b3Q9iYCjtCvmHRU5OV9JoiSfDjL+YcnLX/72c J8zAcBRTzuD6v+9T2BgYeK5hyCl///dOG8So+/u3HFVK8cO/D5pgVvPfvwWo dn3698kZwjz2968eshTzrX93VSFMydd/t6CE18J/Szlg7Id/W1CMXF/MDGfP vowRYqQDAGXMf+k= "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwUD1YgMfH/lwQmrFJsi/4+PvvXB6tc7s8p/BJfPsowMWJICchLzt9wStlX 9djmqQpoconuHf/+/bvLHfj/379paHLL/kn1zHq839UOqOInqpT+222g0Ga4 oQKUa0SVS/hbD6KYHAP/fa9Gc03P32ygN2L7GFOu6qI7c91ffQbFNf/q2M3E MLyw/h5bwM1//6QmamL6fN2+Nf/+fWs//1cAU66N+9+/G576fz/yYkjJ5bJe mSfMYPf3Iiu6lMH1eWypbAwMC//2oEspf/939HIzA4Pmq3+BaFKKH/59kP56 mQXoSUjgINn16d8nZ4b2v+3x/777oUox3/p3V5WBgWX519//mtFMXPhvKdgg 8R2bJkigya0vZsb0LiUAAN15gNg= "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwUDyCQ0Fn97/+7ec1mGDJcWS/v5DJyzfvz7+cENCmd7f9+xAg68jNu+vfv TyeKlOXbf/9Ct0/gXsLFWz3/318jZLnF/067HT+VfO1foV0d27R/55Dlfp0W cXHM//fvcdCTtQys/77oIqTM/vz8Gshw7361KsP9dUC5f3YIuZh//86zcqYI A5n31qLJybQtFr5bD/bkW3Q5IOj5mw2iXP7OYij+9x3FoQzr/uqDqIa/8aqf /61B9fz6e2Dq/D/h8/9eiqDKrbsLIvkeHzrw77cBknisMgtUTn+/6sc/TUhS Qs/+nTLN+qnFwKDgzab7pAzZOPt///59diwPb9v7MZbR0pABXe7fVYZqICHC 4MrKiiwn/gIo94FT+9e/IkaPb/8+LET23eyvQMlyppz5DOwbgKx3Mcg69ebM rbPKO7l3l9Slf/+mqzFgAPEdmyZIYApTFwAAPq2sCQ== "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}], ",", GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRJI mQwUDyCQ0CnOZxCIbTbDkOHKevk+hpGRce+/nxPQpHS2//tXLhhtz5h3+N+f ThQpy7f//m1e/POxPSOjD/e7v0bIcov/nfZretepGVpr9OG78rtzyHK/Tosw 60spbFtUzN3x98e9L7oIKbM/P79mMzLWVqsyMJg8/nHvnx1CLubfv152uwZT MOcsqpxM22L9u393g9ker1HlgKDm719I2Jf87br3HcWh4lf+zgPFIANjxQ2u e2tQtCn+/VsEZkQ+1zO5KoJdrkmXtdcASSJWmQUmZ8fPqNGEJCX07N8pyRd/ O1gYFNp7eUXUkc2z//fv32fV8vK8vR8XMFqcMUCX+9fEyOjxfAI3Y2IJI4r7 X0DkGJ1YGBmr/n1YiOy72V///fsWxsQFlJa78O/fuxhknXpz5tbpVF3cv1Ng 9r9/09UYBgYAAA56mnU= "], {{0, 28}, {28, 0}}, {0, 255}, ColorFunction->GrayLevel], BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{28, 28}, PlotRange->{{0, 28}, {0, 28}}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.777721356520563*^9}, CellLabel->"Out[42]=", CellID->799547483] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->8766522], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Complement", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Complement", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to find the elements of each sublist that are absent from the proceeding \ sublist:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.77772061094613*^9, 3.777720621203623*^9}, { 3.778602672619306*^9, 3.7786026981588597`*^9}, {3.859030435507907*^9, 3.859030441095139*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DifferencesBy"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DifferencesBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DifferencesBy"], BoxID -> "DifferencesBy", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}], ",", "Complement"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777720447132493*^9, 3.777720487589766*^9}, { 3.777720605837125*^9, 3.777720606085128*^9}, {3.777721059408712*^9, 3.7777210774501057`*^9}, {3.777721139169159*^9, 3.7777211400039053`*^9}, { 3.7786026639604406`*^9, 3.7786026675337973`*^9}}, CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "3", "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777720488061502*^9, 3.777720528186769*^9}, { 3.777720565759864*^9, 3.7777206062956038`*^9}, {3.777721060889204*^9, 3.777721078040959*^9}, 3.777721140360136*^9}, CellLabel->"Out[33]=", CellID->716079312] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Create an operator:", "Text", TaggingRules->{}, CellChangeTimes->{{3.777721748760374*^9, 3.777721753688243*^9}, { 3.777722007077208*^9, 3.777722007244516*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bigger", "=", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DifferencesBy"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DifferencesBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DifferencesBy"], BoxID -> "DifferencesBy", Selectable->False], "[", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"max", "=", RowBox[{"Max", "[", "#2", "]"}]}], "}"}], ",", RowBox[{"Select", "[", RowBox[{"#1", ",", RowBox[{ RowBox[{"#", ">", "max"}], "&"}]}], "]"}]}], "]"}], "&"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777721756834393*^9, 3.77772179915591*^9}, { 3.77772183816358*^9, 3.777721880811791*^9}, {3.777721931055838*^9, 3.777721991837257*^9}}, CellLabel->"In[63]:=", CellID->836153427], Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DifferencesBy"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DifferencesBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DifferencesBy"], BoxID -> "DifferencesBy", Selectable->False], "[", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"max", "=", RowBox[{"Max", "[", "#2", "]"}]}], "}"}], ",", RowBox[{"Select", "[", RowBox[{"#1", ",", RowBox[{ RowBox[{"#1", ">", "max"}], "&"}]}], "]"}]}], "]"}], "&"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8590304550211563`*^9, 3.8590304550261602`*^9}}, CellLabel->"Out[63]=", CellID->1777482704] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bigger", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "4", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7777218008211737`*^9, 3.7777218202496223`*^9}, { 3.7777218927942543`*^9, 3.7777219269920187`*^9}, {3.777721978835724*^9, 3.777721999687704*^9}}, CellLabel->"In[65]:=", CellID->1690815994], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "8"}], "}"}], ",", RowBox[{"{", "11", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "6", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7777218209902143`*^9, {3.7777218545420856`*^9, 3.777721883456802*^9}, { 3.777721927898848*^9, 3.77772200002345*^9}}, CellLabel->"Out[65]=", CellID->1677635597] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->568056528], Cell["Find vocabulary differences:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7777220859945173`*^9, 3.777722089008173*^9}, 3.777722217863584*^9, {3.7777222762427*^9, 3.7777222809521093`*^9}}, CellID->1184552009], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Short", "/@", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DifferencesBy"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DifferencesBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DifferencesBy"], BoxID -> "DifferencesBy", Selectable->False], "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{ "ResourceData", "[", "\"\\"", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Complement", "[", RowBox[{ RowBox[{"ToLowerCase", "@", RowBox[{"TextWords", "[", "#1", "]"}]}], ",", RowBox[{"ToLowerCase", "@", RowBox[{"TextWords", "[", "#2", "]"}]}]}], "]"}], "&"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7777222193038063`*^9, 3.7777223777749662`*^9}, { 3.777722426906374*^9, 3.777722434399015*^9}}, CellLabel->"In[71]:=", CellID->1603495886], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"{", RowBox[{"\<\"abhor\"\>", ",", "\<\"abide\"\>", ",", "\<\"absence\"\>", ",", "\<\"abundance\"\>", ",", RowBox[{"\[LeftSkeleton]", "1727", "\[RightSkeleton]"}], ",", "\<\"youthful\"\>", ",", "\<\"youth's\"\>", ",", "\<\"you've\"\>", ",", "\<\"zealous\"\>"}], "}"}], Short], ",", TagBox[ RowBox[{"{", RowBox[{"\<\"ambition\"\>", ",", "\<\"ambitious\"\>", ",", "\<\"answer'd\"\>", ",", "\<\"beasts\"\>", ",", RowBox[{"\[LeftSkeleton]", "24", "\[RightSkeleton]"}], ",", "\<\"sterner\"\>", ",", "\<\"stuff\"\>", ",", "\<\"wept\"\>", ",", "\<\"withholds\"\>"}], "}"}], Short]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777722354953596*^9, 3.777722380777298*^9}, 3.777722436818149*^9}, CellLabel->"Out[71]=", CellID->1415845402] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1972932223], Cell[TextData[{ "Look at the growth of the string-based ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SubstitutionSystem", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/SubstitutionSystem", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.77772264471913*^9, 3.777722666676765*^9}}, CellID->2062168556], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"subsys", "=", RowBox[{"SubstitutionSystem", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "11"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777722589306529*^9, 3.777722592221499*^9}, { 3.777722635844524*^9, 3.777722636056868*^9}, {3.777722673431528*^9, 3.7777226798490543`*^9}}, CellLabel->"In[78]:=", CellID->1473768371], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"A\"\>", ",", "\<\"AB\"\>", ",", "\<\"ABA\"\>", ",", "\<\"ABAAB\"\>", ",", "\<\"ABAABABA\"\>", ",", "\<\"ABAABABAABAAB\"\>", ",", "\<\"ABAABABAABAABABAABABA\"\>", ",", "\<\"ABAABABAABAABABAABABAABAABABAABAAB\"\>", ",", "\<\"ABAABABAABAABABAABABAABAABABAABAABABAABABAABAABABAABABA\"\>", ",", "\<\"\ ABAABABAABAABABAABABAABAABABAABAABABAABABAABAABABAABABAABAABABAABAABABAABABAAB\ AABABAABAAB\"\>", ",", "\<\"\ ABAABABAABAABABAABABAABAABABAABAABABAABABAABAABABAABABAABAABABAABAABABAABABAAB\ AABABAABAABABAABABAABAABABAABABAABAABABAABAABABAABABAABAABABAABABA\"\>", ",", "\<\"\ ABAABABAABAABABAABABAABAABABAABAABABAABABAABAABABAABABAABAABABAABAABABAABABAAB\ AABABAABAABABAABABAABAABABAABABAABAABABAABAABABAABABAABAABABAABABAABAABABAABAA\ BABAABABAABAABABAABAABABAABABAABAABABAABABAABAABABAABAABABAABABAABAABABAABAAB\ \"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.777722593799659*^9, 3.777722636419264*^9, {3.777722673665286*^9, 3.7777226802316647`*^9}}, CellLabel->"Out[78]=", CellID->486794024] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DifferencesBy"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DifferencesBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DifferencesBy"], BoxID -> "DifferencesBy", Selectable->False], "[", RowBox[{"subsys", ",", RowBox[{ RowBox[{ RowBox[{"StringCount", "[", RowBox[{"#1", ",", "\"\\""}], "]"}], "-", RowBox[{"StringCount", "[", RowBox[{"#2", ",", "\"\\""}], "]"}]}], "&"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777722595126904*^9, 3.777722632648053*^9}}, CellLabel->"In[79]:=", CellID->342612173], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "13", ",", "21", ",", "34"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7777226330249453`*^9, 3.777722637930717*^9}, { 3.77772267523458*^9, 3.777722681685094*^9}}, CellLabel->"Out[79]=", CellID->1009053253] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell[TextData[{ Cell[BoxData[ StyleBox["DifferencesBy", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is a generalization of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Differences", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Differences", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7777211505462303`*^9, 3.777721164432695*^9}}, CellID->1054451695], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Differences", "[", RowBox[{"Prime", "/@", RowBox[{"Range", "[", "10", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777721165635995*^9, 3.77772119264647*^9}}, CellLabel->"In[37]:=", CellID->838050361], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "2", ",", "4", ",", "2", ",", "4", ",", "2", ",", "4", ",", "6"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777721176851425*^9, 3.777721192960731*^9}}, CellLabel->"Out[37]=", CellID->1788522212] }, Open ]], Cell[TextData[{ "Using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Subtract", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Subtract", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " as ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " gives the same result:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7777212203152933`*^9, 3.7777212401824512`*^9}}, CellID->551746647], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DifferencesBy"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DifferencesBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DifferencesBy"], BoxID -> "DifferencesBy", Selectable->False], "[", RowBox[{ RowBox[{"Prime", "/@", RowBox[{"Range", "[", "10", "]"}]}], ",", "Subtract"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777721198580038*^9, 3.77772121558947*^9}}, CellLabel->"In[39]:=", CellID->2040217476], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "2", ",", "4", ",", "2", ",", "4", ",", "2", ",", "4", ",", "6"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777721206440688*^9, 3.77772121603091*^9}}, CellLabel->"Out[39]=", CellID->322880465] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->128166185], Cell[TextData[{ "The function passed to ", Cell[BoxData[ StyleBox["DifferencesBy", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " does not need to be subtraction:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7786029610521464`*^9, 3.7786030202890697`*^9}, 3.8590304754936123`*^9}, CellID->164632758], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DifferencesBy"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DifferencesBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DifferencesBy"], BoxID -> "DifferencesBy", Selectable->False], "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "f"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777721198580038*^9, 3.77772121558947*^9}, { 3.7786030460706477`*^9, 3.778603059597*^9}}, CellLabel->"In[17]:=", CellID->8835453], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "3"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"5", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"6", ",", "5"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"7", ",", "6"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"8", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"9", ",", "8"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"10", ",", "9"}], "]"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777721206440688*^9, 3.77772121603091*^9}, { 3.7786030527133117`*^9, 3.778603060310071*^9}}, CellLabel->"Out[17]=", CellID->140893391] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DifferencesBy", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DifferencesBy"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DifferencesBy"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DifferencesBy"], BoxID -> "DifferencesBy", Selectable->False], "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "Times"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7786030675557957`*^9, 3.7786030741714573`*^9}}, CellLabel->"In[19]:=", CellID->177419559], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "6", ",", "12", ",", "20", ",", "30", ",", "42", ",", "56", ",", "72", ",", "90"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.778603068918932*^9, 3.7786030746415043`*^9}}, CellLabel->"Out[19]=", CellID->17852035] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"DifferencesBy | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[626, 23, 168, 7, 70, "Subsection",ExpressionUUID->"37d85309-0bac-4b0a-b1e8-cfaa98696ff9", CellID->462042388], Cell[797, 32, 719, 21, 70, "Text",ExpressionUUID->"06c7acda-4301-4854-af9e-e2db6a5df2e2", CellID->1388444664], Cell[CellGroupData[{ Cell[1541, 57, 339, 10, 70, "Input",ExpressionUUID->"269c0d79-f824-4af8-905d-43c8b96386f5", CellID->1201295015], Cell[1883, 69, 7033, 162, 70, "Output",ExpressionUUID->"9a8a9c9d-9911-45f2-ae25-2ff91e8a07f7", CellID->1962924985] }, Open ]], Cell[CellGroupData[{ Cell[8953, 236, 7175, 180, 70, "Input",ExpressionUUID->"e81b0fad-5714-491a-9cf4-e985bf8614fb", CellID->992829854], Cell[16131, 418, 7551, 165, 70, "Output",ExpressionUUID->"069b0220-9a2d-4932-94ec-422dfa74d656", CellID->799547483] }, Open ]], Cell[CellGroupData[{ Cell[23719, 588, 142, 4, 70, "ExampleDelimiter",ExpressionUUID->"0d3d218b-652b-4bcb-ba2f-b603c0a06b69", CellID->8766522], Cell[23864, 594, 794, 23, 70, "Text",ExpressionUUID->"624e39d9-c78b-4e48-91f8-325d458d699b", CellID->13078159], Cell[CellGroupData[{ Cell[24683, 621, 7585, 191, 70, "Input",ExpressionUUID->"5928bb4f-836a-460a-826d-e2bd6ffa66d7", CellID->443871870], Cell[32271, 814, 399, 11, 70, "Output",ExpressionUUID->"fdef4f48-020a-4d30-810c-4ef7cf9a0fe9", CellID->716079312] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32731, 832, 159, 7, 70, "Subsection",ExpressionUUID->"e62a0821-05dd-41fc-969b-6958271ce767", CellID->964056545], Cell[32893, 841, 189, 4, 70, "Text",ExpressionUUID->"d886591b-09dc-44a1-af50-faa3ff1f883d", CellID->649685796], Cell[CellGroupData[{ Cell[33107, 849, 7790, 197, 70, "Input",ExpressionUUID->"61d740d4-0d3c-4177-ab7d-ffba1277a45e", CellID->836153427], Cell[40900, 1048, 7426, 190, 70, "Output",ExpressionUUID->"29dadc77-09c1-4706-a524-8878fe62ce0f", CellID->1777482704] }, Open ]], Cell[CellGroupData[{ Cell[48363, 1243, 701, 20, 70, "Input",ExpressionUUID->"eafc4b73-ce17-4067-a23f-e1b1df16cf53", CellID->1690815994], Cell[49067, 1265, 418, 13, 70, "Output",ExpressionUUID->"01f5da6b-e49f-45c2-92ec-df18b7f3a4b5", CellID->1677635597] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[49534, 1284, 166, 7, 70, "Subsection",ExpressionUUID->"4bbed54d-ff11-49dd-b4c5-d8378f1149c6", CellID->568056528], Cell[49703, 1293, 224, 4, 70, "Text",ExpressionUUID->"39572c4d-3930-479c-81cb-7c4ed3ec5daf", CellID->1184552009], Cell[CellGroupData[{ Cell[49952, 1301, 8058, 202, 70, "Input",ExpressionUUID->"c5e00ecc-0293-4efb-92b8-99b5e54be158", CellID->1603495886], Cell[58013, 1505, 897, 23, 70, "Output",ExpressionUUID->"4f382ebe-e5fd-491f-9bea-8978ea66efca", CellID->1415845402] }, Open ]], Cell[CellGroupData[{ Cell[58947, 1533, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"4ab7e41a-30e2-4c99-8912-05461965141e", CellID->1972932223], Cell[59095, 1539, 677, 21, 70, "Text",ExpressionUUID->"0209f29d-97c0-48d3-b496-87c6556ff141", CellID->2062168556], Cell[CellGroupData[{ Cell[59797, 1564, 527, 14, 70, "Input",ExpressionUUID->"3f11c8c8-8bec-42bf-87f2-798a4730637b", CellID->1473768371], Cell[60327, 1580, 1091, 23, 70, "Output",ExpressionUUID->"ee50de2a-4aeb-4ab4-9f65-7fe97d5e1e23", CellID->486794024] }, Open ]], Cell[CellGroupData[{ Cell[61455, 1608, 7360, 186, 70, "Input",ExpressionUUID->"e6664425-7fe6-4e26-a601-033f03353756", CellID->342612173], Cell[68818, 1796, 353, 9, 70, "Output",ExpressionUUID->"9f1df9e2-0928-4615-8831-f7bcb8150394", CellID->1009053253] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[69232, 1812, 178, 7, 70, "Subsection",ExpressionUUID->"76c796b6-c298-467b-87fd-d725f7d033df", CellID->754506620], Cell[69413, 1821, 773, 24, 70, "Text",ExpressionUUID->"33f988ac-d1d1-4be0-86d3-c3a9665db938", CellID->1054451695], Cell[CellGroupData[{ Cell[70211, 1849, 254, 7, 70, "Input",ExpressionUUID->"b29ed503-708c-4544-b80b-26fd503a5ba1", CellID->838050361], Cell[70468, 1858, 280, 8, 70, "Output",ExpressionUUID->"d033431b-9394-4178-936f-a697f86c1f33", CellID->1788522212] }, Open ]], Cell[70763, 1869, 749, 25, 70, "Text",ExpressionUUID->"593c3976-76b2-4290-8f07-9fa78ca10406", CellID->551746647], Cell[CellGroupData[{ Cell[71537, 1898, 7228, 182, 70, "Input",ExpressionUUID->"6110c39b-0e3b-4e98-a6e9-f4c75248ce65", CellID->2040217476], Cell[78768, 2082, 278, 8, 70, "Output",ExpressionUUID->"7ffbf59c-2792-4a30-8c81-88d746938123", CellID->322880465] }, Open ]], Cell[CellGroupData[{ Cell[79083, 2095, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"f684a315-6760-4a09-9f21-7219c0a495c7", CellID->128166185], Cell[79230, 2101, 351, 10, 70, "Text",ExpressionUUID->"7b87c484-0f01-4b6a-ba7e-aebef73e3726", CellID->164632758], Cell[CellGroupData[{ Cell[79606, 2115, 7236, 182, 70, "Input",ExpressionUUID->"2d80c5f8-ed4f-40ab-8491-c266ab32f14e", CellID->8835453], Cell[86845, 2299, 809, 25, 70, "Output",ExpressionUUID->"22747360-1e80-4a5d-8b52-bc2573cf1271", CellID->140893391] }, Open ]], Cell[CellGroupData[{ Cell[87691, 2329, 7199, 181, 70, "Input",ExpressionUUID->"3252151e-50a5-4d3b-b6d6-921bd1147510", CellID->177419559], Cell[94893, 2512, 287, 8, 70, "Output",ExpressionUUID->"c26f923e-15a3-4aec-b2a4-17e26bba246e", CellID->17852035] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)