Início / coding / Perguntas / 78083558
Accepted
spaceman777
Asked: 2024-03-01 02:27:07 +0800 CST

Fazendo um baralho de cartas no Racket

  • 772

Estou tentando usar o Racket para fazer um baralho completo de cartas para um jogo de BlackJack. No entanto, tenho dois problemas:

  1. Quando eu uso o seguinte código

    ;This function creates a list of all the card faces.
(define faces '(2 3 4 5 6 7 8 9 10 J Q K A))
;This function creates a list of all card suits.
(define suits '(Clubs Diamonds Hearts Spades))

;make-deck: Creates a new (unshuffled) 52 card deck
;     Returns: The deck (a list of cards)
;     Parameters: none

(define make-deck
  (letrec ([pair-items (lambda (x y)
                         (cond
                           [(null? x) '()]
                           [(null? y) '()]
                           [(displayln (cons (car x) (cons (car y) (pair-items x (cdr y)))))]
                           ))])                 
    (pair-items faces suits))
  )

    eu recebo

    (2 Spades)
(2 Hearts . #<void>)
(2 Diamonds . #<void>)
(2 Clubs . #<void>)

    E não sei qual é o problema.

  2. Não tenho ideia de como redefinir iteratorpara emparelhar o próximo elemento da facesfunção com toda a suitsfunção. Eu uso let?

racket

1 respostas

  1. Best Answer

    A maneira trivial é usar cartesian-productpara gerar a lista de cartões (você também pode usar for*/listpara iterar nas suas listas facese suitspara obter o mesmo efeito). Ambos demonstrados abaixo:

    #lang racket/base

(require racket/list)

;This function creates a list of all the card faces.
(define faces '(2 3 4 5 6 7 8 9 10 J Q K A))
;This function creates a list of all card suits.
(define suits '(Clubs Diamonds Hearts Spades))

; These two variables should be equal?
(define deck-1 (cartesian-product faces suits))
(define deck-2 (for*/list ([face (in-list faces)]
                           [suit (in-list suits)])
                 (list face suit)))

    Um grande problema com seu código é usar o (cond ... [(displayln ...)]). displaylnsempre retorna um valor void que, como não é #f, sempre contará como verdadeiro em a cond. E sem uma parte do corpo de teste dessa cond-clause , o que o verdadeiro test-expr retorna é o que é condavaliado, então é isso que você está adicionando às listas que sua função está imprimindo (mas não retornando). Você provavelmente deve começar separando a exibição dos dados da criação deles.

    • 0

relate perguntas