A package for doing handy calculations with game-theory-style matrix games.

MatrixGame.wl

(* ::Package:: *)

(* A package for doing handy calculations with game-theory-style matrix games. *)


BeginPackage["MatrixGame`"]


getSaddlePoints::usage = "Get the saddle points of a matrix game m"


Begin["`Private`"]


isRowMin[i_, j_, m_] := m[[i,j]]==Min[m[[i]]]


isColMax[i_,j_,m_]:=m[[i,j]]==Max[m[[All,j]]]


getSaddlePoints[m_] := Select[Range/@Dimensions[m]//Tuples, isRowMin[#[[1]],#[[2]],m]&&isColMax[#[[1]],#[[2]],m]&]


End[]


EndPackage[]