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

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

(* CreatedBy='Wolfram 15.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[     22033,        568]
NotebookOptionsPosition[     18014,        492]
NotebookOutlinePosition[     20071,        537]
CellTagsIndexPosition[     20028,        534]
WindowTitle->IdealLatticeReduce
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {GridBox[{
      {
       ItemBox[Cell[BoxData[
         RowBox[{
          TemplateBox[{12},
           "Spacer1"], Cell[
          "WOLFRAM INSTITUTE/ PUZZLES SYMBOL", "PacletNameCell",
           TextAlignment->Center,ExpressionUUID->
           "0664fe5b-4d59-4b8f-8d4f-f2e845de98bd"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "284f67ef-057f-41cb-8560-206566904e99"],
        Background->LightDarkSwitched[
          RGBColor[0.490196, 0.576471, 0.690196]],
        ItemSize->Full], ""}
     },
     GridBoxAlignment->{"Rows" -> {{Center}}},
     GridBoxItemSize->{"Columns" -> {Full, 
         Scaled[0.02]}, "Rows" -> {{2.5}}}], Cell[TextData[{
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "See Also",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "276ea5cc-d434-4123-906b-9f4de309312b"]
         }],ExpressionUUID->"4edf0d66-6519-45e4-80bd-ffe21b2bb2e7"],
         StripOnInput->False],{
        StyleBox[
          "\"LatticeReduce\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/LatticeReduce"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"IdealLatticeThreshold\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/IdealLatticeThreshold"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "54ca26da-09c5-4a96-86f8-0b2e525792e3"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "Related Guides",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "09e1c151-99eb-4a47-b593-12458c887566"]
         }],ExpressionUUID->"a1b34ba4-ddf0-4883-a4ff-c44f17fbc48e"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "db5508ec-c47b-4266-825a-15367bccd1f3"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "URL",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "6ff75537-fad7-4747-b02e-ac24a96c7f2b"]
         }],ExpressionUUID->"dd5375fe-ebb8-439d-aee4-f884e81f6e65"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/IdealLatticeReduce\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/IdealLatticeReduce"], 
         Delimiter, "\"Copy web URL\"" :> 
         Module[{DocumentationSearch`Private`nb$}, 
           DocumentationSearch`Private`nb$ = 
            NotebookPut[
             Notebook[{
               Cell[BoxData[
                 MakeBoxes[
                  Hyperlink[
                   "http://reference.wolfram.com/language/WolframInstitute/\
Puzzles/ref/IdealLatticeReduce.html"], StandardForm]], "Input", 
                 TextClipboardType -> "PlainText"]}, Visible -> False]]; 
           SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
           FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
           NotebookClose[DocumentationSearch`Private`nb$]; Null], 
         "\"Go to web URL\"" :> 
         FrontEndExecute[{
           NotebookLocate[{
             URL[If[TrueQ[False], 
                 "http://reference.wolfram.com/system-modeler/", 
                 "http://reference.wolfram.com/language/"] <> 
               "WolframInstitute/Puzzles/ref/IdealLatticeReduce" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c9f84a59-12dc-431d-9c77-ae61720742c4"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "a18beeb6-48fd-43eb-be3b-edf36c6add7f"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"c29b30a8-51b3-4b98-bfcb-2a57dabb383f"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"6dcd13c6-7001-4d84-830e-4a9af2c87847"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "IdealLatticeReduce", "ObjectName",ExpressionUUID->
      "3764a33e-f3be-48f2-b347-3f84bd500721"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"5e3d4b76-3c0d-4db9-aa76-f1fdf027a97d"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "6fdbc0e2-9f4f-431f-9e7c-b3f7c057d151"]
    }],ExpressionUUID->"9f048c5a-594d-49f2-ab99-2e8f0b68f10a"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"6b53c1e4-ca28-4c04-92af-\
a1b0b6e3ea1b"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["IdealLatticeReduce"]], 
         "paclet:WolframInstitute/Puzzles/ref/IdealLatticeReduce", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["basis", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "8018d32d-51de-481d-855b-68ed03f0078c"],
     "\[LineSeparator]",
     "LLL-reduces the integer lattice ",
     StyleBox["basis", "TI"],
     " and gives an Association with the shortest reduced ",
     Cell[BoxData["\"\<Vector\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "778940a7-4089-4b97-8678-78d9335b8f13"],
     ", its exact ",
     Cell[BoxData["\"\<Norm\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "17063508-6d78-4ee9-989f-9ba2c6cb8e2c"],
     ", the lattice ",
     Cell[BoxData["\"\<Determinant\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b6e36025-2261-42cd-a27e-8fb9d5a73f12"],
     ", and \[LongDash] for a square basis \[LongDash] the two acceptance ",
     Cell[BoxData["\"\<...Threshold\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "269f0d90-cab5-4ff4-84ad-1bd220d29fc8"],
     " values and ",
     Cell[BoxData["\"\<Qualifies...\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "bc25786e-a3f2-43b2-97e8-14a726c871cb"],
     " booleans."
    }],ExpressionUUID->"38f8de4c-d155-41ec-ba2b-7a29da96532e"]}
  }]], "Usage",ExpressionUUID->"f847c0ff-09c9-4734-9dfc-88f6700a4f5d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[Cell[TextData[{
  Cell[BoxData[
   DynamicBox[ToBoxes[
     If[CurrentValue[
        EvaluationCell[], "CellGroupOpen"] =!= Closed, 
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], 
      Rotate[
       Style[
        Graphics[{
          Thickness[0.18], 
          RGBColor[0.8509803921568627, 0.396078431372549, 0], 
          Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
         PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
        0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
    ImageSizeCache->{
     13.600000000000001`, {-0.1685058593749993, 13.768505859375}}]],
   ExpressionUUID->"e2fb2dcf-2399-4d60-87b2-a9c35f5308c7"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"8a906c51-a6c2-460f-9933-af0beab3cf37"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "e53efcd5-9073-479e-a3ea-2fa0b5b8608c"]],ExpressionUUID->"f4b4f293-680a-\
49bc-809c-07910952bfc9"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1164451024,ExpressionUUID->"c1c87f56-f987-445b-b925-8ce576bad31d"],

Cell[TextData[{
 "The reduction is the kernel's ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["LatticeReduce"]], "paclet:ref/LatticeReduce"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cd3a193c-1dca-4d30-b511-d648f639f0c4"],
 " (LLL); this function selects the shortest reduced row and pairs it with \
the ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["IdealLatticeThreshold"]], 
    "paclet:WolframInstitute/Puzzles/ref/IdealLatticeThreshold", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0b2381c5-cd3e-49f8-a67b-4d0655fbb8ed"],
 " bounds."
}], "Notes",ExpressionUUID->"b9338e1a-947e-4761-bdd9-4926fc6c2240"],

Cell[TextData[{
 Cell[BoxData["\<\"Determinant\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "101737db-2a12-47d3-ac46-b307cd47093c"],
 " is taken from the reduced basis, which ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["LatticeReduce"]], "paclet:ref/LatticeReduce"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4b00cdd2-4336-43da-9dfd-d0e8533df479"],
 " preserves up to sign, so it is fast even when the input entries are \
hundreds of bits."
}], "Notes",ExpressionUUID->"fdae6f30-7c57-4ae8-8be6-f4e18170785b"],

Cell[TextData[{
 "Parse a challenge file into ",
 StyleBox["basis", "TI"],
 " first: keep the lines that hold exactly ",
 StyleBox["n", "TI"],
 " integers."
}], "Notes",ExpressionUUID->"8a24a20a-7c0a-45a3-ba0d-bcf50f579ec7"],

Cell["\<\
The loose Approx-SVP bound is cleared by LLL in small dimensions; the SVP \
bound generally is not.\
\>", "Notes",ExpressionUUID->"5d5970c6-9d91-47c5-9440-9c2e4637ec5d"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"789a3e86-62ea-4cdb-93f3-98c780fc5869"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[
     MatchQ[
      CurrentValue[
       EvaluationNotebook[], {
       TaggingRules, "Openers", "PrimaryExamplesSection"}, Open], 
      Alternatives[True, Open]], 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
   ImageSizeCache->{
    13.600000000000001`, {4.251494140625001, 9.348505859375}}]],
  ExpressionUUID->"073cb3fb-d929-4cc2-aebd-e5c7c537f1ad"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"0f7f98c3-67b1-4a20-999b-d5a544570cac"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "4e2f37de-662a-412f-9dd3-5ba3d1efbdc6"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->909885257,ExpressionUUID->"3d222619-ab92-42df-b48e-6dc317ff3c0b"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"d31fc12f-1711-42c5-967c-c55d0837e239"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "00d09a37-f7ac-4fa7-b954-b604445ad1f3"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"587e59ad-df66-4656-9656-18e7c577254d"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "76e92e48-d820-45f5-9c72-9abe67dd1b63"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->210464112,ExpressionUUID->"abb83fd9-5f08-4af0-8098-d7a706fe9f59"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IdealLatticeReduce", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "3", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", " ", "5"}], "}"}]}], "}"}], "]"}], 
  "[", "\"\<Norm\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"cc2a9fb2-2f4c-4e2e-91f2-e1781a255308"],

Cell[BoxData["2"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9ce915a0-0fb2-4874-b52f-e2f8e6727018"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["IdealLatticeThreshold"]], 
           "paclet:WolframInstitute/Puzzles/ref/IdealLatticeThreshold", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1f025bc1-8f5d-4722-a032-2954e87bf8e9"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["LatticeReduce"]], "paclet:ref/LatticeReduce"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "3893d46e-0b4f-42dd-ac36-6ae454647d4c"]
       }], "SeeAlso",ExpressionUUID->"8d375141-3f83-4a28-b5ca-83e555b64a69"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"36a4847d-88fd-4ddf-9ff5-\
e6136276a60d"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Search"]], 
           "paclet:WolframInstitute/Puzzles/guide/Search"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "86e25842-26b5-407e-8585-c490936bc161"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"dd76285b-cd9c-4e79-9b11-\
30657bd8a5d1"],

Cell[" ", "FooterCell",ExpressionUUID->"2057525f-3842-4401-a34a-ed9155c6db0e"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"IdealLatticeReduce",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "", "LinkTrails" -> "", 
  "ExampleCounter" -> 1, 
  "Openers" -> {
   "PrimaryExamplesSection" -> Open, "ExampleSection" -> {"0" -> Open}, 
    "AllOptsTable" -> Closed}, "NewStyles" -> True, 
  "CitationPopupData" -> $Failed, "ShowCitation" -> False, "HasOptions" -> 
  True, "RootCaptions" -> "", "HeaderCoreAreaLink" -> {}, 
  "Metadata" -> {
   "built" -> "{2026, 8, 27, 0, 11, 39.349167}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[IdealLatticeReduce, paclet : \
WolframInstitute/Puzzles/ref/IdealLatticeReduce, WolframInstitute/Puzzles \
Package Symbol][basis] LLL-reduces the integer lattice basis and gives an \
Association with the shortest reduced Vector, its exact Norm, the lattice \
Determinant, and \\[LongDash] for a square basis \\[LongDash] the two \
acceptance ...Threshold values and Qualifies... booleans.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "IdealLatticeReduce", "titlemodifier" -> "",
     "metadescription" -> "", "windowtitle" -> "IdealLatticeReduce", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/IdealLatticeReduce", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"236feb3e-2319-4dc0-9427-8774a90c9cdf"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[586, 21, 5522, 136, 70, "AnchorBarGrid",ExpressionUUID->"c29b30a8-51b3-4b98-bfcb-2a57dabb383f",
 CellID->1],
Cell[6111, 159, 107, 0, 70, "ContextNameCell",ExpressionUUID->"6dcd13c6-7001-4d84-830e-4a9af2c87847"],
Cell[CellGroupData[{
Cell[6243, 163, 561, 14, 70, "ObjectNameGrid",ExpressionUUID->"6b53c1e4-ca28-4c04-92af-a1b0b6e3ea1b"],
Cell[6807, 179, 1927, 45, 70, "Usage",ExpressionUUID->"f847c0ff-09c9-4734-9dfc-88f6700a4f5d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8771, 229, 1444, 34, 70, "NotesSection",ExpressionUUID->"c1c87f56-f987-445b-b925-8ce576bad31d",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1164451024],
Cell[10218, 265, 884, 25, 70, "Notes",ExpressionUUID->"b9338e1a-947e-4761-bdd9-4926fc6c2240"],
Cell[11105, 292, 680, 17, 70, "Notes",ExpressionUUID->"fdae6f30-7c57-4ae8-8be6-f4e18170785b"],
Cell[11788, 311, 224, 6, 70, "Notes",ExpressionUUID->"8a24a20a-7c0a-45a3-ba0d-bcf50f579ec7"],
Cell[12015, 319, 179, 3, 70, "Notes",ExpressionUUID->"5d5970c6-9d91-47c5-9440-9c2e4637ec5d"]
}, Closed]],
Cell[12209, 325, 80, 0, 70, "PageDelimiter",ExpressionUUID->"789a3e86-62ea-4cdb-93f3-98c780fc5869"],
Cell[CellGroupData[{
Cell[12314, 329, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"3d222619-ab92-42df-b48e-6dc317ff3c0b",
 CellID->909885257],
Cell[13717, 368, 216, 4, 70, "Input",ExpressionUUID->"d31fc12f-1711-42c5-967c-c55d0837e239",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13958, 376, 1235, 31, 70, "ExampleSection",ExpressionUUID->"abb83fd9-5f08-4af0-8098-d7a706fe9f59",
 CellID->210464112],
Cell[CellGroupData[{
Cell[15218, 411, 528, 13, 70, "Input",ExpressionUUID->"cc2a9fb2-2f4c-4e2e-91f2-e1781a255308"],
Cell[15749, 426, 107, 1, 70, "Output",ExpressionUUID->"9ce915a0-0fb2-4874-b52f-e2f8e6727018"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[15895, 432, 1339, 35, 70, "SeeAlsoSection",ExpressionUUID->"36a4847d-88fd-4ddf-9ff5-e6136276a60d"],
Cell[17237, 469, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"dd76285b-cd9c-4e79-9b11-30657bd8a5d1"],
Cell[17932, 490, 78, 0, 70, "FooterCell",ExpressionUUID->"2057525f-3842-4401-a34a-ed9155c6db0e"]
}
]
*)

(* End of internal cache information *)

