Simulation

You are given the simulation below.

(define sim
  (lambda (n)
    (let ((player1 (player1-maker))
          (player2 (player2-maker))
          (total n))
      (letrec ((display-results
                (lambda (total)
                  (display "Player1 won ")
                  (display (send player1 'show-percent total))
                  (display "% of the games. Player2 won ")
                  (display (send player2 'show-percent total))
                  (display "% of the games.")
                  (newline)
                  ))
               (sim-helper
                (lambda (n)
                  (if (zero? n) 
                      (display-results total)
                      (case (hangman-guess-sim (send player2 'pick-new!))
                        ((0) (begin
                               (send player2 'pick-new!)
                               (sim-helper n)))
                        ((1) (begin
                               (send player1 'you-win!)
                               (send player1 'pick-new!)
                               (sim-helper (sub1 n))))
                        ((2) (begin
                               (send player2 'you-win!)
                               (send player1 'pick-new!)
                               (sim-helper (sub1 n))))
                        (else
                         'error))))))
        (begin
          (send player1 'pick-new!)
          (sim-helper n))))))

You are also given a helper procedure and a global variable:

(define get-new-letter
  (lambda ()
    (vector-ref alpha-bet (random 25))))

(define alpha-bet
  (vector 'a 'b 'c 'd 'e 'f 'g 'h 'i 'j 'k 'l 'm 'n 'o 
           'p 'q 'r 's 't 'u 'v 'w 'x 'y 'z))

Do the following:

1. 12 pts - Write player1-maker which includes the following methods:
   • type - returns the type of the object
   • pick-new! - initializes the hangman game (starts a new game)
   • you-win! - updates the number of wins for player1
   • show - shows the current number of wins
   • show-percent - takes the total number of games as an argument and returns the percentage of those games won by player1
   • an error message
2. 12 pts - Write player2-maker which includes the following methods:
   • type - returns the type of the object
   • pick-new! - picks a new letter to guess
   • you-win! - updates the number of wins for player2
   • show - shows the current number of wins
   • show-percent - takes the total number of games as an argument and returns the percentage of those games won by player2
   • an error message
3. 6 pts - Revise hangman-guess to return:
   • 0 when the game is not over
   • 1 when player1 has won the game
   • 2 when player2 has won the game