Rock Paper Scissors

December 10, 2013

Today’s exercise is our five hundredth! It’s hard to believe. I remember writing the fiftieth exercise and thinking I would never get to a hundred. Even after all this practice it is hard to write two exercises every week, but your comments and private emails and referrals from other web sites sustain me. Many thanks to all my readers.

Our tradition for these milestone exercises is to have a party, which means we need a game: so we write one. Today’s exercise is to write an interactive rock-paper-scissors game: rock blunts scissors, paper wraps rock, scissors cut paper.

Your task is to write a program to play rock-paper-scissors with a human player, keeping score as you go. When you are finished, you are welcome to read or run a suggested solution, or to post your own solution or discuss the exercise in the comments below.

About these ads

Pages: 1 2

9 Responses to “Rock Paper Scissors”

  1. Bonus points if the program uses a webcam to receive input?

  2. Haskell version (requires GHC, doesn’t run in codepad :( ). Not the most beautiful program in Haskell, but nevertheless

    http://codepad.org/3oEk8lKq

  3. Paul said

    In Python.

    from random import choice
    import sys
    
    opt = dict(zip("RPS", ("rock", "paper", "scissors")))
    verbs = {}
    verbs["RP"] = verbs["PR"] = "wraps"
    verbs["RS"] = verbs["SR"] = "blunts"
    verbs["SP"] = verbs["PS"] = "cut"
    
    def message(c, h):
        if c == h: return "Our throws are the same."
        if c + h in ("RS", "PR", "SP"):
            return " ".join(["My", opt[c], verbs[c + h], "your", opt[h] + ".", "I win."])
        else:
            return " ".join(["Your", opt[h], verbs[c + h], "my", opt[c] + ".", "You win."])
    
    print "Welcome to Rock Paper Scissors. "
    while 1:
        computer = choice("RPS")
        human = "None"
        while human not in "RPS":
            human = raw_input("Enter R, P or S to make your throw, or Q to quit: ").upper()
            if human.startswith("Q"):
                print "Game ended."
                sys.exit(0)
        mess = message(computer, human)
        print mess
        if mess.endswith("win."):
            print "New game."
    
  4. wilton said

    Badly written Clojure… /

    (def precedence '(:rock :scissors :paper precedence))
     
     (def human 0)
    
     (def machine 0)
     
     (def human-score (ref human))
     (def machine-score (ref machine))
      
     (defn machine-option []
       (nth precedence (rand-int 4)))
     
     (defn weight [option]
       (.indexOf precedence option))
     
     (defn show-score []
       (str "machine: " (deref machine-score)
            " human: " (deref human-score)))
     
     (defn winner [human-option]
       (if (> (weight human-option) 
              (weight (machine-option)))
         (dosync (alter human-score + 1))
         (dosync (alter machine-score + 1)))
       (show-score))
      
     (defn go [player-option]
       (winner player-option))
    
  5. Jussi Piitulainen said

    Not keeping score, so I lose, but anyway:

    #! /usr/bin/env gsi-script
    (display "Content-Type: text/plain") (newline)
    (newline)
    (random-source-randomize! default-random-source)
    (define parser '(("move=rock" . 0) ("move=paper" . 1) ("move=scissors" . 2)))
    (define writer
      '((0 . ((0 . "rock ties with rock") (1 . "paper wraps rock") (2 . "rock blunts scissors")))
        (1 . ((1 . "paper ties with paper") (2 . "scissors cut paper")))
        (2 . ((2 . "scissors tie with scissors")))))
    (define (judge client server)
      (cond
       ((= client server) " - it's a tie")
       ((= (modulo (+ client 1) 3) server) " - server wins")
       ((= client (modulo (+ server 1) 3)) " - client wins")))
    (define client-move (cdr (assoc (getenv "QUERY_STRING") parser)))
    (define server-move (random-integer 3))
    (define lesser (cdr (assoc (min client-move server-move) writer)))
    (display (list-ref '("rock! " "paper! " "scissors! ") server-move))
    (display (cdr (assoc (max client-move server-move) lesser)))
    (display (judge client-move server-move))
    (newline)

    It’s a Gambit CGI script. With a web server running locally in port 8080 and accepting CGI programs in cwd, play like this:

    $ curl http://localhost:8080/rock.cgi'?'move=paper
    rock! paper wraps rock - client wins

  6. happyout!! said

    any java code for rock paper scissors.. it would be two clients and a server?

  7. JP said

    Here’s a Racket version with a bunch of different AIs to play against (or against each other): Rock-paper-scissors on jverkamp.com.

    Granted, none of them are that smart (I’m considering writing one based on a Hidden Markov Model), but it’s still pretty neat.

  8. lmonaco99 said

    Here is a PHP version.
    Not too happy with a couple of sections, but overall not bad. https://github.com/lmon/samples/blob/master/RockPaperScissors.php

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Follow

Get every new post delivered to your Inbox.

Join 621 other followers

%d bloggers like this: