-
Notifications
You must be signed in to change notification settings - Fork 0
/
tdaGame_20058348_RojasGonzalez.rkt
51 lines (46 loc) · 1.58 KB
/
tdaGame_20058348_RojasGonzalez.rkt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#lang racket
;getAreaJuego
;Descripción: Función que retorna una lista con el area de juego
;Dom: game (list)
;Rec: area de juego (list)
(define getAreaJuego (lambda (game)
(car game)))
;getCartasJugadores
;Descripción: Función que retorna una lista con las cartas de los jugadores
;Dom: game (list)
;Rec: cartas del jugador (list)
(define getCartasJugadores (lambda (game)
(cadr game)))
;getPlayers
;Descripción: Función que retorna una lista con jugadores
;Dom: game (list)
;Rec: players (list)
;Ejemplo (getPlayers (game 4 (cardsSet elements 3 5 null) null null))
(define getPlayers (lambda (game)
(caddr game)))
;getCartasDisponibles
;Descripción: Función que retorna una lista con las cartas disponibles
;Dom: game (list)
;Rec: mazo de cartas (list)
(define getCartasDisponibles (lambda (game)
(cadddr game)))
;getEstadoJuego
;Descripción: Función que retorna el estado de la partida
;Dom: game (list)
;Rec: estado de la partida (str)
(define getEstadoJuego (lambda (game)
(car (cddddr game))))
;getTurno
;Descripción: Función que retorna el nombre del jugador al que corresponde el turno
;Dom: game (list)
;Rec: player (str)
(define getTurno (lambda (game)
(cadr (cddddr game))))
;getPuntuacion
;Descripción: Función que retorna una lista con las puntuaciones de los jugadores
;Dom: game (list)
;Rec: puntuaciones (list)
(define getPuntuacion (lambda (game)
(caddr (cddddr game))))
(provide (all-defined-out))
;(define play (lambda (game function)