How to score Rock Paper Scissors

[This article was first published on Higher Order Functions, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Ho ho ho, it is the most wonderful time of the year: Advent of code!

AOC is a yearly collection of programming puzzles throughout the first 25 days of December. I like it… so much so that I wrote an R package for completing my puzzles using the structure of an R package. The puzzles start out easy and get progressively more elaborate or devious in their requirements. But I am going to talk about an easy puzzle in this post, and specifically, one little trick I used in my solution.

Day 2 of 2022 requires us to score games of Rock Paper Scissors. The moves are encoded using letters, where our opponent’s moves are coded as A, B, C and ours are coded as X, Y, Z. So, an input describing three moves will look like the following:

example_input <- c(
  "A Y",
  "B X",
  "C Z"
)

Where the letters mean the following:

move_codes <- c(
  "A" = "rock",
  "B" = "paper",
  "C" = "scissors",
  "X" = "rock",
  "Y" = "paper",
  "Z" = "scissors"
)

This encoding seems like a weird bit of indirection thrown on, and it is, because the puzzle changes the meanings of the letters in Part 2. Still, it is straightforward to parse the input into a list of roshambo moves.

input <- example_input |> 
  strsplit(" ") |> 
  # Use character subsetting to convert letters to moves
  lapply(function(x) unname(move_codes[x])) 

# Our character's move is the second element in each vector
str(input)
#> List of 3
#>  $ : chr [1:2] "rock" "paper"
#>  $ : chr [1:2] "paper" "rock"
#>  $ : chr [1:2] "scissors" "scissors"

Now, for the point of this post, how do we score each game?

The naive approach is to start typing away furiously

center

before eventually noping the hell out of there.

What we have is a decision tree: we need to follow a branch for player one and another branch for player two. And here’s the main point of this post: nested lists are trees. (Yes, I love lists—see this post where I use them in my knitr reporting.) The top (outer) level of the list will be all of the player one options, and then the bottom (inner) level will be all the player two options. The nodes of the tree (bottom level values) are the outcomes of the games.

run_game <- function(pair) {
  # nested lists are trees
  rules <- list(
    rock = list(
      rock = "draw",
      scissors = "lose",
      paper = "win"
    ),
    scissors = list(
      scissors = "draw",
      rock = "win",
      paper = "lose"
    ),
    paper = list(
      paper = "draw",
      scissors = "win",
      rock = "lose"
    )
  )

  # Because `rules[[pair[1]]][[pair[2]]]` is unsightly:
  rules |>
    getElement(pair[1]) |>
    getElement(pair[2])
}

At this point, we could take a second to ponder how the structure of several nested if-elses—the actual shape of the code, indenting in and out in and in again—resembles the structure and the shape of the nested list, and ponder further about how the regular, orderly shape of code could be the whispers of hidden data, saying “list() me, list() me”. Or, we could run the code and see it in action.

input |> 
  lapply(run_game)
#> [[1]]
#> [1] "win"
#> 
#> [[2]]
#> [1] "lose"
#> 
#> [[3]]
#> [1] "draw"

# Or to repeat the input
input |> 
  stats::setNames(input) |> 
  lapply(run_game)
#> $`c("rock", "paper")`
#> [1] "win"
#> 
#> $`c("paper", "rock")`
#> [1] "lose"
#> 
#> $`c("scissors", "scissors")`
#> [1] "draw"

Earlier in the post, I used character subsetting to convert letters into moves. This process turned a matching/replacement problem into a data lookup problem. The Rock Paper Scissors are the same trick again: converting a decision tree into a data lookup problem.


Last knitted on 2022-12-06. Source code on GitHub.1

  1. .session_info
    #> ─ Session info ───────────────────────────────────────────────────────────────
    #>  setting  value
    #>  version  R version 4.2.2 (2022-10-31 ucrt)
    #>  os       Windows 10 x64 (build 22621)
    #>  system   x86_64, mingw32
    #>  ui       RTerm
    #>  language (EN)
    #>  collate  English_United States.utf8
    #>  ctype    English_United States.utf8
    #>  tz       America/Chicago
    #>  date     2022-12-06
    #>  pandoc   NA
    #> 
    #> ─ Packages ───────────────────────────────────────────────────────────────────
    #>  package     * version date (UTC) lib source
    #>  asciicast     2.3.0   2022-12-05 [1] CRAN (R 4.2.2)
    #>  cli           3.4.1   2022-09-23 [1] CRAN (R 4.2.1)
    #>  curl          4.3.3   2022-10-06 [1] CRAN (R 4.2.1)
    #>  evaluate      0.18    2022-11-07 [1] CRAN (R 4.2.2)
    #>  fansi         1.0.3   2022-03-24 [1] CRAN (R 4.2.0)
    #>  git2r         0.30.1  2022-03-16 [1] CRAN (R 4.2.0)
    #>  glue          1.6.2   2022-02-24 [1] CRAN (R 4.2.0)
    #>  here          1.0.1   2020-12-13 [1] CRAN (R 4.2.0)
    #>  highr         0.9     2021-04-16 [1] CRAN (R 4.2.0)
    #>  jsonlite      1.8.3   2022-10-21 [1] CRAN (R 4.2.1)
    #>  knitr       * 1.40    2022-08-24 [1] CRAN (R 4.2.1)
    #>  lifecycle     1.0.3   2022-10-07 [1] CRAN (R 4.2.1)
    #>  magick        2.7.3   2021-08-18 [1] CRAN (R 4.2.0)
    #>  magrittr      2.0.3   2022-03-30 [1] CRAN (R 4.2.0)
    #>  pillar        1.8.1   2022-08-19 [1] CRAN (R 4.2.1)
    #>  pkgconfig     2.0.3   2019-09-22 [1] CRAN (R 4.2.0)
    #>  processx      3.8.0   2022-10-26 [1] CRAN (R 4.2.1)
    #>  ps            1.7.2   2022-10-26 [1] CRAN (R 4.2.1)
    #>  R6            2.5.1   2021-08-19 [1] CRAN (R 4.2.0)
    #>  ragg          1.2.4   2022-10-24 [1] CRAN (R 4.2.1)
    #>  Rcpp          1.0.9   2022-07-08 [1] CRAN (R 4.2.1)
    #>  rlang         1.0.6   2022-09-24 [1] CRAN (R 4.2.1)
    #>  rprojroot     2.0.3   2022-04-02 [1] CRAN (R 4.2.0)
    #>  rstudioapi    0.14    2022-08-22 [1] CRAN (R 4.2.1)
    #>  sessioninfo   1.2.2   2021-12-06 [1] CRAN (R 4.2.0)
    #>  stringi       1.7.8   2022-07-11 [1] CRAN (R 4.2.1)
    #>  stringr       1.4.1   2022-08-20 [1] CRAN (R 4.2.1)
    #>  systemfonts   1.0.4   2022-02-11 [1] CRAN (R 4.2.0)
    #>  textshaping   0.3.6   2021-10-13 [1] CRAN (R 4.2.0)
    #>  tibble        3.1.8   2022-07-22 [1] CRAN (R 4.2.1)
    #>  utf8          1.2.2   2021-07-24 [1] CRAN (R 4.2.0)
    #>  V8            4.2.2   2022-11-03 [1] CRAN (R 4.2.2)
    #>  vctrs         0.5.0   2022-10-22 [1] CRAN (R 4.2.1)
    #>  withr         2.5.0   2022-03-03 [1] CRAN (R 4.2.0)
    #>  xfun          0.34    2022-10-18 [1] CRAN (R 4.2.1)
    #> 
    #>  [1] C:/Users/trist/AppData/Local/R/win-library/4.2
    #>  [2] C:/Program Files/R/R-4.2.2/library
    #> 
    #> ──────────────────────────────────────────────────────────────────────────────
    

To leave a comment for the author, please follow the link and comment on their blog: Higher Order Functions.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)