(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     57958,       1712]
NotebookOptionsPosition[     53005,       1553]
NotebookOutlinePosition[     53475,       1571]
CellTagsIndexPosition[     53432,       1568]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
TP 6 MATHEMATICA : ALGORITHMES CLASSIQUES
CORRIG\[CapitalEAcute]\
\>", "Subtitle",
 CellChangeTimes->{{3.4750816913125*^9, 3.47508172721875*^9}}],

Cell["\<\
1) ALGORITHME D'EUCLIDE AVEC CALCUL DES COEFFICIENTS DE B\[CapitalEAcute]ZOUT
  Version it\[EAcute]rative :\
\>", "Text",
 CellChangeTimes->{{3.46065023740625*^9, 3.46065026221875*^9}, {
   3.47248133675*^9, 3.472481342078125*^9}, {3.4724823706875*^9, 
   3.472482386421875*^9}, {3.47507553621875*^9, 3.4750755375625*^9}, 
   3.47508174978125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bezout", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"u", "=", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "a"}], "}"}]}], ",", 
      RowBox[{"v", "=", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "b"}], "}"}]}], ",", "q", ",", "t"}], 
     "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"While", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"v", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ">", "0"}], " ", ",", 
       RowBox[{
        RowBox[{"q", "=", 
         RowBox[{"Quotient", "[", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "3", "]"}], "]"}], ",", 
           RowBox[{"v", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"u", ",", "v"}], "}"}], "=", 
         RowBox[{"{", 
          RowBox[{"v", ",", 
           RowBox[{"u", "-", 
            RowBox[{"q", " ", "v"}]}]}], "}"}]}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", "\"\<=(\>\"", ",", 
       RowBox[{"u", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<)\[Times]\>\"", ",", "a", 
       ",", "\"\<+(\>\"", ",", 
       RowBox[{"u", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\"\<)\[Times]\>\"", ",", "b"}], 
      "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460649390875*^9, 3.460649584078125*^9}, {
  3.460649640484375*^9, 3.4606497274375*^9}, {3.4606497795*^9, 
  3.460649873078125*^9}, {3.460649906046875*^9, 3.460649960828125*^9}, {
  3.460650017578125*^9, 3.46065003421875*^9}, {3.460650177234375*^9, 
  3.4606501963125*^9}, {3.508088777765625*^9, 3.508088779765625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"bezout", "[", 
  RowBox[{"17", ",", "71"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"bezout", "[", 
  RowBox[{
   RowBox[{"45", " ", "7", " ", "13"}], ",", 
   RowBox[{"11", " ", "7", " ", "13"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4606497505625*^9, 3.460649757296875*^9}, {
   3.460649989953125*^9, 3.460650000078125*^9}, {3.46065010496875*^9, 
   3.4606501141875*^9}, {3.46065015790625*^9, 3.460650159296875*^9}, 
   3.46068926884375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\"=(\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "25"}], "\[InvisibleSpace]", "\<\")\[Times]\"\>", 
   "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\"+(\"\>", 
   "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\[Times]\"\>", 
   "\[InvisibleSpace]", "71"}],
  SequenceForm[1, "=(", -25, ")\[Times]", 17, "+(", 6, ")\[Times]", 71],
  Editable->False]], "Print",
 CellChangeTimes->{{3.46065000659375*^9, 3.46065003909375*^9}, {
   3.46065012165625*^9, 3.460650134234375*^9}, 3.50808878440625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "91", "\[InvisibleSpace]", "\<\"=(\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\")\[Times]\"\>", "\[InvisibleSpace]", "4095", 
   "\[InvisibleSpace]", "\<\"+(\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "4"}], "\[InvisibleSpace]", "\<\")\[Times]\"\>", 
   "\[InvisibleSpace]", "1001"}],
  SequenceForm[91, "=(", 1, ")\[Times]", 4095, "+(", -4, ")\[Times]", 1001],
  Editable->False]], "Print",
 CellChangeTimes->{{3.46065000659375*^9, 3.46065003909375*^9}, {
   3.46065012165625*^9, 3.460650134234375*^9}, 3.50808878440625*^9}]
}, Open  ]]
}, Open  ]],

Cell["\<\
Version r\[EAcute]cursive (avec affichage des interm\[EAcute]diaires) :\
\>", "Text",
 CellChangeTimes->{{3.460689142203125*^9, 3.460689148578125*^9}, {
  3.472482393359375*^9, 3.472482394*^9}, {3.475075580640625*^9, 
  3.475075597609375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"bezoutr", "[", 
    RowBox[{"u_", ",", "v_", ",", "a_", ",", "b_"}], "]"}], ":=", 
   RowBox[{"Module", "[", " ", 
    RowBox[{
     RowBox[{"{", "q", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Print", "[", 
       RowBox[{"u", ",", "v"}], "]"}], ";", 
      RowBox[{"If", " ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"v", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], " ", ",", 
        RowBox[{"Print", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", "3", "]"}], "]"}], ",", "\"\<=(\>\"", ",", 
          RowBox[{"u", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<)\[Times]\>\"", ",", "a",
           ",", "\"\<+(\>\"", ",", 
          RowBox[{"u", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", "\"\<)\[Times]\>\"", ",", 
          "b"}], "]"}], ",", 
        RowBox[{
         RowBox[{"q", "=", 
          RowBox[{"Quotient", "[", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", 
            RowBox[{"v", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";", 
         RowBox[{"bezoutr", "[", 
          RowBox[{"v", ",", 
           RowBox[{"u", "-", 
            RowBox[{"q", "*", "v"}]}], ",", "a", ",", "b"}], "]"}]}]}], 
       "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bezout", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"bezoutr", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "a"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "b"}], "}"}], ",", "a", ",", "b"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.4606504194375*^9, 3.46065045553125*^9}, {
  3.460650493609375*^9, 3.460650719359375*^9}, {3.460650772203125*^9, 
  3.460650781875*^9}, {3.460650815875*^9, 3.460650834640625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"bezout", "[", 
  RowBox[{"17", ",", "71"}], "]"}]], "Input",
 CellChangeTimes->{{3.460650733765625*^9, 3.460650741484375*^9}, 
   3.460689265265625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "17"}], "}"}], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "71"}], "}"}]}],
  SequenceForm[{1, 0, 17}, {0, 1, 71}],
  Editable->False]], "Print",
 CellChangeTimes->{3.460650742546875*^9, 3.46065078534375*^9, 
  3.460650839140625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "71"}], "}"}], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "17"}], "}"}]}],
  SequenceForm[{0, 1, 71}, {1, 0, 17}],
  Editable->False]], "Print",
 CellChangeTimes->{3.460650742546875*^9, 3.46065078534375*^9, 
  3.460650839171875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "17"}], "}"}], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "1", ",", "3"}], "}"}]}],
  SequenceForm[{1, 0, 17}, {-4, 1, 3}],
  Editable->False]], "Print",
 CellChangeTimes->{3.460650742546875*^9, 3.46065078534375*^9, 
  3.46065083921875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "1", ",", "3"}], "}"}], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"21", ",", 
     RowBox[{"-", "5"}], ",", "2"}], "}"}]}],
  SequenceForm[{-4, 1, 3}, {21, -5, 2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.460650742546875*^9, 3.46065078534375*^9, 
  3.460650839234375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"21", ",", 
     RowBox[{"-", "5"}], ",", "2"}], "}"}], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "25"}], ",", "6", ",", "1"}], "}"}]}],
  SequenceForm[{21, -5, 2}, {-25, 6, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{3.460650742546875*^9, 3.46065078534375*^9, 
  3.46065083928125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "25"}], ",", "6", ",", "1"}], "}"}], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"71", ",", 
     RowBox[{"-", "17"}], ",", "0"}], "}"}]}],
  SequenceForm[{-25, 6, 1}, {71, -17, 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.460650742546875*^9, 3.46065078534375*^9, 
  3.4606508393125*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\"=(\"\>", "\[InvisibleSpace]", 
    RowBox[{"-", "25"}], "\[InvisibleSpace]", "\<\")\[Times]\"\>", 
    "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\"+(\"\>", 
    "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\[Times]\"\>", 
    "\[InvisibleSpace]", "71"}],
   SequenceForm[1, "=(", -25, ")\[Times]", 17, "+(", 6, ")\[Times]", 71],
   Editable->False]}]], "Print",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.460650742546875*^9, 3.46065078534375*^9, 3.460650839359375*^9, {
   3.46068928021875*^9, 3.46068929096875*^9}}]
}, Open  ]]
}, Open  ]],

Cell["2) PRIMALIT\[CapitalEAcute] D' UN ENTIER", "Text",
 CellChangeTimes->{
  3.4606893859375*^9, {3.4750755450625*^9, 3.475075546375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"estpremier", "[", "n_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"k", "=", "2"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"While", " ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"n", " ", ",", "k"}], "]"}], "!=", 
         RowBox[{"0", " ", "And", " ", 
          RowBox[{"k", "^", "2"}]}], "\[LessEqual]", "n"}], " ", ",", 
        RowBox[{"k", "++"}]}], "]"}], ";", 
      RowBox[{
       RowBox[{"k", "^", "2"}], ">", "n"}]}]}], " ", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"estpremier", "[", "1234567", "]"}]}], "Input",
 CellChangeTimes->{{3.46063993346875*^9, 3.460639934359375*^9}, {
   3.46064644840625*^9, 3.46064644940625*^9}, {3.460648916484375*^9, 
   3.46064891721875*^9}, 3.4606492774375*^9, {3.460689400328125*^9, 
   3.46068950690625*^9}, {3.4606895496875*^9, 3.460689722828125*^9}, {
   3.46068994809375*^9, 3.460689963171875*^9}}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{{3.46068958159375*^9, 3.4606896306875*^9}, {
  3.460689663859375*^9, 3.4606896875*^9}, {3.460689719578125*^9, 
  3.460689723703125*^9}, {3.460689948640625*^9, 3.46068996415625*^9}}]
}, Open  ]],

Cell["\<\
Une l\[EAcute]g\[EGrave]re modification donne le plus petit diviseur premier\
\>", "Text",
 CellChangeTimes->{{3.460689819640625*^9, 3.46068991559375*^9}, {
  3.475075645125*^9, 3.475075645640625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"pluspetitdiviseurpremier", "[", "n_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"k", "=", "2"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"While", " ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"n", " ", ",", "k"}], "]"}], "!=", 
         RowBox[{"0", " ", "And", " ", 
          RowBox[{"k", "^", "2"}]}], "\[LessEqual]", "n"}], " ", ",", 
        RowBox[{"k", "++"}]}], "]"}], ";", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"k", "^", "2"}], ">", "n"}], ",", 
        RowBox[{"k", "=", "n"}]}], "]"}], ";", "k"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"pluspetitdiviseurpremier", "[", "1234567", "]"}]}], "Input",
 CellChangeTimes->{{3.460689951359375*^9, 3.4606899583125*^9}}],

Cell[BoxData["127"], "Output",
 CellChangeTimes->{{3.46068990115625*^9, 3.46068996659375*^9}}]
}, Open  ]],

Cell["3) LISTE DES PREMIERS", "Text",
 CellChangeTimes->{
  3.460690050609375*^9, {3.460690552*^9, 3.460690552375*^9}, {
   3.47248241228125*^9, 3.47248241675*^9}, {3.475075709234375*^9, 
   3.475075710234375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"listepremiers", "[", "n_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"P", "=", 
        RowBox[{"Range", "[", 
         RowBox[{"2", ",", "n"}], "]"}]}], ",", 
       RowBox[{"p", "=", "2"}], ",", 
       RowBox[{"m", "=", "n"}], ",", 
       RowBox[{"k", "=", "1"}]}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"While", " ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"p", "^", "2"}], "\[LessEqual]", "m"}], " ", ",", " ", 
        RowBox[{
         RowBox[{"p", "=", 
          RowBox[{"P", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], ";", 
         RowBox[{"m", "=", 
          RowBox[{"Max", "[", "P", "]"}]}], ";", 
         RowBox[{"P", "=", 
          RowBox[{"Complement", "[", 
           RowBox[{"P", ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"k", " ", "p"}], ",", 
              RowBox[{"{", 
               RowBox[{"k", ",", "p", ",", 
                RowBox[{"m", "/", "p"}]}], "}"}]}], "]"}]}], "]"}]}], ";", 
         RowBox[{"k", "++"}]}]}], "]"}], ";", "\n", "P"}]}], "]"}]}], ";", 
  RowBox[{"listepremiers", "[", "400", "]"}]}]], "Input",
 CellChangeTimes->{{3.4606900725625*^9, 3.460690413109375*^9}, {
  3.460690454578125*^9, 3.4606905178125*^9}, {3.48542379284375*^9, 
  3.48542381378125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", 
   "19", ",", "23", ",", "29", ",", "31", ",", "37", ",", "41", ",", "43", 
   ",", "47", ",", "53", ",", "59", ",", "61", ",", "67", ",", "71", ",", 
   "73", ",", "79", ",", "83", ",", "89", ",", "97", ",", "101", ",", "103", 
   ",", "107", ",", "109", ",", "113", ",", "127", ",", "131", ",", "137", 
   ",", "139", ",", "149", ",", "151", ",", "157", ",", "163", ",", "167", 
   ",", "173", ",", "179", ",", "181", ",", "191", ",", "193", ",", "197", 
   ",", "199", ",", "211", ",", "223", ",", "227", ",", "229", ",", "233", 
   ",", "239", ",", "241", ",", "251", ",", "257", ",", "263", ",", "269", 
   ",", "271", ",", "277", ",", "281", ",", "283", ",", "293", ",", "307", 
   ",", "311", ",", "313", ",", "317", ",", "331", ",", "337", ",", "347", 
   ",", "349", ",", "353", ",", "359", ",", "367", ",", "373", ",", "379", 
   ",", "383", ",", "389", ",", "397"}], "}"}]], "Output",
 CellChangeTimes->{{3.460690479015625*^9, 3.4606905189375*^9}, 
   3.485423815390625*^9}]
}, Open  ]],

Cell["\<\
4) D\[CapitalEAcute]COMPOSITION DANS UNE BASE

Version r\[EAcute]cursive\
\>", "Text",
 CellChangeTimes->{
  3.460690652703125*^9, {3.472481311140625*^9, 3.472481322828125*^9}, {
   3.475075720640625*^9, 3.475075726640625*^9}, {3.475127771125*^9, 
   3.475127779890625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dec", "[", 
    RowBox[{"n_", ",", "b_"}], "]"}], ":=", "\n", 
   RowBox[{"If", " ", "[", 
    RowBox[{
     RowBox[{"n", "==", "0"}], ",", 
     RowBox[{"{", "}"}], ",", " ", 
     RowBox[{"Append", "[", 
      RowBox[{
       RowBox[{"dec", "[", 
        RowBox[{
         RowBox[{"Quotient", "[", 
          RowBox[{"n", ",", "b"}], "]"}], ",", "b"}], "]"}], ",", 
       RowBox[{"Mod", "[", 
        RowBox[{"n", ",", "b"}], "]"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dec", "[", 
  RowBox[{"2010", ",", "10"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"dec", "[", 
  RowBox[{"2010", ",", "7"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"dec", "[", 
  RowBox[{"2010", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"BaseForm", "[", 
  RowBox[{"2010", ",", "2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.460690673390625*^9, 3.4606908193125*^9}, {
   3.460690901515625*^9, 3.46069098496875*^9}, {3.460691206125*^9, 
   3.460691230078125*^9}, 3.472488912140625*^9, {3.472926014140625*^9, 
   3.472926031125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.460690979375*^9, 3.46069098603125*^9}, 
   3.460691231046875*^9, 3.472926033875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5", ",", "6", ",", "0", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{{3.460690979375*^9, 3.46069098603125*^9}, 
   3.460691231046875*^9, 3.472926033875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", 
   ",", "0", ",", "1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.460690979375*^9, 3.46069098603125*^9}, 
   3.460691231046875*^9, 3.472926033890625*^9}],

Cell[BoxData[
 TagBox[
  InterpretationBox[
   SubscriptBox["\<\"11111011010\"\>", "\<\"2\"\>"],
   2010,
   Editable->False],
  BaseForm[#, 2]& ]], "Output",
 CellChangeTimes->{{3.460690979375*^9, 3.46069098603125*^9}, 
   3.460691231046875*^9, 3.472926033890625*^9}]
}, Open  ]],

Cell["\<\
5) EXPONENTIATION RAPIDE 

Version it\[EAcute]rative \
\>", "Text",
 CellChangeTimes->{{3.47248246115625*^9, 3.472482493671875*^9}, {
   3.475078564421875*^9, 3.47507856546875*^9}, {3.475081483875*^9, 
   3.475081487875*^9}, 3.475127789734375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"exporap", "[", 
    RowBox[{"a_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"p", "=", "1"}], ",", "r", ",", 
       RowBox[{"b", "=", "a"}], ",", 
       RowBox[{"m", "=", "n"}]}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"While", " ", "[", 
       RowBox[{
        RowBox[{"m", ">", "0"}], " ", ",", 
        RowBox[{
         RowBox[{"r", "=", 
          RowBox[{"Mod", "[", 
           RowBox[{"m", ",", "2"}], "]"}]}], ";", 
         RowBox[{"If", "[", " ", 
          RowBox[{
           RowBox[{"r", "!=", "0"}], " ", ",", " ", 
           RowBox[{"p", "=", 
            RowBox[{"p", " ", "b"}]}]}], " ", "]"}], ";", "\n", 
         RowBox[{"m", "=", 
          RowBox[{"Quotient", "[", 
           RowBox[{"m", ",", "2"}], "]"}]}], ";", 
         RowBox[{"b", "=", 
          RowBox[{"b", "^", "2"}]}]}]}], " ", "]"}], ";", "\n", "p"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.46069162359375*^9, 3.460691748703125*^9}, {
  3.46069200475*^9, 3.460692010546875*^9}, {3.460692059859375*^9, 
  3.4606920785625*^9}, {3.460708523671875*^9, 3.46070853203125*^9}, {
  3.47507861165625*^9, 3.475078621265625*^9}}],

Cell["\<\
6)  DIVISION EN SYST\[CapitalEGrave]ME D\[CapitalEAcute]CIMAL

Version it\[EAcute]rative\
\>", "Text",
 CellChangeTimes->{{3.460710561765625*^9, 3.460710567*^9}, {
  3.460713218296875*^9, 3.4607132236875*^9}, {3.460714056125*^9, 
  3.4607140831875*^9}, {3.4750786519375*^9, 3.475078664671875*^9}, {
  3.4750817744375*^9, 3.475081774625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"a_", ",", "b_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"l", "=", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"aa", "=", "a"}], ",", "q"}], "}"}], ",", 
     RowBox[{
      RowBox[{"Do", "[", "\n", 
       RowBox[{
        RowBox[{
         RowBox[{"q", "=", 
          RowBox[{"Quotient", "[", 
           RowBox[{"aa", ",", "b"}], "]"}]}], ";", 
         RowBox[{"AppendTo", "[", 
          RowBox[{"l", ",", "q"}], "]"}], ";", 
         RowBox[{"aa", "=", 
          RowBox[{"10", 
           RowBox[{"Mod", "[", 
            RowBox[{"aa", ",", "b"}], "]"}]}]}]}], ",", 
        RowBox[{"{", "k", "}"}]}], "]"}], ";", "l"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.46071409884375*^9, 3.46071420475*^9}, {
  3.460727980203125*^9, 3.460728084421875*^9}, {3.472926048640625*^9, 
  3.472926054390625*^9}, {3.472926351328125*^9, 3.47292635478125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"f", "[", 
  RowBox[{"2010", ",", "7", ",", "10"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"2010", "/", "7"}], ",", "12"}], "]"}], "\n"}], "Input",
 CellChangeTimes->{{3.460728102328125*^9, 3.4607281658125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "287", ",", "1", ",", "4", ",", "2", ",", "8", ",", "5", ",", "7", ",", "1",
    ",", "4", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{{3.460728139703125*^9, 3.460728166640625*^9}, 
   3.47292606303125*^9, 3.472926361875*^9}],

Cell[BoxData["287.1428571428571428571`12."], "Output",
 CellChangeTimes->{{3.460728139703125*^9, 3.460728166640625*^9}, 
   3.47292606303125*^9, 3.472926361921875*^9}]
}, Open  ]],

Cell["Version r\[EAcute]cursive", "Text",
 CellChangeTimes->{{3.460728191140625*^9, 3.4607281961875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"a_", ",", "b_", ",", "k_"}], "]"}], ":=", "\n", 
   RowBox[{"If", " ", "[", 
    RowBox[{
     RowBox[{"k", "==", "0"}], ",", 
     RowBox[{"{", "}"}], ",", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{
         RowBox[{"10", 
          RowBox[{"Mod", "[", 
           RowBox[{"a", ",", "b"}], "]"}]}], ",", "b", ",", 
         RowBox[{"k", "-", "1"}]}], "]"}], " ", ",", 
       RowBox[{"Quotient", "[", 
        RowBox[{"a", ",", "b"}], "]"}]}], "]"}]}], "]"}]}], " ", 
  ";"}]], "Input",
 CellChangeTimes->{{3.460728220453125*^9, 3.4607283365*^9}, {
  3.460728385640625*^9, 3.460728402859375*^9}, {3.472926086234375*^9, 
  3.472926125109375*^9}, {3.472926367359375*^9, 3.472926374921875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"2010", ",", "7", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.46072831846875*^9, 3.460728318953125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "287", ",", "1", ",", "4", ",", "2", ",", "8", ",", "5", ",", "7", ",", "1",
    ",", "4", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{{3.460728324015625*^9, 3.46072834109375*^9}, 
   3.46072841021875*^9, {3.472926117453125*^9, 3.47292612846875*^9}}]
}, Open  ]],

Cell["\<\
7)  EXTRACTION DE RACINE CARR\[CapitalEAcute]E EN SYST\[CapitalEGrave]ME D\
\[CapitalEAcute]CIMAL

Version it\[EAcute]rative\
\>", "Text",
 CellChangeTimes->{{3.46072859690625*^9, 3.46072860209375*^9}, {
   3.47507869225*^9, 3.475078693203125*^9}, {3.475081766390625*^9, 
   3.475081766640625*^9}, 3.475127856296875*^9, {3.475758211984375*^9, 
   3.47575821321875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"n_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"l", "=", 
        RowBox[{"{", "}"}]}], ",", "b", ",", 
       RowBox[{"r", "=", "0"}], ",", 
       RowBox[{"m", "=", "n"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "=", "1"}], ";", "\n", 
         RowBox[{"While", " ", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"20", "r"}], "+", "b"}], ")"}], "b"}], "\[LessEqual]", 
            "m"}], " ", ",", 
           RowBox[{"b", "++"}]}], "]"}], ";", 
         RowBox[{"b", "=", 
          RowBox[{"b", "-", "1"}]}], ";", "\n", 
         RowBox[{"AppendTo", "[", 
          RowBox[{"l", ",", "b"}], "]"}], ";", "\n", 
         RowBox[{"m", "=", 
          RowBox[{"100", 
           RowBox[{"(", 
            RowBox[{"m", "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"20", "r"}], "+", "b"}], ")"}], "b"}]}], ")"}]}]}], 
         ";", "\n", 
         RowBox[{"r", "=", 
          RowBox[{
           RowBox[{"10", "r"}], "+", "b"}]}]}], " ", ",", 
        RowBox[{"{", "k", "}"}]}], "]"}], ";", "l"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.460728625828125*^9, 3.460728863703125*^9}, {
  3.46072890653125*^9, 3.4607289185625*^9}, {3.47248888584375*^9, 
  3.47248888728125*^9}, {3.472926140125*^9, 3.47292614584375*^9}, {
  3.472926379875*^9, 3.4729263831875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"f", "[", 
  RowBox[{"2010", ",", "10"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", "2010", "]"}], ",", "11"}], "]"}]}], "Input",
 CellChangeTimes->{{3.46072893371875*^9, 3.4607289665*^9}, {
   3.46072900315625*^9, 3.460729029234375*^9}, 3.472488894125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "44", ",", "8", ",", "3", ",", "3", ",", "0", ",", "2", ",", "3", ",", "5", 
   ",", "4", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4607289699375*^9, {3.460729008015625*^9, 3.460729029796875*^9}, 
   3.47248889196875*^9, 3.4729261513125*^9}],

Cell[BoxData["44.8330235429197882244`11."], "Output",
 CellChangeTimes->{
  3.4607289699375*^9, {3.460729008015625*^9, 3.460729029796875*^9}, 
   3.47248889196875*^9, 3.472926151359375*^9}]
}, Open  ]],

Cell["Version r\[EAcute]cursive", "Text",
 CellChangeTimes->{{3.4607290730625*^9, 3.46072907778125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"n_", ",", "r_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Module", "[", "\n", 
    RowBox[{
     RowBox[{"{", " ", "b", "}"}], ",", 
     RowBox[{"If", "[", " ", 
      RowBox[{
       RowBox[{"k", "==", "0"}], " ", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{
        RowBox[{"b", "=", "1"}], ";", 
        RowBox[{"While", " ", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"20", "*", "r"}], "+", "b"}], ")"}], "b"}], 
           "\[LessEqual]", "n"}], " ", ",", 
          RowBox[{"b", "++"}]}], "]"}], ";", 
        RowBox[{"b", "=", 
         RowBox[{"b", "-", "1"}]}], ";", "\n", 
        RowBox[{"Prepend", "[", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{
            RowBox[{"100", 
             RowBox[{"(", 
              RowBox[{"n", "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"20", "r"}], "+", "b"}], ")"}], "b"}]}], ")"}]}], 
            ",", 
            RowBox[{
             RowBox[{"10", "*", "r"}], "+", "b"}], ",", 
            RowBox[{"k", "-", "1"}]}], "]"}], " ", ",", "b"}], "]"}]}]}], " ",
       "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", 
  RowBox[{"2", ",", "0", ",", "10"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", "2", "]"}], ",", "10"}], "]"}]}], "Input",
 CellChangeTimes->{{3.460729115125*^9, 3.4607293719375*^9}, {
  3.460821740921875*^9, 3.460821741390625*^9}, {3.472926163765625*^9, 
  3.472926191796875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "4", ",", "1", ",", "4", ",", "2", ",", "1", ",", "3", ",", "5", 
   ",", "6", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.460821745015625*^9, 3.472488871765625*^9, 
  3.47292619359375*^9}],

Cell[BoxData["1.41421356237309504880168872421`10."], "Output",
 CellChangeTimes->{3.460821745015625*^9, 3.472488871765625*^9, 
  3.472926193625*^9}]
}, Open  ]],

Cell["\<\
8) DIVISION EUCLIDIENNE DES POLYN\[CapitalOHat]MES\
\>", "Text",
 CellChangeTimes->{{3.475078717015625*^9, 3.47507881609375*^9}, {
  3.475079704015625*^9, 3.47507970565625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{
    RowBox[{"3", 
     RowBox[{"X", "^", "4"}]}], "+", "X", "+", "1"}]}], ";", 
  RowBox[{"B", "=", 
   RowBox[{
    RowBox[{"2", 
     RowBox[{"X", "^", "2"}]}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R", "=", "A"}], ";", 
  RowBox[{"Q", "=", "0"}], ";", 
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Exponent", "[", 
      RowBox[{"R", ",", "X"}], "]"}], "\[GreaterEqual]", 
     RowBox[{"Exponent", "[", 
      RowBox[{"B", ",", "X"}], "]"}]}], ",", " ", 
    RowBox[{
     RowBox[{"Q1", "=", 
      RowBox[{
       RowBox[{"Last", "[", "R", "]"}], "/", 
       RowBox[{"Last", "[", "B", "]"}]}]}], ";", 
     RowBox[{"R", "=", 
      RowBox[{
       RowBox[{"R", "-", 
        RowBox[{"Q1", " ", "B"}]}], "//", "Expand"}]}], ";", 
     RowBox[{"Q", "=", 
      RowBox[{"Q", "+", "Q1"}]}]}]}], " ", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"TraditionalForm", "[", 
  RowBox[{"A", "\[Equal]", 
   RowBox[{
    RowBox[{"B", " ", "Q"}], "+", "R"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.475078909609375*^9, 3.475079161875*^9}, {
   3.475079212890625*^9, 3.475079238421875*^9}, {3.47507933584375*^9, 
   3.4750793556875*^9}, {3.475079452421875*^9, 3.475079456765625*^9}, {
   3.475079508546875*^9, 3.475079654421875*^9}, {3.475079695359375*^9, 
   3.475079698640625*^9}, 3.47508180353125*^9, 3.47564189715625*^9, {
   3.475642014984375*^9, 3.475642034265625*^9}, {3.47565662378125*^9, 
   3.475656633765625*^9}, {3.4756567931875*^9, 3.475656805640625*^9}, {
   3.475656883765625*^9, 3.475656891484375*^9}, {3.4757583795625*^9, 
   3.475758393453125*^9}, 3.47575842646875*^9, {3.4764362986875*^9, 
   3.4764363256875*^9}, 3.47643636959375*^9, 3.4764364578125*^9, {
   3.47643672109375*^9, 3.476436744890625*^9}, 3.476555565546875*^9, {
   3.476710494953125*^9, 3.47671050115625*^9}, {3.47671053546875*^9, 
   3.476710583265625*^9}, {3.47671063578125*^9, 3.476710636453125*^9}, 
   3.476710717984375*^9, {3.476726488875*^9, 3.476726519046875*^9}, {
   3.476798808296875*^9, 3.4767989784375*^9}, {3.4767990353125*^9, 
   3.4767990375*^9}, {3.476799075015625*^9, 3.476799117203125*^9}, {
   3.476799261703125*^9, 3.476799334328125*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"3", " ", 
     SuperscriptBox["X", "4"]}], "+", "X", "+", "1"}], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"3", " ", 
         SuperscriptBox["X", "2"]}], "2"], "-", 
       FractionBox["3", "4"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["X", "2"]}], "+", "1"}], ")"}]}], "+", "X", "+", 
    FractionBox["7", "4"]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.47679903903125*^9, {3.476799076390625*^9, 3.476799118234375*^9}, 
   3.476799269953125*^9, 3.4767993041875*^9, 3.47679933709375*^9, 
   3.50529689734375*^9, 3.5052969545*^9, 3.505297498671875*^9, 
   3.50529776278125*^9}]
}, Open  ]],

Cell["\<\
Version r\[EAcute]cursive pour le reste :\
\>", "Text",
 CellChangeTimes->{{3.47672681925*^9, 3.4767268304375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"reste", "[", 
   RowBox[{"A_", ",", "B_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Exponent", "[", 
      RowBox[{"A", ",", "X"}], "]"}], "<", 
     RowBox[{"Exponent", "[", 
      RowBox[{"B", ",", "X"}], "]"}]}], ",", "A", ",", 
    RowBox[{"reste", "[", 
     RowBox[{
      RowBox[{"A", "-", 
       RowBox[{
        RowBox[{
         RowBox[{"Last", "[", "A", "]"}], "/", 
         RowBox[{"Last", "[", " ", "B", "]"}]}], "B"}]}], ",", "B"}], "]"}]}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.476725831390625*^9, 3.4767258769375*^9}, {
   3.4767259256875*^9, 3.476725975375*^9}, {3.47672608765625*^9, 
   3.4767261488125*^9}, 3.476726198125*^9, {3.476726421421875*^9, 
   3.47672647871875*^9}, {3.505297086453125*^9, 3.505297188703125*^9}, {
   3.50529723315625*^9, 3.50529725740625*^9}, {3.505297293203125*^9, 
   3.505297314125*^9}, {3.505297396140625*^9, 3.505297399296875*^9}, {
   3.5052974428125*^9, 3.505297481140625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"reste", "[", 
  RowBox[{"A", ",", "B"}], "]"}]], "Input",
 CellChangeTimes->{{3.47672627884375*^9, 3.47672628196875*^9}, 
   3.476726810359375*^9, {3.5052968861875*^9, 3.50529688853125*^9}, {
   3.505297561109375*^9, 3.505297568796875*^9}, {3.505297657046875*^9, 
   3.50529768096875*^9}, {3.50529774490625*^9, 3.505297748984375*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.505297792875*^9}]
}, Open  ]],

Cell["\<\
9) ALGORITHME DE HORNER
Version it\[EAcute]rative\
\>", "Text",
 CellChangeTimes->{{3.475080035453125*^9, 3.47508005628125*^9}, {
  3.475080176375*^9, 3.47508017696875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"horner", "[", 
   RowBox[{"a_", ",", "x_", ",", "n_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"y", "=", 
       RowBox[{"a", "[", "n", "]"}]}], ",", "k"}], "}"}], ",", 
    RowBox[{
     RowBox[{"Do", " ", "[", 
      RowBox[{
       RowBox[{"y", "=", 
        RowBox[{
         RowBox[{"x", " ", "y"}], "+", 
         RowBox[{"a", "[", 
          RowBox[{"n", "-", "k"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "n"}], "}"}]}], " ", "]"}], ";", "y"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.475079750578125*^9, 3.475079893578125*^9}, {
  3.475079951859375*^9, 3.475079980390625*^9}, {3.475081822265625*^9, 
  3.4750818254375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"horner", "[", 
  RowBox[{"a", ",", "x", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.475079911296875*^9, 3.47507993721875*^9}, {
  3.47507999084375*^9, 3.47507999959375*^9}, {3.475080269078125*^9, 
  3.47508032465625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "0", "]"}], "+", 
  RowBox[{"x", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"a", "[", "1", "]"}], "+", 
     RowBox[{"x", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "[", "2", "]"}], "+", 
        RowBox[{"x", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", "[", "3", "]"}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "[", "4", "]"}], "+", 
              RowBox[{"x", " ", 
               RowBox[{"a", "[", "5", "]"}]}]}], ")"}]}]}], ")"}]}]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.475079940296875*^9, 3.475080000515625*^9}, {
  3.47508027021875*^9, 3.475080325609375*^9}}]
}, Open  ]],

Cell["Version r\[EAcute]cursive", "Text",
 CellChangeTimes->{{3.475080093015625*^9, 3.475080169796875*^9}, {
  3.475080333765625*^9, 3.4750803348125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"hornerrecu", "[", 
   RowBox[{"a_", ",", "x_", ",", "n_", ",", "q_"}], "]"}], ":=", 
  RowBox[{"If", "[", " ", 
   RowBox[{
    RowBox[{"n", "==", "0"}], " ", ",", " ", 
    RowBox[{"a", "[", "q", "]"}], " ", ",", 
    RowBox[{
     RowBox[{"a", "[", "q", "]"}], "+", 
     RowBox[{"x", " ", 
      RowBox[{"hornerrecu", "[", 
       RowBox[{"a", ",", "x", ",", 
        RowBox[{"n", "-", "1"}], ",", 
        RowBox[{"q", "+", "1"}]}], "]"}]}]}]}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.47508034665625*^9, 3.4750804343125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hornerrecu", "[", 
  RowBox[{"a", ",", "x", ",", "5", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.47508044621875*^9, 3.475080482484375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "0", "]"}], "+", 
  RowBox[{"x", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"a", "[", "1", "]"}], "+", 
     RowBox[{"x", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "[", "2", "]"}], "+", 
        RowBox[{"x", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", "[", "3", "]"}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "[", "4", "]"}], "+", 
              RowBox[{"x", " ", 
               RowBox[{"a", "[", "5", "]"}]}]}], ")"}]}]}], ")"}]}]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.475080448390625*^9, 3.475080483109375*^9}}]
}, Open  ]],

Cell["\<\
Noter l'obligation (?) de l'ajo\[UHat]t d'une quatri\[EGrave]me variable.\
\>", "Text",
 CellChangeTimes->{{3.47508157959375*^9, 3.475081632125*^9}}],

Cell["10) ALGORITHME EGYPTIEN GLOUTON", "Text"],

Cell["Version r\[EAcute]cursive", "Text",
 CellChangeTimes->{{3.475081325109375*^9, 3.475081334703125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"glouton", "[", "x_", "]"}], ":=", 
   RowBox[{"Module", "[", " ", 
    RowBox[{
     RowBox[{"{", "n", "}"}], ",", "\n", 
     RowBox[{"If", "[", " ", 
      RowBox[{
       RowBox[{"x", "==", "0"}], " ", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{
        RowBox[{"n", "=", 
         RowBox[{"Ceiling", "[", 
          RowBox[{"1", "/", "x"}], "]"}]}], ";", 
        RowBox[{"Prepend", "[", 
         RowBox[{
          RowBox[{"glouton", "[", 
           RowBox[{"x", "-", 
            RowBox[{"1", "/", "n"}]}], "]"}], ",", 
          RowBox[{"1", "/", "n"}]}], "]"}]}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"glouton", "[", 
  RowBox[{
   RowBox[{"1", "/", "2"}], "+", 
   RowBox[{"1", "/", "7"}], "+", 
   RowBox[{"1", "/", "19"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"glouton", "[", 
  RowBox[{"4", "/", "97"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.475080575390625*^9, 3.4750807248125*^9}, {
  3.47508076340625*^9, 3.475080790609375*^9}, {3.475080880234375*^9, 
  3.4750809999375*^9}, {3.475081042921875*^9, 3.4750810450625*^9}, {
  3.47508111746875*^9, 3.475081137921875*^9}, {3.47508119653125*^9, 
  3.47508125253125*^9}, {3.47508138815625*^9, 3.47508141421875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", "2"], ",", 
   FractionBox["1", "6"], ",", 
   FractionBox["1", "35"], ",", 
   FractionBox["1", "3990"]}], "}"}]], "Output",
 CellChangeTimes->{{3.47508123328125*^9, 3.47508125334375*^9}, {
  3.4750813988125*^9, 3.4750814151875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", "25"], ",", 
   FractionBox["1", "809"], ",", 
   FractionBox["1", "980913"], ",", 
   FractionBox["1", "1924379646225"]}], "}"}]], "Output",
 CellChangeTimes->{{3.47508123328125*^9, 3.47508125334375*^9}, {
  3.4750813988125*^9, 3.475081415234375*^9}}]
}, Open  ]],

Cell["\<\
On remarque que l'algorithme glouton ne donne pas forc\[EAcute]ment la \
solution ayant le moins de fractions !\
\>", "Text",
 CellChangeTimes->{{3.4750812621875*^9, 3.47508129478125*^9}, {
  3.47513878159375*^9, 3.475138809921875*^9}}],

Cell["\<\
11) ALGORITHMES DE TRI

a) par \[EAcute]changes\
\>", "Text",
 CellChangeTimes->{{3.475128276046875*^9, 3.4751282875*^9}, {
  3.47512895096875*^9, 3.475128967859375*^9}, {3.47512900175*^9, 
  3.475129007703125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"echange", "[", 
    RowBox[{"L_", ",", "i_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"M", "=", "L"}], "}"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"M", "[", 
          RowBox[{"[", "j", "]"}], "]"}], ",", 
         RowBox[{"M", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"L", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"L", "[", 
          RowBox[{"[", "j", "]"}], "]"}]}], "}"}]}], ";", "M"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tri1", "[", "L_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{"i", ",", "j", ",", 
      RowBox[{"M", "=", "L"}], ",", 
      RowBox[{"n", "=", 
       RowBox[{"Length", "[", "L", "]"}]}]}], "}"}], ",", " ", 
    RowBox[{
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", " ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"M", "[", 
           RowBox[{"[", "j", "]"}], "]"}], "<", 
          RowBox[{"M", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], " ", ",", " ", 
         RowBox[{"M", "=", 
          RowBox[{"echange", "[", 
           RowBox[{"M", ",", "i", ",", "j"}], "]"}]}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", " ", ",", " ", 
         RowBox[{"n", "-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", 
         RowBox[{"i", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ";", "M"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.475128347796875*^9, 3.4751284473125*^9}, {
   3.475128591203125*^9, 3.47512891328125*^9}, 3.475128980421875*^9, 
   3.475138702015625*^9, {3.475150743734375*^9, 3.475150745046875*^9}}],

Cell["b) par insertion", "Text",
 CellChangeTimes->{{3.4751415523125*^9, 3.475141557*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"insertion", "[", 
   RowBox[{"x_", ",", "L_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k", "=", "1"}], "}"}], ",", 
    RowBox[{
     RowBox[{"While", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"k", "\[LessEqual]", 
         RowBox[{"Length", "[", "L", "]"}]}], " ", "&&", 
        RowBox[{"x", ">", 
         RowBox[{"L", "[", 
          RowBox[{"[", "k", "]"}], " ", "]"}]}]}], " ", ",", 
       RowBox[{"k", "++"}]}], "]"}], ";", 
     RowBox[{"Insert", "[", 
      RowBox[{"L", ",", "x", ",", "k"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tri2", "[", "L_", "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "L", "]"}], "\[Equal]", "1"}], ",", "L", ",", 
     RowBox[{"insertion", "[", 
      RowBox[{
       RowBox[{"L", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"tri2", "[", 
        RowBox[{"Delete", "[", 
         RowBox[{"L", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.460640049390625*^9, 3.460640070734375*^9}, {
   3.460640102375*^9, 3.4606401091875*^9}, {3.46262023528125*^9, 
   3.46262023559375*^9}, {3.462620358859375*^9, 3.462620391109375*^9}, {
   3.462620429*^9, 3.462620453375*^9}, {3.46262066303125*^9, 
   3.462620670296875*^9}, {3.46262074003125*^9, 3.462620759640625*^9}, {
   3.462620794859375*^9, 3.462620822125*^9}, {3.4626208724375*^9, 
   3.46262087565625*^9}, {3.462620963296875*^9, 3.462620966734375*^9}, {
   3.4626212009375*^9, 3.462621205109375*^9}, {3.462622187390625*^9, 
   3.462622188609375*^9}, {3.462622251390625*^9, 3.462622331328125*^9}, {
   3.46262237809375*^9, 3.462622380640625*^9}, {3.462622531046875*^9, 
   3.46262256859375*^9}, {3.46262261296875*^9, 3.46262264209375*^9}, {
   3.462622684453125*^9, 3.46262268475*^9}, {3.462622759078125*^9, 
   3.462622759578125*^9}, 3.462623107390625*^9, {3.46262423515625*^9, 
   3.462624241609375*^9}, {3.462624282640625*^9, 3.462624283109375*^9}, {
   3.462624334640625*^9, 3.462624408234375*^9}, {3.475141590515625*^9, 
   3.4751416168125*^9}}],

Cell["\<\
c) par recherche du minimum (id\[EAcute]e de Nicolas Polidano, sup 2009) ; \
utilisation de la fonction Min de mathematica.\
\>", "Text",
 CellChangeTimes->{{3.475141630625*^9, 3.475141632078125*^9}, {
  3.475141678875*^9, 3.47514172196875*^9}, {3.47514230184375*^9, 
  3.4751423195*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"rangdumin", "[", "L_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"k", "=", "1"}], ",", 
      RowBox[{"x", "=", 
       RowBox[{"Min", "[", "L", "]"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"While", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"L", "[", 
         RowBox[{"[", "k", "]"}], "]"}], ">", "x"}], " ", ",", 
       RowBox[{"k", "++"}]}], "]"}], ";", "k"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tri3", "[", "L_", "]"}], ":=", 
  RowBox[{"If", " ", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "L", "]"}], "==", "1"}], ",", " ", "L", " ", ",", 
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{"tri3", "[", 
       RowBox[{"Delete", "[", 
        RowBox[{"L", ",", 
         RowBox[{"rangdumin", "[", "L", "]"}]}], "]"}], "]"}], " ", ",", 
      RowBox[{"Min", "[", "L", "]"}]}], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.4751417440625*^9, 3.475141780328125*^9}, {
   3.47514184090625*^9, 3.475142272765625*^9}, 3.47514233771875*^9}],

Cell["d) par fusion", "Text",
 CellChangeTimes->{{3.475149167875*^9, 3.475149174046875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fusion", "[", 
   RowBox[{"L_", ",", "M_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"n1", "=", 
       RowBox[{"Length", "[", "L", "]"}]}], ",", 
      RowBox[{"n2", "=", 
       RowBox[{"Length", "[", "M", "]"}]}], ",", 
      RowBox[{"i", "=", "1"}], ",", 
      RowBox[{"j", "=", "1"}], ",", 
      RowBox[{"N", "=", 
       RowBox[{"{", "}"}]}]}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"While", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"i", "\[LessEqual]", "n1"}], "&&", " ", 
        RowBox[{"j", "\[LessEqual]", "n2"}]}], " ", ",", 
       RowBox[{"If", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"L", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ">", 
          RowBox[{"M", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
         RowBox[{
          RowBox[{"N", "=", 
           RowBox[{"Append", "[", 
            RowBox[{"N", ",", 
             RowBox[{"M", "[", 
              RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", 
          RowBox[{"j", "++"}]}], ",", 
         RowBox[{
          RowBox[{"N", "=", 
           RowBox[{"Append", "[", 
            RowBox[{"N", ",", 
             RowBox[{"L", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
          RowBox[{"i", "++"}]}]}], "]"}]}], "]"}], ";", 
     RowBox[{"Join", "[", 
      RowBox[{"N", ",", 
       RowBox[{"Drop", "[", 
        RowBox[{"L", ",", 
         RowBox[{"i", "-", "1"}]}], "]"}], ",", 
       RowBox[{"Drop", "[", 
        RowBox[{"M", ",", 
         RowBox[{"j", "-", "1"}]}], "]"}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.475145974234375*^9, 3.4751463895*^9}, {
  3.475146659734375*^9, 3.475146660203125*^9}, {3.475146722390625*^9, 
  3.47514672284375*^9}, {3.47514678246875*^9, 3.475146783671875*^9}, {
  3.47514684534375*^9, 3.475146845875*^9}, {3.475146957921875*^9, 
  3.475146968*^9}, {3.47514701096875*^9, 3.47514704446875*^9}, {
  3.475147081984375*^9, 3.475147113734375*^9}, {3.47514911296875*^9, 
  3.47514912275*^9}, {3.475149398359375*^9, 3.475149446484375*^9}, {
  3.475149488296875*^9, 3.475149492234375*^9}, {3.47514959353125*^9, 
  3.475149594484375*^9}, {3.475149633359375*^9, 3.47514965109375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fusion", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4751465366875*^9, 3.47514656303125*^9}, 
   3.475149134421875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "4", ",", "5", ",", "5", ",", "6"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.475149434890625*^9, 3.475149448828125*^9}, 
   3.47514949471875*^9, 3.475149597484375*^9, 3.47514965375*^9, 
   3.475150163734375*^9, 3.47515063940625*^9, 3.475150757921875*^9, 
   3.475150844515625*^9}]
}, Open  ]],

Cell["fusionne deux listes croissantes en une liste croissante.", "Text",
 CellChangeTimes->{{3.47514937315625*^9, 3.475149373859375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tri4", "[", "L_", "]"}], ":=", 
  RowBox[{"Module", "[", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n", "=", 
       RowBox[{"Length", "[", "L", "]"}]}], ",", "m"}], "}"}], ",", 
    RowBox[{
     RowBox[{"m", "=", 
      RowBox[{"Quotient", "[", 
       RowBox[{"n", ",", "2"}], "]"}]}], ";", 
     RowBox[{"If", " ", "[", 
      RowBox[{
       RowBox[{"n", "==", "1"}], " ", ",", "L", ",", 
       RowBox[{"fusion", "[", 
        RowBox[{
         RowBox[{"tri4", "[", 
          RowBox[{"Take", "[", 
           RowBox[{"L", ",", "m"}], "]"}], "]"}], ",", 
         RowBox[{"tri4", "[", 
          RowBox[{"Drop", "[", 
           RowBox[{"L", ",", "m"}], "]"}], "]"}]}], "]"}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.475149692296875*^9, 3.475149832515625*^9}, {
  3.47514988884375*^9, 3.475149903984375*^9}, {3.47514998421875*^9, 
  3.47515004603125*^9}, {3.475150080984375*^9, 3.475150096140625*^9}, {
  3.475150218921875*^9, 3.4751502495625*^9}, {3.475150305859375*^9, 
  3.47515030609375*^9}, {3.475150346375*^9, 3.475150349875*^9}, {
  3.475150479765625*^9, 3.475150487265625*^9}, {3.47515069046875*^9, 
  3.475150703265625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Mod", "[", 
      RowBox[{
       RowBox[{"3", "^", "i"}], ",", "10000"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "100"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"tri1", "[", "L", "]"}], ";"}], "]"}]}], "Input",
 CellChangeTimes->{{3.475142476796875*^9, 3.475142648921875*^9}, {
   3.475142685375*^9, 3.475142685609375*^9}, {3.475142732578125*^9, 
   3.475142775046875*^9}, {3.47514334825*^9, 3.47514334925*^9}, {
   3.475143381625*^9, 3.475143382171875*^9}, {3.475143418234375*^9, 
   3.47514348065625*^9}, 3.475143566890625*^9, {3.475143613265625*^9, 
   3.4751436688125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.13999999999999999`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.47515017259375*^9, 3.475150233078125*^9, 3.47515030928125*^9, 
   3.475150764390625*^9, 3.475150810546875*^9, {3.475150848875*^9, 
   3.4751508698125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"tri2", "[", "L", "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.475143464828125*^9, 3.475143491265625*^9}, {
   3.47514363496875*^9, 3.47514363559375*^9}, 3.475143672625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.031000000000000014`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.475143487421875*^9, 3.475143494796875*^9}, {
   3.475143571484375*^9, 3.475143582296875*^9}, {3.475143653078125*^9, 
   3.4751436730625*^9}, 3.475150121859375*^9, 3.475150769828125*^9, {
   3.47515080153125*^9, 3.475150815203125*^9}, 3.4751508733125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"tri3", "[", "L", "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.47514347046875*^9, 3.475143497640625*^9}, {
   3.47514363903125*^9, 3.475143640890625*^9}, 3.4751436755625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.015999999999999986`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.47514349834375*^9, 3.47514357471875*^9, {3.475143657953125*^9, 
   3.475143676359375*^9}, 3.47515012346875*^9, 3.475150772015625*^9, {
   3.475150804796875*^9, 3.475150817828125*^9}, 3.475150875734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"tri4", "[", "L", "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.47514347046875*^9, 3.475143497640625*^9}, {
   3.47514363903125*^9, 3.475143640890625*^9}, 3.4751436755625*^9, {
   3.475150111296875*^9, 3.47515011184375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.030999999999999958`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.47514349834375*^9, 3.47514357471875*^9, {3.475143657953125*^9, 
   3.475143676359375*^9}, 3.47515012509375*^9, {3.47515077421875*^9, 
   3.47515082025*^9}, 3.475150879140625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"Sort", "[", "L", "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.47514364384375*^9, 3.4751436445*^9}, 
   3.475143679140625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.174178364069192`*^-17", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.47514350184375*^9, {3.475143560171875*^9, 3.475143595*^9}, {
   3.475143663125*^9, 3.4751436795*^9}, 3.475150128171875*^9, 
   3.475150781265625*^9, 3.47515082378125*^9, 3.475150882421875*^9}]
}, Open  ]],

Cell["\<\
CONCLUSION : tri de mathematica > tri par fusion > tri par minimum > tri par \
insertion > tri par \[EAcute]changes.\
\>", "Text",
 CellChangeTimes->{{3.475143741296875*^9, 3.47514374403125*^9}}]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1352, 659},
WindowMargins->{{0, Automatic}, {0, Automatic}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 155, 4, 117, "Subtitle"],
Cell[725, 28, 357, 7, 66, "Text"],
Cell[1085, 37, 1870, 51, 98, "Input"],
Cell[CellGroupData[{
Cell[2980, 92, 472, 10, 71, "Input"],
Cell[CellGroupData[{
Cell[3477, 106, 579, 10, 32, "Print"],
Cell[4059, 118, 590, 11, 32, "Print"]
}, Open  ]]
}, Open  ]],
Cell[4676, 133, 253, 5, 41, "Text"],
Cell[4932, 140, 1906, 51, 125, "Input"],
Cell[CellGroupData[{
Cell[6863, 195, 176, 4, 43, "Input"],
Cell[CellGroupData[{
Cell[7064, 203, 354, 10, 32, "Print"],
Cell[7421, 215, 354, 10, 32, "Print"],
Cell[7778, 227, 373, 11, 32, "Print"],
Cell[8154, 240, 396, 12, 32, "Print"],
Cell[8553, 254, 397, 12, 32, "Print"],
Cell[8953, 268, 398, 12, 32, "Print"],
Cell[9354, 282, 674, 14, 58, "Print"]
}, Open  ]]
}, Open  ]],
Cell[10055, 300, 140, 2, 41, "Text"],
Cell[CellGroupData[{
Cell[10220, 306, 1011, 25, 98, "Input"],
Cell[11234, 333, 233, 3, 42, "Output"]
}, Open  ]],
Cell[11482, 339, 211, 4, 41, "Text"],
Cell[CellGroupData[{
Cell[11718, 347, 878, 24, 98, "Input"],
Cell[12599, 373, 94, 1, 42, "Output"]
}, Open  ]],
Cell[12708, 377, 214, 4, 41, "Text"],
Cell[CellGroupData[{
Cell[12947, 385, 1396, 38, 125, "Input"],
Cell[14346, 425, 1101, 17, 118, "Output"]
}, Open  ]],
Cell[15462, 445, 284, 8, 90, "Text"],
Cell[CellGroupData[{
Cell[15771, 457, 1091, 29, 179, "Input"],
Cell[16865, 488, 200, 4, 42, "Output"],
Cell[17068, 494, 200, 4, 42, "Output"],
Cell[17271, 500, 280, 6, 42, "Output"],
Cell[17554, 508, 268, 8, 42, "Output"]
}, Open  ]],
Cell[17837, 519, 257, 7, 90, "Text"],
Cell[18097, 528, 1258, 34, 125, "Input"],
Cell[19358, 564, 351, 8, 90, "Text"],
Cell[19712, 574, 1016, 29, 71, "Input"],
Cell[CellGroupData[{
Cell[20753, 607, 269, 6, 98, "Input"],
Cell[21025, 615, 272, 6, 42, "Output"],
Cell[21300, 623, 167, 2, 42, "Output"]
}, Open  ]],
Cell[21482, 628, 105, 1, 41, "Text"],
Cell[21590, 631, 808, 22, 71, "Input"],
Cell[CellGroupData[{
Cell[22423, 657, 156, 3, 43, "Input"],
Cell[22582, 662, 297, 6, 42, "Output"]
}, Open  ]],
Cell[22894, 671, 379, 9, 90, "Text"],
Cell[23276, 682, 1638, 48, 152, "Input"],
Cell[CellGroupData[{
Cell[24939, 734, 325, 7, 71, "Input"],
Cell[25267, 743, 295, 7, 42, "Output"],
Cell[25565, 752, 189, 3, 42, "Output"]
}, Open  ]],
Cell[25769, 758, 104, 1, 41, "Text"],
Cell[CellGroupData[{
Cell[25898, 763, 1673, 48, 152, "Input"],
Cell[27574, 813, 248, 6, 42, "Output"],
Cell[27825, 821, 148, 2, 42, "Output"]
}, Open  ]],
Cell[27988, 826, 187, 4, 41, "Text"],
Cell[CellGroupData[{
Cell[28200, 834, 2248, 52, 98, "Input"],
Cell[30451, 888, 780, 23, 71, "Output"]
}, Open  ]],
Cell[31246, 914, 125, 3, 41, "Text"],
Cell[31374, 919, 1009, 25, 43, "Input"],
Cell[CellGroupData[{
Cell[32408, 948, 358, 6, 43, "Input"],
Cell[32769, 956, 74, 1, 42, "Output"]
}, Open  ]],
Cell[32858, 960, 183, 5, 66, "Text"],
Cell[33044, 967, 763, 23, 43, "Input"],
Cell[CellGroupData[{
Cell[33832, 994, 252, 5, 43, "Input"],
Cell[34087, 1001, 760, 23, 42, "Output"]
}, Open  ]],
Cell[34862, 1027, 154, 2, 41, "Text"],
Cell[35019, 1031, 571, 15, 43, "Input"],
Cell[CellGroupData[{
Cell[35615, 1050, 171, 3, 43, "Input"],
Cell[35789, 1055, 712, 22, 42, "Output"]
}, Open  ]],
Cell[36516, 1080, 159, 3, 41, "Text"],
Cell[36678, 1085, 47, 0, 41, "Text"],
Cell[36728, 1087, 107, 1, 41, "Text"],
Cell[CellGroupData[{
Cell[36860, 1092, 1290, 33, 152, "Input"],
Cell[38153, 1127, 294, 8, 62, "Output"],
Cell[38450, 1137, 312, 8, 62, "Output"]
}, Open  ]],
Cell[38777, 1148, 246, 5, 41, "Text"],
Cell[39026, 1155, 225, 7, 90, "Text"],
Cell[39254, 1164, 1869, 55, 98, "Input"],
Cell[41126, 1221, 90, 1, 41, "Text"],
Cell[41219, 1224, 2184, 51, 71, "Input"],
Cell[43406, 1277, 298, 6, 41, "Text"],
Cell[43707, 1285, 1111, 32, 71, "Input"],
Cell[44821, 1319, 92, 1, 41, "Text"],
Cell[44916, 1322, 2312, 59, 98, "Input"],
Cell[CellGroupData[{
Cell[47253, 1385, 289, 8, 43, "Input"],
Cell[47545, 1395, 342, 7, 42, "Output"]
}, Open  ]],
Cell[47902, 1405, 138, 1, 41, "Text"],
Cell[48043, 1408, 1214, 31, 71, "Input"],
Cell[CellGroupData[{
Cell[49282, 1443, 764, 19, 71, "Input"],
Cell[50049, 1464, 275, 6, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50361, 1475, 242, 5, 43, "Input"],
Cell[50606, 1482, 373, 6, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51016, 1493, 243, 5, 43, "Input"],
Cell[51262, 1500, 326, 6, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51625, 1511, 292, 6, 43, "Input"],
Cell[51920, 1519, 299, 6, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52256, 1530, 195, 5, 43, "Input"],
Cell[52454, 1537, 315, 6, 48, "Output"]
}, Open  ]],
Cell[52784, 1546, 205, 4, 41, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)