1 carta

2 cartas

3 cartas

4 cartas

Ver pares

Medias

Pares NO

Pares SÍ

Duples

A = (0, -1)
lista1 = Sequence(n, n, 1, 40)
c1 = RandomElement(lista1)
lista2 = KeepIf(x ≠ c1, lista1)
c2 = RandomElement(lista2)
lista3 = KeepIf(x ≠ c2, lista2)
c3 = RandomElement(lista3)
lista4 = KeepIf(x ≠ c3, lista3)
B = (-1, -1)
C = (1, -1)
D = (-2, -1)
E = (2, -1)
F = (-3, -1)
carta: 4
c4 = RandomElement(lista4)
P1 = If(carta ≟ 1, A, If[carta ≟ 2, B, If[carta ≟ 3, D, F]])
P2 = If(carta ≟ 2, C, If[carta ≟ 3, A, B])
a = false
listarestos: {Mod[c1, 10], Mod[c2, 10], Mod[c3, 10], Mod[c4, 10]}
listaimagenes: {bastos01A, bastos02A, bastos03A, bastos04A, bastos05A, bastos06A, bastos07A, bastos08A, bastos09A, bastos10A, copas01A, copas02A, copas03A, copas04A, copas05A, copas06A, copas07A, copas08A, copas09A, copas10A, espadas01A, espadas02A, espadas03A, espadas04A, espadas05A, espadas06A, espadas07A, espadas08A, espadas09A, espadas10A, oros01A, oros02A, oros03A, oros04A, oros05A, oros06A, oros07A, oros08A, oros09A, oros10A}
carta01 = Element(listaimagenes, c1)
carta02 = Translate(Element[listaimagenes, c2], Vector[P1, P2])
carta04 = Translate(Element[listaimagenes, c4], Vector[(3 * Vector[P1, P2])])
carta03 = Translate(Element[listaimagenes, c3], Vector[(2 * Vector[P1, P2])])
mus = Sum(Join[Sequence[Sequence[abs(sgn(Element[listarestos, j] - Element[listarestos, k])), j, k, 4], k, 1, 4]])
z: 1