(* 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[ 80320, 1929] NotebookOptionsPosition[ 74792, 1794] NotebookOutlinePosition[ 76561, 1846] CellTagsIndexPosition[ 76518, 1843] WindowTitle->CompressWithDefinitions | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell["Compress an expression with dependent definitions:", "Text", TaggingRules->{}, CellID->162144336], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"g", "[", "x", "]"}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"2", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"compressed", "=", 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["CompressWithDefinitions", "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["CompressWithDefinitions", "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/CompressWithDefinitions"}, "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], "CompressWithDefinitions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompressWithDefinitions"], BoxID -> "CompressWithDefinitions", Selectable->False], "[", "f", "]"}]}]}], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->55271660], Cell[BoxData["\<\"1:\ eJzVksFOAjEQhleOaiRygHgyJvsAwGm9ykI8EEPAeN6STpuGbofstGF5e3etsUsM9cLFyyT95/\ 9mpp0+bXEtekmS0EMTNkeyUBYzLPfoDJ/X+\ wqIFBpvuQ6WDViRtNpjE5bMSMckFPPaguHAF07rHIQyyv7Ao64xJJeKrDfchOprp0FctWI/iK+o+\ QKrkoaN9oYWtoi7NJ1mz+lkOsnGWSE80yl0tjrdh3OOB/\ PBtAOK8INTPgfNjsA9MDgdcsWshcr4XGTYr7p3gf3mziO1f/LbgLxoZna/\ LrjSjv7oLiNdVIteaifyP+1EXngnHfVdlUCqF21fR37LJ6Fh/AE=\"\>"], "Output", TaggingRules->{}, CellLabel->"Out[1]=", CellID->287896316] }, Open ]], Cell["Definitions are restored when uncompressed:", "Text", TaggingRules->{}, CellID->621160246], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Uncompress", "[", "compressed", "]"}], "[", "5", "]"}]}], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->925107604], Cell[BoxData["11"], "Output", TaggingRules->{}, CellLabel->"Out[2]=", CellID->924163012] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->204653245], Cell[TextData[{ "Retrieve the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceFunction", "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/ResourceFunction", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellID->642513874], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->565888615], Cell[BoxData[ 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["CompressWithDefinitions", "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["CompressWithDefinitions", "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/CompressWithDefinitions"}, "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], "CompressWithDefinitions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompressWithDefinitions"], BoxID -> "CompressWithDefinitions", Selectable->False]], "Output", TaggingRules->{}, CellLabel->"Out[1]=", CellID->740842910] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1946623109], Cell[TextData[{ "Retrieve the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceObject", "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/ResourceObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellID->270273578], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->228966236], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV +gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2 s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q 1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6 pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/ vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg 9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/ xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3 6f4CgLLCWA== "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> RGBColor], AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"CompressWithDefinitions\"", "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Function\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { TagBox[ DynamicModuleBox[{ResourceSystemClient`Private`len$$ = 1}, RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Replace[ ResourceSystemClient`Private`snipDots[ "Compress an expression along with any needed definitions \ so that it can be used in another session", ResourceSystemClient`Private`len$$], Except[ Blank[String]] -> Snippet[ "Compress an expression along with any needed definitions \ so that it can be used in another session", ResourceSystemClient`Private`len$$], {0}], StandardForm]], ButtonFunction :> (ResourceSystemClient`Private`len$$ = Ceiling[ResourceSystemClient`Private`len$$ 1.5]), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], "SummaryItem"]}], DynamicModuleValues :> {}], "SummaryItem"], "\[SpanFromLeft]"}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV +gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2 s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q 1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6 pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/ vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg 9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/ xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3 6f4CgLLCWA== "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> RGBColor], AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"CompressWithDefinitions\"", "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Function\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { TagBox[ DynamicModuleBox[{ResourceSystemClient`Private`len$$ = 1}, RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Replace[ ResourceSystemClient`Private`snipDots[ "Compress an expression along with any needed definitions \ so that it can be used in another session", ResourceSystemClient`Private`len$$], Except[ Blank[String]] -> Snippet[ "Compress an expression along with any needed definitions \ so that it can be used in another session", ResourceSystemClient`Private`len$$], {0}], StandardForm]], ButtonFunction :> (ResourceSystemClient`Private`len$$ = Ceiling[ResourceSystemClient`Private`len$$ 1.5]), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], "SummaryItem"]}], DynamicModuleValues :> {}], "SummaryItem"], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Keywords: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"compress\"", "\"definitions\""}, "RowWithSeparators"], Short], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"CompressWithDefinitions\"", "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Version: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}], ""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], ResourceObject[<|{"Name" -> InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox[ "CompressWithDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox[ "CompressWithDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"1.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompressWithDefinitions"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], { "FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompressWithDefinitions"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction["CompressWithDefinitions"], BoxID -> "CompressWithDefinitions", Selectable -> False], "UUID" -> InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox[ "CompressWithDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox[ "CompressWithDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"1.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompressWithDefinitions"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], { "FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompressWithDefinitions"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction["CompressWithDefinitions"], BoxID -> "CompressWithDefinitions", Selectable -> False], "ResourceType" -> "Function", "Description" -> "Compress an expression along with any needed definitions so that it can \ be used in another session", "SymbolName" -> "FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`\ CompressWithDefinitions", "Function" -> HoldComplete[ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`\ CompressWithDefinitions], "FunctionLocation" -> None, "VerificationTests" -> HoldComplete[ VerificationTest[ Block[{ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`f, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`g, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`def, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`compressed}, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`f[ Pattern[FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`x, Blank[]]] := FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`g[ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`x] + 1; FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`g[ Pattern[FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`x, Blank[]]] := 2 FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`x; FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`def = Language`ExtendedFullDefinition[ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`f]; FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`compressed = FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`\ CompressWithDefinitions[ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`f]; Clear[FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`f, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`g]; And[Uncompress[ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`compressed] === FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`f, Language`ExtendedFullDefinition[ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`f] === FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`def]], True], VerificationTest[ Block[{ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`a, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`b, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`compressed}, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`a = 0; With[{FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`c = Context[FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`a] <> "a", FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`in = Symbol["InputForm"]}, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`b := ToExpression[ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`c, FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`in, Increment]]; FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`compressed = FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`\ CompressWithDefinitions[ Unevaluated[ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`b]]; Clear[FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`b]; Table[ Uncompress[ FunctionRepository`$682ee3c1ea304f1e8bdbb09aee6be50d`compressed], 5]], {0, 1, 2, 3, 4}]], "ShortName" -> InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox[ "CompressWithDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox[ "CompressWithDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"1.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CompressWithDefinitions"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], { "FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CompressWithDefinitions"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction["CompressWithDefinitions"], BoxID -> "CompressWithDefinitions", Selectable -> False]}|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellLabel->"Out[2]=", CellID->750307912] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Generalizations & Extensions", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->942173152], Cell["\<\ The compressed expression is an evaluation that restores definitions before \ returning the output:\ \>", "Text", TaggingRules->{}, CellID->761764001], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"g", "[", "x", "]"}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"2", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"compressed", "=", 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["CompressWithDefinitions", "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["CompressWithDefinitions", "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/CompressWithDefinitions"}, "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], "CompressWithDefinitions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompressWithDefinitions"], BoxID -> "CompressWithDefinitions", Selectable->False], "[", "f", "]"}]}], ";"}]}], "Input", TaggingRules->{}, CellLabel->"In[423]:=", CellID->27328566], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uncompress", "[", RowBox[{"compressed", ",", "HoldForm"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[427]:=", CellID->433285965], Cell[BoxData[ TagBox[ RowBox[{ RowBox[{ RowBox[{"Language`ExtendedFullDefinition", "[", "]"}], "=", RowBox[{"Language`DefinitionList", "[", RowBox[{ RowBox[{ TagBox["f", HoldForm], "\[Rule]", RowBox[{"{", RowBox[{"DownValues", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"f", "[", "x_", "]"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"g", "[", "x", "]"}], "+", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{ TagBox["g", HoldForm], "\[Rule]", RowBox[{"{", RowBox[{"DownValues", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"g", "[", "x_", "]"}], "]"}], "\[RuleDelayed]", RowBox[{"2", " ", "x"}]}], "}"}]}], "}"}]}]}], "]"}]}], ";", "f"}], HoldForm]], "Output", TaggingRules->{}, CellChangeTimes->{3.853415546495302*^9}, CellLabel->"Out[427]=", CellID->505175018] }, Open ]], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Compress", "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/Compress", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " by itself does not preserve definitions:" }], "Text", TaggingRules->{}, CellID->849145841], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "=", RowBox[{"Compress", "[", RowBox[{"Unevaluated", "[", RowBox[{"f", "[", "5", "]"}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.853415549806879*^9}, CellLabel->"In[428]:=", CellID->607899267], Cell[BoxData["\<\"1:eJxTTMoPSmNkYGAoBhFpmaxAEgAnHQL0\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{3.853415551278166*^9}, CellLabel->"Out[428]=", CellID->1396145408] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c2", "=", 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["CompressWithDefinitions", "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["CompressWithDefinitions", "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/CompressWithDefinitions"}, "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], "CompressWithDefinitions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CompressWithDefinitions"], BoxID -> "CompressWithDefinitions", Selectable->False], "[", RowBox[{"Unevaluated", "[", RowBox[{"f", "[", "5", "]"}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.853415549806879*^9}, CellLabel->"In[429]:=", CellID->1473670935], Cell[BoxData["\<\"1:eJzNUt9LwzAQ7iaC6PDHXsQnEfaXuG76MLCs4nNTc8mCl2Q0Cbb/\ va1BklomjiH4cnB33/\ fd3cfdlXrNxkmSmJs25I2xIIu5llvtFF3U2wqMEVp5yGmA5GBZ0tVu27AiijvCoVjUFhQFunSIKTCh\ hO3IRx3wOgaG5koY69XPgvraIbBRV7wIxUeNdKkr+bnpA+\ qSYDHLkLzCpu1AlTey1OhpkdbOAeYy5E/v6oWgA/MDfdqnp4CkAeoJ0/\ 6aGbEWKvWbTU8ChInjNtnTjJi/x+1XIU/1nxw/\ PM8rnQf0l00RqPZfNQmgeyTqbXBEhs4MJvCekhgd5Cb/327yg92Mqs9CghHjbyPqHR/6AUQ9KRY=\"\ \>"], "Output", TaggingRules->{}, CellChangeTimes->{3.853415552855969*^9}, CellLabel->"Out[429]=", CellID->1810234484] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}]], "Input", TaggingRules->{}, CellLabel->"In[430]:=", CellID->347720369], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uncompress", "[", "c1", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[431]:=", CellID->463876453], Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.853415557019464*^9}, CellLabel->"Out[431]=", CellID->233911745] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uncompress", "[", "c2", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[432]:=", CellID->185848643], Cell[BoxData["11"], "Output", TaggingRules->{}, CellChangeTimes->{3.8534155586473417`*^9}, CellLabel->"Out[432]=", CellID->957621912] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"CompressWithDefinitions | 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[636, 23, 168, 7, 70, "Subsection",ExpressionUUID->"4db5aae0-81a7-4b4a-a7ae-9521c6439754", CellID->904125756], Cell[807, 32, 105, 2, 70, "Text",ExpressionUUID->"bedef571-73ab-4ee0-8dad-b5c4cb1ee622", CellID->162144336], Cell[CellGroupData[{ Cell[937, 38, 7797, 197, 70, "Input",ExpressionUUID->"1b8b9a88-f153-4ce6-af2c-34ddcf9bf70b", CellID->55271660], Cell[8737, 237, 451, 9, 70, "Output",ExpressionUUID->"7dd702d5-d7ba-4599-bd57-a115845198b3", CellID->287896316] }, Open ]], Cell[9203, 249, 98, 2, 70, "Text",ExpressionUUID->"05aeb482-c0d9-408d-a7e8-7dc7d8578a8c", CellID->621160246], Cell[CellGroupData[{ Cell[9326, 255, 268, 8, 70, "Input",ExpressionUUID->"a6ac3223-ec0d-47c6-bc86-09bd45f9d451", CellID->925107604], Cell[9597, 265, 91, 3, 70, "Output",ExpressionUUID->"022eeaba-489d-4744-b9f6-21245d9f4fb1", CellID->924163012] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9737, 274, 159, 7, 70, "Subsection",ExpressionUUID->"54f69e9a-5d6c-40e4-855a-9da5446e7780", CellID->204653245], Cell[9899, 283, 623, 21, 70, "Text",ExpressionUUID->"ee347d0a-1ce4-4db9-b64f-bd30e884d262", CellID->642513874], Cell[CellGroupData[{ Cell[10547, 308, 164, 5, 70, "Input",ExpressionUUID->"dd133698-e4be-4afa-b3a6-62ab5f46cdfc", CellID->565888615], Cell[10714, 315, 6978, 180, 70, "Output",ExpressionUUID->"d89e021a-c900-4822-8e11-5ca0613a24ba", CellID->740842910] }, Open ]], Cell[CellGroupData[{ Cell[17729, 500, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"e5f6d57b-35b7-491a-80e2-948187687723", CellID->1946623109], Cell[17877, 506, 619, 21, 70, "Text",ExpressionUUID->"078defac-2e17-48f0-bf28-701a6b42e3cf", CellID->270273578], Cell[CellGroupData[{ Cell[18521, 531, 162, 5, 70, "Input",ExpressionUUID->"31fcd691-37dc-41f4-b51e-5d3e8237592d", CellID->228966236], Cell[18686, 538, 36411, 699, 70, "Output",ExpressionUUID->"02773686-e476-4810-9b59-5ce973f6e526", CellID->750307912] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[55158, 1244, 182, 7, 70, "Subsection",ExpressionUUID->"3deb06fc-9a1e-44d8-9aeb-7a200e39be7c", CellID->942173152], Cell[55343, 1253, 162, 5, 70, "Text",ExpressionUUID->"dcc611d4-7bb4-4d71-bc5c-0ec39230e765", CellID->761764001], Cell[55508, 1260, 8010, 200, 70, "Input",ExpressionUUID->"dc13382b-de76-4f6a-9eeb-fa14fbbe3ee0", CellID->27328566], Cell[CellGroupData[{ Cell[63543, 1464, 166, 5, 70, "Input",ExpressionUUID->"a5ba36e6-518a-4d5f-b75d-dc8cdf6a87f3", CellID->433285965], Cell[63712, 1471, 1039, 33, 70, "Output",ExpressionUUID->"bc13b7f3-e3eb-43cb-9c53-15324ae21db6", CellID->505175018] }, Open ]], Cell[64766, 1507, 629, 20, 70, "Text",ExpressionUUID->"7443f642-3baf-49b0-b14c-450160598554", CellID->849145841], Cell[CellGroupData[{ Cell[65420, 1531, 260, 8, 70, "Input",ExpressionUUID->"75fc8868-c008-4dc1-83e2-558890c59625", CellID->607899267], Cell[65683, 1541, 176, 4, 70, "Output",ExpressionUUID->"7d8936fd-fad0-4c03-92d2-b11ef4664f0c", CellID->1396145408] }, Open ]], Cell[CellGroupData[{ Cell[65896, 1550, 7539, 188, 70, "Input",ExpressionUUID->"b56fd06c-bab4-4e5b-8ede-6d0360fde814", CellID->1473670935], Cell[73438, 1740, 522, 11, 70, "Output",ExpressionUUID->"bb309ba3-1074-49d0-8fa6-f516e3e3e1d1", CellID->1810234484] }, Open ]], Cell[73975, 1754, 167, 6, 70, "Input",ExpressionUUID->"2d44787a-d0da-4f8c-a445-d6fe2d7feb1e", CellID->347720369], Cell[CellGroupData[{ Cell[74167, 1764, 128, 4, 70, "Input",ExpressionUUID->"4a5d7d97-474c-4e6f-9cad-3ab011af5988", CellID->463876453], Cell[74298, 1770, 161, 5, 70, "Output",ExpressionUUID->"40af954f-e19d-4946-8c50-05250189be3b", CellID->233911745] }, Open ]], Cell[CellGroupData[{ Cell[74496, 1780, 128, 4, 70, "Input",ExpressionUUID->"8e04e78a-6df9-4aae-ba46-2e64cddd8221", CellID->185848643], Cell[74627, 1786, 137, 4, 70, "Output",ExpressionUUID->"46b5dd99-61a7-4dfb-9196-c768c42d4add", CellID->957621912] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)