Databases
StackOverflow2013
Postsdbo
POscheme homework Blackjack shuffle
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POscheme homework Blackjack shuffle
    primarykey
    data
    text
    <p>So I need to do a game of blackjack simulator, but can't seem to figure out what's wrong with the shuffle. It's supposed to take a card randomly from the deck, then put it on top of the pack. And finally delete it from the rest. So :</p> <p>(ace)(2)(3)(4)(5)...(k)<br> if random card is let say 5<br> (5)(ace)(2)(3)(4)(5)...(k)<br> then it deletes the 2nd 5<br> (5)(ace)(2)(3)(4)(6)...(k) </p> <p>here is the code:</p> <pre><code> (define deck '((A . C) (2 . C) (3 . C) (4 . C) (5 . C) (6 . C) (7 . C) (8 . C) (9 . C) (10 . C) (V . C) (Q . C) (K . C))) ;auxilliary function for shuffle let you randomly select a card. (define shuffAux (lambda (t) (define cardR (lambda (t) (list-ref t (random 13)))) (cardR t))) ;auxilliary function used to remove the card after the car to prevent you from removing the randomly selected from the car(begining of the deck). (define (removeDupC card deck) (delete card (cdr deck)) ) (define shuffle2ndtry (lambda (deck seed) (define do-shuffle (lambda (deck seed) (if (&gt; seed 0)( (cons (shuffAux deck) deck) (removeDupC (car deck) deck) (- 1 seed)) (write deck) ) ) ) (do-shuffle deck seed))) (define (shuffle deck seed) (define cards (cons (shuffAux deck) deck)) (write cards) (case (&gt; seed 0) [(#t) (removeDupC (car cards) (cdr cards)) (shuffle cards (- seed 1))] [(#f) (write cards)])) (define random (let ((seed 0) (a 3141592653) (c 2718281829) (m (expt 2 35))) (lambda (limit) (cond ((and (integer? limit)) (set! seed (modulo (+ (* seed a) c) m)) (quotient (* seed limit) m)) (else (/ (* limit (random 34359738368)) 34359738368)))))) ;function in which you can delete an element from the list. (define delete (lambda (item list) (cond ((equal? item (car list)) (cdr list)) (else (cons (car list) (delete item (cdr list))))))) ( </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PTQuestion
    1. This table or related slice is empty.
    1. USoctavio
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. COWhat is happening when you try to run the code?
      singulars
      1. POscheme homework Blackjack shuffle
      1. USJustin Ardini
    2. COshuffle is now working here is the new code (define (brasse deck seed) (define cards (cons (brasseAux deck) deck)) (case (>= seed 0) [(#t) (shuffle (removeDupC (car cards) cards) (- seed 1))] [(#f) (write cards)])) what i get is i.e.: ((7 . C) (9 . C) (10 . C) (8 . C) (6 . C) (5 . C) (2 . C) (Q . C) (V . C) (7 . C) (3 . C) (K . C) (A . C) (4 . C)) as you can see there's two cards (7 . C) only need to get rid of the car of the list but i need the cards list to return exactly the same except without the car which seems impossible because of the define in at the start.
      singulars
      1. POscheme homework Blackjack shuffle
      1. USoctavio
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload