strategije1  =  
      Flatten[Table[{i, j}, {i, 0, 2}, {j, 0, 4}], 1]

svefunkcije  =  
      Flatten[Table[{i, j, k,  l,  m}, {i, 0, 4}, {j, 0, 4}, {k, 0, 
            4},  {l, 0, 4},  {m, 0, 4}],  4]

bezfiksne[{a_, b_, c_,  d_,  e_}] := 
      a ≠ 0  &&  b ≠ 1  &&  c ≠ 2  &&  
        d  ≠  3  &&  e  ≠  4

dobrefunkcije =  Select[svefunkcije,  bezfiksne]

strategije2 = 
      Flatten[Table[{i, dobrefunkcije[[j]]}, {i, 0, 2}, {j, 1, 1024}], 
        1]

a[{x1_, y_}, {x2_, f_}] := 
      Switch[x1 + x2, y, 1, f[[y + 1]], -1, _, 0]

(A = 
          Table[a[strategije1[[i]], strategije2[[j]]], {i, 1, 
              15}, {j, 1, 3072}]) // MatrixForm

Maximize[{v,  
        Sequence @@ 
          Table[ v  ≤  (∑_(i = 1)^15) 
                    A[[i,  j]] (Subscript[p, i]),  {j,  1,  
              3072} ],  (∑_(i = 1)^15) (Subscript[p, i])  ==  1,  
        Sequence @@ 
          Table[(Subscript[p, i])  ≥  0,  {i,  1,  
              15}]},  {v,   Sequence @@ 
          Table[(Subscript[p, i]),  {i,  1,  15}] }]

Minimize[{u,  
        Sequence @@ 
          Table[ u  ≥  (∑_(j = 1)^3072) 
                    A[[i,  j]] (Subscript[p, j]),  {i,  1,  
              15} ],  (∑_(j = 1)^3072) (Subscript[p, j])  ==  1,  
        Sequence @@ 
          Table[(Subscript[p, j])  ≥  0,  {j,  1,  
              3072}]},  {u,   Sequence @@ 
          Table[(Subscript[p, j]),  {j,  1,  3072}] }]

strategije1[[{3,  8,  13}]]
{(Subscript[p, 1])  ->  (1/3),  (Subscript[p, 8])  ->  (1/3),  
      (Subscript[p, 13])  ->  (1/3)}

Optimalnu strategiju prvog igraca dobivam tako da iz rezultata funkcije Maximize iscitam vjerojatosti razlicite od nule. Takodjer iscitavamo vrijednost igre koja je 0 (dakle, igra je postena). Tada je optimalna strategija prvog igraca dana sa pripadnim parovima iz skupa svih strategija prvog igraca. 
Optimalna strategija prvog igraca:
Sa vjerojatnoscu (1/3) u saku stavlja 0 novcica i govori 2
Sa vjerojatnoscu (1/3) u saku stavlja 1 novcic i govori 2
Sa vjerojatnoscu (1/3) u saku stavlja 2 novcica i govori 2

strategije2[[{1,  27,  1108,  1129,  2097,  2237,  2365,  
          2465}]]
{(Subscript[p, 1])  ->  (5/23),  (Subscript[p, 27])  ->  (5/23),  
      (Subscript[p, 1108])  ->  (1/23),  (Subscript[p, 1129])  ->  (6/23),  
      (Subscript[p, 2097])  ->  (2/23),  (Subscript[p, 2237])  ->  (1/23),  
      (Subscript[p, 2365])  ->  (1/23),  (Subscript[p, 2465])  ->  (2/23)}

Optimalnu strategiju prvog igraca dobivam tako da iz rezultata funkcije Minimize iscitam vjerojatosti razlicite od nule. Tada je optimalna strategija drugog igraca dana sa pripadnim parovima iz skupa svih strategija drugog igraca.
Napomena: odgovor {a,b,c,d,e} znaci da ako prvi igrac kaze 0, drugi mora reci a, ako prvi kaze 1, drugi kaze b, itd...
Optimalna strategija drugog igraca:
Sa vjerojatnoscu (5/23) u saku stavlja 0 novcica i ima spremne odgovore {1,0,0,0,0}
Sa vjerojatnoscu (5/23) u saku stavlja 0 novcica i ima spremne odgovore {1,0,1,2,2}
Sa vjerojatnoscu (1/23) u saku stavlja 1 novcic i ima spremne odgovore {1,2,1,0,3}
Sa vjerojatnoscu (6/23) u saku stavlja 1 novcic i ima spremne odgovore {1,2,3,2,0}
Sa vjerojatnoscu (2/23) u saku stavlja 2 novcica i ima spremne odgovore {1,0,4,0,0}
Sa vjerojatnoscu (1/23) u saku stavlja 2 novcica i ima spremne odgovore {1,3,4,4,0}
Sa vjerojatnoscu (1/23) u saku stavlja 2 novcica i ima spremne odgovore {2,0,4,4,0}
Sa vjerojatnoscu (2/23) u saku stavlja 2 novcica i ima spremne odgovore {2,3,3,0,0}