(* 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[ 43113, 1066] NotebookOptionsPosition[ 40060, 964] NotebookOutlinePosition[ 40426, 980] CellTagsIndexPosition[ 40383, 977] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{"The", " ", "BLINK", " ", "Problem"}], "Title"]], "Input", CellChangeTimes->{{3.462834324484375*^9, 3.462834328625*^9}}], Cell[BoxData[{ StyleBox[ RowBox[{"Consider", " ", "N", " ", RowBox[{"people", ".", " ", "Everyone"}], " ", "closes", " ", "their", " ", "eyes", " ", "and", " ", "randomly", " ", "chooses"}], "Section"], "\n", StyleBox[ RowBox[{ "someone", " ", "to", " ", "look", " ", "at", " ", "other", " ", "than", " ", RowBox[{"themselves", ".", "What"}], " ", "is", " ", "the", " ", "probability"}], "Section"], "\n", StyleBox[ RowBox[{ "at", " ", "least", " ", "two", " ", "people", " ", "are", " ", "looking", " ", "at", " ", "each", " ", RowBox[{"other", "?", "A"}], " ", "nice", " ", "application"}], "Section"], "\n", StyleBox[ RowBox[{ RowBox[{ "is", " ", "to", " ", "a", " ", "Doctor", " ", "Who", " ", "episode", " ", "from", " ", "2007"}], ",", " ", RowBox[{"Blink", "."}]}], "Section"]}], "Input", CellChangeTimes->{{3.46283447721875*^9, 3.462834541328125*^9}, { 3.46283613671875*^9, 3.462836142453125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hyperlink", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ TagBox[ ButtonBox[ PaneSelectorBox[{ False->"\<\"http://en.wikipedia.org/wiki/Blink_(Doctor_Who)\"\>", True-> StyleBox["\<\"http://en.wikipedia.org/wiki/Blink_(Doctor_Who)\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, BaselinePosition->Baseline, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL["http://en.wikipedia.org/wiki/Blink_(Doctor_Who)"], None}, ButtonNote->"http://en.wikipedia.org/wiki/Blink_(Doctor_Who)"], Annotation[#, "http://en.wikipedia.org/wiki/Blink_(Doctor_Who)", "Hyperlink"]& ]], "Output", CellChangeTimes->{{3.462834489828125*^9, 3.4628345188125*^9}}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ "The", " ", "following", " ", "command", " ", "is", " ", "very", " ", RowBox[{"useful", ".", " ", "It"}], " ", "takes", " ", "an", " ", "integer", " ", "n", " ", "and", " ", "writes", " ", "it", " ", "in", " ", "base", " ", RowBox[{"B", ".", " ", "It"}], " ", "then", " ", "outputs", " ", "the", " ", "digits", " ", "in", " ", "a", " ", "string"}], ",", " ", RowBox[{ "padding", " ", "on", " ", "the", " ", "left", " ", "so", " ", "that", " ", "the", " ", "string", " ", "has", " ", "a", " ", "fixed", " ", RowBox[{"length", ".", " ", "We"}], " ", RowBox[{"don", "'"}], "t", " ", "really", " ", "need", " ", "to", " ", "isolate", " ", "this", " ", "as", " ", "a", " ", "function"}], ",", " ", RowBox[{ "but", " ", "as", " ", "this", " ", "is", " ", "so", " ", "important", " ", "for", " ", "looping", " ", "on", " ", "an", " ", "arbitrary", " ", "number", " ", "of", " ", "variables"}], ",", " ", RowBox[{"it", " ", "is", " ", "worth", " ", RowBox[{"isolating", "."}]}]}], "Subsection"]], "Input", CellChangeTimes->{{3.462834930890625*^9, 3.46283496171875*^9}, { 3.462836196234375*^9, 3.46283625909375*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"stringforloop", "[", RowBox[{"number_", ",", " ", "base_", ",", " ", "totallength_"}], "]"}], " ", ":=", " ", RowBox[{"IntegerDigits", "[", RowBox[{"number", ",", "base", ",", "totallength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"stringforloop", "[", RowBox[{"1341", ",", "3", ",", "10"}], "]"}], "\[IndentingNewLine]", RowBox[{"stringforloop", "[", RowBox[{"1342", ",", "3", ",", "10"}], "]"}]}], "Input", CellChangeTimes->{{3.46283497034375*^9, 3.4628350454375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "1", ",", "1", ",", "2", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.46283503471875*^9, 3.46283504584375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "1", ",", "1", ",", "2", ",", "0", ",", "1"}], "}"}]], "Output", CellChangeTimes->{{3.46283503471875*^9, 3.46283504584375*^9}}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ "The", " ", "code", " ", "below", " ", "solves", " ", "the", " ", "Blink", " ", RowBox[{"problem", ".", " ", "I"}], " ", "have", " ", "NOT", " ", "programmed", " ", "the", " ", "efficiencies", " ", "we", " ", "discussed"}], ",", " ", RowBox[{ "such", " ", "as", " ", "1", " ", "is", " ", "matched", " ", "with", " ", "2"}], ",", " ", RowBox[{"2", " ", "with", " ", "3", " ", "et", " ", RowBox[{"cetera", ".", " ", "It"}], " ", "does", " ", "give", " ", "a", " ", "good", " ", "idea", " ", "of", " ", "how", " ", "to", " ", "handle", " ", "problems", " ", "such", " ", "as", " ", RowBox[{"these", "."}]}]}], "Section"]], "Input", CellChangeTimes->{{3.462836435359375*^9, 3.46283650015625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Here", " ", "is", " ", "how", " ", "you", " ", "create", " ", "a", " ", "program", " ", "in", " ", RowBox[{"mathematica", ".", " ", "You"}], " ", "underscore", " ", "the", " ", RowBox[{"variable", ".", " ", "The"}], " ", RowBox[{"{", "}"}], " ", "in", " ", "Module", " ", "lists", " ", "the", " ", "local", " ", RowBox[{"variables", " ", "--"}], " ", "I", " ", "never", " ", "really", " ", "bother", " ", "making", " ", "things", " ", RowBox[{"local", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"blink", "[", "n_", "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "numpossibles", " ", "is", " ", "how", " ", "many", " ", "possible", " ", "outcomes", " ", "we", " ", "have"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numpossibles", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "^", "n"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "numwork", " ", "will", " ", "be", " ", "how", " ", "many", " ", "of", " ", "these", " ", "we", " ", "have", " ", "where", " ", "two", " ", "people", " ", "are", " ", "not", " ", "looking", " ", "at", " ", "each", " ", "other"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"numwork", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Below", " ", "is", " ", "my", " ", "favorite", " ", "part", " ", "of", " ", "the", " ", RowBox[{"code", " ", "--"}], " ", "it", " ", "is", " ", "a", " ", "REALLY", " ", "efficient", " ", "way", " ", "to", " ", "loop", " ", "through", " ", "the", " ", "possible", " ", "values", " ", "of", " ", "n", " ", "random", " ", RowBox[{"variables", " ", "--"}], " ", "what", " ", "makes", " ", "it", " ", "so", " ", "nice", " ", "is", " ", "that", " ", "the", " ", "number", " ", "of", " ", "random", " ", "variables", " ", "is", " ", "itself", " ", RowBox[{"variable", "!"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"m", " ", "=", " ", "0"}], ",", " ", RowBox[{"m", " ", "\[LessEqual]", " ", RowBox[{"numpossibles", "-", "1"}]}], ",", " ", RowBox[{"m", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"as", " ", "mentioned", " ", "above"}], ",", " ", RowBox[{"the", " ", RowBox[{"IntegerDigits", "[", RowBox[{"m", ",", "B", ",", "pad"}], "]"}], " ", "takes", " ", "three", " ", RowBox[{"inputs", ".", " ", "The"}], " ", "first"}], ",", " ", "m", ",", " ", RowBox[{ RowBox[{"is", " ", "our", " ", "number"}], ";", " ", RowBox[{"the", " ", "second"}]}], ",", " ", "B", ",", " ", RowBox[{ RowBox[{"is", " ", "the", " ", "base"}], ";", " ", RowBox[{"the", " ", "third"}]}], ",", " ", RowBox[{ "pad", " ", "tells", " ", "us", " ", "how", " ", "many", " ", "entries", " ", "we", " ", "want", " ", "in", " ", "our", " ", RowBox[{"list", ".", " ", "It"}], " ", "works", " ", "as", " ", RowBox[{"follows", ".", " ", "It"}], " ", "takes", " ", "the", " ", "base", " ", "B", " ", "expansion", " ", "of", " ", "m", " ", "and", " ", "saves", " ", "that", " ", "in", " ", "a", " ", "list"}], ",", " ", RowBox[{ RowBox[{ "where", " ", "each", " ", "element", " ", "of", " ", "the", " ", "list", " ", "is", " ", "a", " ", "different", " ", RowBox[{"digit", ".", " ", "It"}], " ", "then", " ", "pads", " ", "the", " ", "list", " ", "with", " ", "zeros", " ", "in", " ", "the", " ", "beginning", " ", "so", " ", "that", " ", "it", " ", "is", " ", "a", " ", "certain", " ", RowBox[{"length", ".", " ", "If"}], " ", "m", " ", "loops", " ", "from", " ", "0", " ", "to", " ", RowBox[{"B", "^", "n"}]}], " ", "-", " ", "1"}], ",", " ", RowBox[{"then", " ", "this", " ", "has", " ", RowBox[{"{", RowBox[{"x1", ",", "...", ",", "xn"}], "}"}], " ", "loop", " ", "from", " ", RowBox[{"{", RowBox[{"0", ",", "...", ",", "0"}], "}"}], " ", "to", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"B", "-", "1"}], ",", "...", ",", RowBox[{"B", "-", "1"}]}], "}"}], "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tempdigits", " ", "=", " ", RowBox[{"IntegerDigits", "[", RowBox[{"m", ",", RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{ "note", " ", "here", " ", "we", " ", "are", " ", "using", " ", "the", " ", "base", " ", "as", " ", "n"}], "-", "1."}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "we", " ", "now", " ", "want", " ", "to", " ", "transfer", " ", "our", " ", "list", " ", "to", " ", "the", " ", RowBox[{"digits", ".", " ", "we"}], " ", "initialize", " ", "digits", " ", "to", " ", "be", " ", "an", " ", "empty", " ", "list"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"digits", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"we", " ", "now", " ", "construct", " ", "our", " ", RowBox[{"number", " ", "--"}], " ", "we", " ", RowBox[{"don", "'"}], "t", " ", "allow", " ", "i", " ", "to", " ", "look", " ", "at", " ", "i"}], ",", " ", RowBox[{ RowBox[{ "so", " ", "the", " ", "easiest", " ", "way", " ", "to", " ", "ensure", " ", "that", " ", "is", " ", "to", " ", "add", " ", "the", " ", "number", " ", "to", " ", "it", " ", "modulo", " ", "n"}], ";", " ", RowBox[{ RowBox[{ "as", " ", "the", " ", "number", " ", "is", " ", "at", " ", "most", " ", "n"}], "-", "1"}]}], ",", " ", RowBox[{"this", " ", "makes", " ", "sure", " ", "i", " ", RowBox[{"doesn", "'"}], "t", " ", "look", " ", "at", " ", RowBox[{"i", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", "n"}], ",", " ", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"newi", " ", "=", " ", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"i", "+", RowBox[{"tempdigits", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "n"}], "]"}], "+", "1"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"adds", " ", RowBox[{"b", "/", "w"}], " ", "1", " ", "and", " ", "n"}], "-", "1"}], " ", "*)"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"newi", " ", "\[Equal]", " ", "0"}], ",", " ", RowBox[{"newi", " ", "=", " ", "n"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"digits", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"digits", ",", " ", "newi"}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "we", " ", "sent", " ", "tempwork", " ", "to", " ", "1"}], ";", " ", RowBox[{ "if", " ", "it", " ", "stays", " ", "as", " ", "1", " ", "we", " ", "found", " ", "another", " ", "thing", " ", "that", " ", "works"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tempwork", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "this", " ", "is", " ", "a", " ", "simple", " ", "way", " ", "to", " ", "check", " ", "if", " ", "anyone", " ", "is", " ", "looking", " ", "at", " ", "someone", " ", "looking", " ", "back"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", "n"}], ",", " ", RowBox[{"i", "++"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"i", " ", "\[Equal]", " ", RowBox[{"digits", "[", RowBox[{"[", RowBox[{"digits", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", " ", RowBox[{"tempwork", " ", "=", " ", "0"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"numwork", " ", "=", " ", RowBox[{"numwork", " ", "+", " ", "tempwork"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "this", " ", "prints", " ", "out", " ", "the", " ", "results"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "n"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "numpossibles"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "numwork"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"numwork", " ", RowBox[{"1.0", " ", "/", " ", "numpossibles"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.462835253265625*^9, 3.462835329375*^9}, { 3.462835418765625*^9, 3.462835451875*^9}, 3.4628355081875*^9, { 3.462835569203125*^9, 3.462835569625*^9}, {3.462835652203125*^9, 3.46283590353125*^9}, {3.46283629353125*^9, 3.46283629678125*^9}, { 3.4628365175625*^9, 3.462836666796875*^9}, {3.4628367129375*^9, 3.462836836546875*^9}, {3.4628370545625*^9, 3.462837107984375*^9}, { 3.4628373615625*^9, 3.462837492203125*^9}, {3.46290074410476*^9, 3.462900845759387*^9}, 3.462900878243636*^9, {3.4629158021574535`*^9, 3.462915803079328*^9}, {3.462916084516828*^9, 3.462916090610578*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "this", " ", "prints", " ", "the", " ", "results", " ", "for", " ", "various", " ", "n"}], ",", " ", RowBox[{ "and", " ", "tells", " ", "us", " ", "how", " ", "long", " ", "it", " ", "took", " ", "to", " ", "run"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Timing", "[", RowBox[{"blink", "[", "3", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{"blink", "[", "4", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{"blink", "[", "5", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{"blink", "[", "6", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.46283587734375*^9, 3.4628359209375*^9}, { 3.462836280609375*^9, 3.462836327828125*^9}, 3.46283637415625*^9, { 3.462837496875*^9, 3.46283750946875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "3"}], SequenceForm["n = ", 3], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160919074535`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number of possibles is \"\>", "\[InvisibleSpace]", "8"}], SequenceForm["Number of possibles is ", 8], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160919074535`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number that work is \"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Number that work is ", 2], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160919074535`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Percentage that works is \"\>", "\[InvisibleSpace]", "0.25`"}], SequenceForm["Percentage that works is ", 0.25], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160919074535`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160919074535`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3869795029440866`*^-15", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{{3.462836311765625*^9, 3.46283632859375*^9}, 3.462836375046875*^9, 3.462837510203125*^9, {3.4629008579998145`*^9, 3.462900881587172*^9}, 3.462916091923078*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "4"}], SequenceForm["n = ", 4], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.462916091923078*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number of possibles is \"\>", "\[InvisibleSpace]", "81"}], SequenceForm["Number of possibles is ", 81], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160919387035`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number that work is \"\>", "\[InvisibleSpace]", "30"}], SequenceForm["Number that work is ", 30], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160919699535`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Percentage that works is \"\>", "\[InvisibleSpace]", "0.37037037037037035`"}], SequenceForm["Percentage that works is ", 0.37037037037037035`], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160920012035`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160920324535`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"0.016000000000000167`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{{3.462836311765625*^9, 3.46283632859375*^9}, 3.462836375046875*^9, 3.462837510203125*^9, {3.4629008579998145`*^9, 3.462900881587172*^9}, 3.4629160920637035`*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "5"}], SequenceForm["n = ", 5], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.462916092141828*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number of possibles is \"\>", "\[InvisibleSpace]", "1024"}], SequenceForm["Number of possibles is ", 1024], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160921574535`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number that work is \"\>", "\[InvisibleSpace]", "444"}], SequenceForm["Number that work is ", 444], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.462916092173078*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Percentage that works is \"\>", "\[InvisibleSpace]", "0.43359375`"}], SequenceForm["Percentage that works is ", 0.43359375], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.462916092173078*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160921887035`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"0.14099999999999793`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{{3.462836311765625*^9, 3.46283632859375*^9}, 3.462836375046875*^9, 3.462837510203125*^9, {3.4629008579998145`*^9, 3.462900881587172*^9}, 3.4629160921887035`*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "6"}], SequenceForm["n = ", 6], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.462916093360578*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number of possibles is \"\>", "\[InvisibleSpace]", "15625"}], SequenceForm["Number of possibles is ", 15625], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.462916093360578*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number that work is \"\>", "\[InvisibleSpace]", "7360"}], SequenceForm["Number that work is ", 7360], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.4629160933762035`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Percentage that works is \"\>", "\[InvisibleSpace]", "0.47103999999999996`"}], SequenceForm["Percentage that works is ", 0.47103999999999996`], Editable->False]], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.462916093391828*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.462835879203125*^9, 3.4628359213125*^9}, { 3.462836288703125*^9, 3.462836328578125*^9}, 3.462836375046875*^9, 3.462837510109375*^9, {3.4629008579529424`*^9, 3.462900881577407*^9}, 3.462916093391828*^9}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"1.093000000000001`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{{3.462836311765625*^9, 3.46283632859375*^9}, 3.462836375046875*^9, 3.462837510203125*^9, {3.4629008579998145`*^9, 3.462900881587172*^9}, 3.4629160934074535`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"blink", "[", "7", "]"}], "]"}]], "Input", CellChangeTimes->{{3.46283637909375*^9, 3.46283638490625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number of possibles is \"\>", "\[InvisibleSpace]", "279936"}], SequenceForm["Number of possibles is ", 279936], Editable->False]], "Print", CellChangeTimes->{3.462836404390625*^9, 3.462900956051156*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Number that work is \"\>", "\[InvisibleSpace]", "138690"}], SequenceForm["Number that work is ", 138690], Editable->False]], "Print", CellChangeTimes->{3.462836404390625*^9, 3.462900956053109*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Percentage that works is \"\>", "\[InvisibleSpace]", "0.49543467078189296`"}], SequenceForm["Percentage that works is ", 0.49543467078189296`], Editable->False]], "Print", CellChangeTimes->{3.462836404390625*^9, 3.462900956057015*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.462836404390625*^9, 3.4629009560609207`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"38.906`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{3.462836404390625*^9, 3.4629009560638504`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"stopped", " ", "the", " ", RowBox[{"evaluation", " ", "--"}], " ", "the", " ", "last", " ", "took", " ", "23", " ", "seconds"}], ";", " ", RowBox[{ "this", " ", "will", " ", "take", " ", "at", " ", "least", " ", "half", " ", "an", " ", "hour"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "see", " ", "how", " ", "important", " ", "it", " ", "is", " ", "to", " ", "code", " ", RowBox[{"efficiently", "!"}], " ", "need", " ", "to", " ", "incorporate", " ", "having", " ", "1", " ", "look", " ", "at", " ", "2", " ", "and", " ", "2", " ", "look", " ", "at", " ", "3", " ", "and", " ", "then", " ", "3", " ", "looks", " ", "at"}], "..."}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{"blink", "[", "8", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.46283782809375*^9, 3.462837911140625*^9}}], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.462837843578125*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"randomblink", "[", RowBox[{"n_", ",", "numiter_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"numwork", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", "numiter"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"digits", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"d", " ", "=", " ", "1"}], ",", " ", RowBox[{"d", " ", "\[LessEqual]", " ", "n"}], ",", " ", RowBox[{"d", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"newi", " ", "=", " ", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"newi", " ", "=", " ", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"d", " ", "+", " ", "newi"}], ",", "n"}], "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"digits", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"digits", ",", " ", "newi"}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "d", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"we", " ", "sent", " ", "tempwork", " ", "to", " ", "1"}], ";", " ", RowBox[{ "if", " ", "it", " ", "stays", " ", "as", " ", "1", " ", "we", " ", "found", " ", "another", " ", "thing", " ", "that", " ", "works"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tempwork", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "this", " ", "is", " ", "a", " ", "simple", " ", "way", " ", "to", " ", "check", " ", "if", " ", "anyone", " ", "is", " ", "looking", " ", "at", " ", "someone", " ", "looking", " ", "back"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"d", " ", "=", " ", "1"}], ",", RowBox[{"d", " ", "\[LessEqual]", " ", "n"}], ",", RowBox[{"d", "++"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"d", " ", "\[Equal]", " ", RowBox[{"digits", "[", RowBox[{"[", RowBox[{"digits", "[", RowBox[{"[", "d", "]"}], "]"}], "]"}], "]"}]}], ",", " ", RowBox[{"tempwork", " ", "=", " ", "0"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"numwork", " ", "=", " ", RowBox[{"numwork", " ", "+", " ", "tempwork"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "i", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "n", ",", " ", "\"\< and percentage that works is \>\"", ",", " ", RowBox[{"100.", " ", RowBox[{"numwork", " ", "/", " ", "numiter"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.462915547704328*^9, 3.4629156050637035`*^9}, { 3.462915731641828*^9, 3.4629158819074535`*^9}, {3.462915926173078*^9, 3.4629159756887035`*^9}, {3.462916050516828*^9, 3.4629160544074535`*^9}, 3.462916223985578*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"randomblink", "[", RowBox[{"3", ",", "100000"}], "]"}], "\[IndentingNewLine]", RowBox[{"randomblink", "[", RowBox[{"4", ",", "100000"}], "]"}], "\[IndentingNewLine]", RowBox[{"randomblink", "[", RowBox[{"5", ",", "100000"}], "]"}], "\[IndentingNewLine]", RowBox[{"randomblink", "[", RowBox[{"6", ",", "100000"}], "]"}], "\[IndentingNewLine]", RowBox[{"randomblink", "[", RowBox[{"10", ",", "100000"}], "]"}]}], "Input", CellChangeTimes->{{3.4629156090012035`*^9, 3.462915615829328*^9}, { 3.4629158857512035`*^9, 3.4629158990324535`*^9}, {3.4629159836887035`*^9, 3.4629159906574535`*^9}, {3.462916024985578*^9, 3.4629160293762035`*^9}, { 3.4629162429699535`*^9, 3.462916321516828*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" and percentage that works is \"\>", "\[InvisibleSpace]", "24.897`"}], SequenceForm["n = ", 3, " and percentage that works is ", 24.897], Editable->False]], "Print", CellChangeTimes->{{3.4629158948762035`*^9, 3.462915991423078*^9}, { 3.4629160262512035`*^9, 3.4629160590637035`*^9}, {3.4629161820949535`*^9, 3.4629161910012035`*^9}, {3.4629162310324535`*^9, 3.4629163275012035`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" and percentage that works is \"\>", "\[InvisibleSpace]", "37.224000000000004`"}], SequenceForm[ "n = ", 4, " and percentage that works is ", 37.224000000000004`], Editable->False]], "Print", CellChangeTimes->{{3.4629158948762035`*^9, 3.462915991423078*^9}, { 3.4629160262512035`*^9, 3.4629160590637035`*^9}, {3.4629161820949535`*^9, 3.4629161910012035`*^9}, {3.4629162310324535`*^9, 3.4629163329699535`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" and percentage that works is \"\>", "\[InvisibleSpace]", "43.36`"}], SequenceForm["n = ", 5, " and percentage that works is ", 43.36], Editable->False]], "Print", CellChangeTimes->{{3.4629158948762035`*^9, 3.462915991423078*^9}, { 3.4629160262512035`*^9, 3.4629160590637035`*^9}, {3.4629161820949535`*^9, 3.4629161910012035`*^9}, {3.4629162310324535`*^9, 3.4629163396262035`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" and percentage that works is \"\>", "\[InvisibleSpace]", "46.974`"}], SequenceForm["n = ", 6, " and percentage that works is ", 46.974], Editable->False]], "Print", CellChangeTimes->{{3.4629158948762035`*^9, 3.462915991423078*^9}, { 3.4629160262512035`*^9, 3.4629160590637035`*^9}, {3.4629161820949535`*^9, 3.4629161910012035`*^9}, {3.4629162310324535`*^9, 3.462916311673078*^9}, 3.4629163471262035`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" and percentage that works is \"\>", "\[InvisibleSpace]", "53.433`"}], SequenceForm["n = ", 10, " and percentage that works is ", 53.433], Editable->False]], "Print", CellChangeTimes->{{3.4629158948762035`*^9, 3.462915991423078*^9}, { 3.4629160262512035`*^9, 3.4629160590637035`*^9}, {3.4629161820949535`*^9, 3.4629161910012035`*^9}, {3.4629162310324535`*^9, 3.462916311673078*^9}, 3.462916359266828*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"randomblink", "[", RowBox[{"50", ",", "100000"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.4629165154387035`*^9, 3.462916525829328*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "50", "\[InvisibleSpace]", "\<\" and percentage that works is \"\>", "\[InvisibleSpace]", "59.18`"}], SequenceForm["n = ", 50, " and percentage that works is ", 59.18], Editable->False]], "Print", CellChangeTimes->{3.4629165851574535`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"61.014999999999986`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{3.462916521485578*^9, 3.4629165851574535`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"randomblink", "[", RowBox[{"100", ",", "100000"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.462916920016828*^9, 3.4629169201574535`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "100", "\[InvisibleSpace]", "\<\" and percentage that works is \"\>", "\[InvisibleSpace]", "59.907999999999994`"}], SequenceForm[ "n = ", 100, " and percentage that works is ", 59.907999999999994`], Editable->False]], "Print", CellChangeTimes->{3.462917038298078*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"125.31200000000001`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{3.462917038298078*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"randomblink", "[", RowBox[{"1000", ",", "10000"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.462917203485578*^9, {3.462918540985578*^9, 3.462918576673078*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"n = \"\>", "\[InvisibleSpace]", "1000", "\[InvisibleSpace]", "\<\" and percentage that works is \"\>", "\[InvisibleSpace]", "60.519999999999996`"}], SequenceForm[ "n = ", 1000, " and percentage that works is ", 60.519999999999996`], Editable->False]], "Print", CellChangeTimes->{{3.462918547016828*^9, 3.4629185687512035`*^9}, 3.4629187260324535`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"158.51599999999996`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{{3.462918539141828*^9, 3.4629185687512035`*^9}, 3.4629187260324535`*^9}] }, Open ]] }, WindowSize->{795, 750}, WindowMargins->{{18, Automatic}, {Automatic, 23}}, ShowSelection->True, 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[545, 20, 156, 3, 58, "Input"], Cell[704, 25, 974, 24, 132, "Input"], Cell[CellGroupData[{ Cell[1703, 53, 119, 2, 31, "Input"], Cell[1825, 57, 726, 18, 30, "Output"] }, Open ]], Cell[2566, 78, 1239, 23, 112, "Input"], Cell[CellGroupData[{ Cell[3830, 105, 537, 12, 72, "Input"], Cell[4370, 119, 224, 5, 30, "Output"], Cell[4597, 126, 224, 5, 30, "Output"] }, Open ]], Cell[4836, 134, 800, 17, 118, "Input"], Cell[5639, 153, 11885, 237, 952, "Input"], Cell[CellGroupData[{ Cell[17549, 394, 915, 21, 112, "Input"], Cell[CellGroupData[{ Cell[18489, 419, 382, 8, 23, "Print"], Cell[18874, 429, 420, 8, 23, "Print"], Cell[19297, 439, 414, 8, 23, "Print"], Cell[19714, 449, 431, 8, 23, "Print"], Cell[20148, 459, 273, 4, 23, "Print"] }, Open ]], Cell[20436, 466, 286, 5, 33, "Output"], Cell[CellGroupData[{ Cell[20747, 475, 380, 8, 23, "Print"], Cell[21130, 485, 422, 8, 23, "Print"], Cell[21555, 495, 416, 8, 23, "Print"], Cell[21974, 505, 466, 9, 23, "Print"], Cell[22443, 516, 273, 4, 23, "Print"] }, Open ]], Cell[22731, 523, 285, 5, 30, "Output"], Cell[CellGroupData[{ Cell[23041, 532, 380, 8, 23, "Print"], Cell[23424, 542, 426, 8, 23, "Print"], Cell[23853, 552, 416, 8, 23, "Print"], Cell[24272, 562, 445, 9, 23, "Print"], Cell[24720, 573, 273, 4, 23, "Print"] }, Open ]], Cell[25008, 580, 284, 5, 30, "Output"], Cell[CellGroupData[{ Cell[25317, 589, 380, 8, 23, "Print"], Cell[25700, 599, 426, 8, 23, "Print"], Cell[26129, 609, 420, 8, 23, "Print"], Cell[26552, 619, 464, 9, 23, "Print"], Cell[27019, 630, 271, 4, 23, "Print"] }, Open ]], Cell[27305, 637, 282, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27624, 647, 155, 3, 31, "Input"], Cell[CellGroupData[{ Cell[27804, 654, 256, 5, 23, "Print"], Cell[28063, 661, 250, 5, 23, "Print"], Cell[28316, 668, 292, 6, 23, "Print"], Cell[28611, 676, 101, 1, 23, "Print"] }, Open ]], Cell[28727, 680, 148, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28912, 688, 998, 22, 92, "Input"], Cell[29913, 712, 77, 1, 30, "Output"] }, Open ]], Cell[30005, 716, 4238, 92, 392, "Input"], Cell[CellGroupData[{ Cell[34268, 812, 740, 14, 112, "Input"], Cell[CellGroupData[{ Cell[35033, 830, 513, 9, 23, "Print"], Cell[35549, 841, 541, 10, 23, "Print"], Cell[36093, 853, 511, 9, 23, "Print"], Cell[36607, 864, 541, 10, 23, "Print"], Cell[37151, 876, 541, 10, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37741, 892, 195, 4, 31, "Input"], Cell[37939, 898, 333, 7, 23, "Print"], Cell[38275, 907, 160, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38472, 915, 196, 4, 31, "Input"], Cell[38671, 921, 363, 8, 23, "Print"], Cell[39037, 931, 136, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39210, 939, 219, 5, 31, "Input"], Cell[39432, 946, 419, 9, 23, "Print"], Cell[39854, 957, 190, 4, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)