DiceOfDoom.nb

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

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

(* CreatedBy='Mathematica 13.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      8075,        238]
NotebookOptionsPosition[      6191,        200]
NotebookOutlinePosition[      6688,        218]
CellTagsIndexPosition[      6645,        215]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Dice of Doom", "Title",
 CellChangeTimes->{{3.912372589575534*^9, 
  3.9123725975091*^9}},ExpressionUUID->"4d01cef0-831f-422a-b78e-5309dc8d5688"],

Cell["Brian Beckman", "Text",
 CellChangeTimes->{{3.9123726014998903`*^9, 
  3.91237260552807*^9}},ExpressionUUID->"1ffd7c3c-baf6-48e8-8f54-\
ac18a7089ddf"],

Cell["Dec 2023", "Text",
 CellChangeTimes->{{3.9123726085685797`*^9, 
  3.912372610263136*^9}},ExpressionUUID->"11440e48-2360-4638-95af-\
9de9689d80b0"],

Cell[CellGroupData[{

Cell["Abstract", "Section",
 CellChangeTimes->{{3.9123726709610662`*^9, 
  3.912372672768218*^9}},ExpressionUUID->"bd15bee8-30dd-42b3-b9f2-\
69bc3f8d8115"],

Cell[TextData[{
 "From Conrad Barski\[CloseCurlyQuote]s book, ",
 StyleBox["Land of Lisp",
  FontSlant->"Italic"],
 " (https://a.co/d/51FNWZ2), starting at Chapter 15."
}], "Text",
 CellChangeTimes->{{3.912372677991404*^9, 3.91237269755049*^9}, {
  3.9123727822590733`*^9, 
  3.912372787137987*^9}},ExpressionUUID->"00725891-c07b-4728-8a69-\
132f5aa02a29"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"numPlayers", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxDice", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"boardSize", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"boardHexnum", "=", 
   RowBox[{"(", 
    RowBox[{"boardSize", "*", "boardSize"}], ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.9123727174613733`*^9, 3.912372759166388*^9}},
 CellLabel->
  "In[479]:=",ExpressionUUID->"3e98d9e3-7a02-4cfb-9644-f0b91e49f54b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "boardArray", "]"}], ";"}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"boardArray", "[", "lst_List", "]"}], ":=", "lst"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Lists", " ", "are", " ", "already", " ", "arrays", " ", "in", " ", 
    RowBox[{"Mathematica", "."}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.912372775234655*^9, 3.9123728498023443`*^9}},
 CellLabel->
  "In[483]:=",ExpressionUUID->"84dcbbd1-8705-4573-aafd-ac0001ad3714"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "genBoard", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"genBoard", "[", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RandomInteger", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"numPlayers", "-", "1"}]}], "}"}], "]"}], ",", 
      RowBox[{"RandomInteger", "[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "maxDice"}], "}"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", 
        RowBox[{"boardHexnum", "-", "1"}]}], "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.9123728551266737`*^9, 3.91237286941322*^9}, {
  3.912372918840287*^9, 3.9123729642031603`*^9}, {3.912372998028157*^9, 
  3.9123730374311943`*^9}},
 CellLabel->
  "In[485]:=",ExpressionUUID->"f4b47aef-6458-4fa2-bcd1-9ecc3b53c8ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"genBoard", "[", "]"}]], "Input",
 CellChangeTimes->{{3.9123730670351677`*^9, 3.912373069773089*^9}},
 CellLabel->
  "In[487]:=",ExpressionUUID->"5bab9221-d428-4f03-bb4a-9ae298a7a60e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.912373070073951*^9},
 CellLabel->
  "Out[487]=",ExpressionUUID->"c22c9a59-0470-4f17-b9b4-11add7462bc7"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "playerLetter", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"playerLetter", "[", "n_Integer", "]"}], ":=", 
   RowBox[{"FromCharacterCode", "[", 
    RowBox[{"97", "+", "n"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.9123730854680634`*^9, 3.912373153880479*^9}},
 CellLabel->
  "In[488]:=",ExpressionUUID->"ef1a46bb-b137-4fbf-8665-61c5074ccf24"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"playerLetter", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.9123731591640873`*^9, 3.912373164366248*^9}},
 CellLabel->
  "In[490]:=",ExpressionUUID->"61334847-84a9-4064-9450-f98b79d1a7b6"],

Cell[BoxData["\<\"b\"\>"], "Output",
 CellChangeTimes->{3.912373165026249*^9},
 CellLabel->
  "Out[490]=",ExpressionUUID->"1997ddb9-df23-4545-a8dd-c9ec71c34341"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "drawBoard", "]"}], ":="}], ";"}]], "Input",
 CellChangeTimes->{{3.912373183345883*^9, 
  3.912373199025405*^9}},ExpressionUUID->"81b78b79-9fe4-42e7-9b55-\
8bb662169bbb"],

Cell[BoxData[
 RowBox[{"HexGrid", "[", 
  RowBox[{"8", ",", "8", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\"\<a\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "\"\<b\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "\"\<b\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "\"\<b\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "\"\<c\>\""}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "6"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.912373262310211*^9, 
  3.912373263771093*^9}},ExpressionUUID->"1e5365e7-1e2a-4665-b762-\
dfd244103987"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1280, 1387},
WindowMargins->{{Automatic, 1707}, {Automatic, 0}},
Magnification:>1.5 Inherited,
FrontEndVersion->"13.3 for Mac OS X ARM (64-bit) (July 24, 2023)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"cdccaa6f-cb1e-4c20-84ac-ea82b643c7c3"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 151, 2, 144, "Title",ExpressionUUID->"4d01cef0-831f-422a-b78e-5309dc8d5688"],
Cell[734, 26, 156, 3, 52, "Text",ExpressionUUID->"1ffd7c3c-baf6-48e8-8f54-ac18a7089ddf"],
Cell[893, 31, 152, 3, 52, "Text",ExpressionUUID->"11440e48-2360-4638-95af-9de9689d80b0"],
Cell[CellGroupData[{
Cell[1070, 38, 155, 3, 104, "Section",ExpressionUUID->"bd15bee8-30dd-42b3-b9f2-69bc3f8d8115"],
Cell[1228, 43, 356, 9, 52, "Text",ExpressionUUID->"00725891-c07b-4728-8a69-132f5aa02a29"],
Cell[1587, 54, 522, 13, 157, "Input",ExpressionUUID->"3e98d9e3-7a02-4cfb-9644-f0b91e49f54b"],
Cell[2112, 69, 530, 13, 126, "Input",ExpressionUUID->"84dcbbd1-8705-4573-aafd-ac0001ad3714"],
Cell[2645, 84, 933, 26, 126, "Input",ExpressionUUID->"f4b47aef-6458-4fa2-bcd1-9ecc3b53c8ca"],
Cell[CellGroupData[{
Cell[3603, 114, 207, 4, 63, "Input",ExpressionUUID->"5bab9221-d428-4f03-bb4a-9ae298a7a60e"],
Cell[3813, 120, 414, 13, 84, "Output",ExpressionUUID->"c22c9a59-0470-4f17-b9b4-11add7462bc7"]
}, Open  ]],
Cell[4242, 136, 434, 11, 95, "Input",ExpressionUUID->"ef1a46bb-b137-4fbf-8665-61c5074ccf24"],
Cell[CellGroupData[{
Cell[4701, 151, 216, 4, 63, "Input",ExpressionUUID->"61334847-84a9-4064-9450-f98b79d1a7b6"],
Cell[4920, 157, 161, 3, 84, "Output",ExpressionUUID->"1997ddb9-df23-4545-a8dd-c9ec71c34341"]
}, Open  ]],
Cell[5096, 163, 233, 6, 63, "Input",ExpressionUUID->"81b78b79-9fe4-42e7-9b55-8bb662169bbb"],
Cell[5332, 171, 831, 25, 63, "Input",ExpressionUUID->"1e5365e7-1e2a-4665-b762-dfd244103987"]
}, Open  ]]
}, Open  ]]
}
]
*)