Corsi di Laurea

[Blackjack]

come da titolo

ricordatevi di mettere la carota nella parte superiore del pupazzo, e non sotto, sennò non sembra un naso ma qualcos'altro

File allegato

•  traccia_sm_2010_02_22.zip   134,34K   67 Download

[RumpocaZzZ]

Il quarto esercizio l'ho fatto così:

f[n_] :=

  Module[{},

   x = n;

   prod1 = Table[Product[

      x[[i, j]]

      , {i, 1, Dimensions[x][[1]]}]

     , {j, 1, Dimensions[x][[2]]}];

   minprec = Min[prod1];



   cmin = Position[prod1, minprec];

   x[[All, cmin[[1, 1]]]] += 1;

   colonna = x[[All, cmin[[1, 1]]]];

   x[[Dimensions[x][[1]], All]] = colonna;

   prod1 = Table[Product[

      x[[i, j]]

      , {i, 1, Dimensions[x][[1]]}]

     , {j, 1, Dimensions[x][[2]]}];

   min = Min[prod1];



   If[min == minprec,

    f[x],

    Print["Ciclo terminato!", MatrixForm[x]]; Return[]

    ];

   ];



n = {{4, 5, 6}, {7, 8, 9}, {10, 11, 12}};

f[n];

Il terzo :

v = {"spade", "oro", "bastoni", "coppe"};

x = 1;

index = 1;

mazzo1 = {};

mazzo2 = {};

While[index < 5,

  While[x <= 10,

   AppendTo[mazzo1, x - v[[index]]];

   AppendTo[mazzo2, x - v[[index]]];

   x++;

   ];

  index++;

  x = 1;

  ];



Cesare = {};

Cleopatra = {};



For[i = 1, i <= 5, i++,

  tmp = RandomInteger[{1, Length[mazzo1]}];

  AppendTo[Cesare, mazzo1[[tmp]]];

  mazzo1 = Delete[mazzo1, tmp];

  tmp = RandomInteger[{1, Length[mazzo1]}];

  AppendTo[Cleopatra, mazzo1[[tmp]]];

  mazzo1 = Delete[mazzo1, tmp];

  ];

Cesare

Cleopatra

flag1 = True;

flag2 = True;

While[(flag1 && flag2),

  tmp = RandomInteger[{1, Length[mazzo2]}];

  value = mazzo2[[tmp]];

  If[Length[Cesare] == 0,

   flag1 = False;

   ,

   If[Length[Cases[Cesare, value]] != 0,

     Cesare = Delete[Cesare, Position[Cesare, value]];

     ];

   ];

  

  If[Length[Cleopatra] == 0,

   flag2 = False;

   ,

   If[Length[Cases[Cleopatra, value]] != 0,

     Cleopatra = Delete[Cleopatra, Position[Cleopatra, value]];

     ];

   ];

  ];

If[flag1 == False, Print["Cesare ha vinto!"]]; If[flag2 == False, 

 Print["Cleopatra ha vinto!"]];

[Blackjack]

e questo è il mio svolgimento

File allegato

•  svolgimento_2010_02_22.zip   11,81K   53 Download