dice_sets.R

library(tidyverse)

unique_sums <- expand.grid(dice_1 = 1:6, dice_2 = 1:6) %>% 
  mutate(die_sum = dice_1 + dice_2) %>% 
  pull(die_sum) %>% 
  unique()


all_divisble <- function(x, divisor) {
  divisible_int <- identical((x / divisor), round(x / divisor))  
  
  if (divisible_int) {
    divisor
  } else {
    NA_integer_
  }
}


expand.grid(x = unique_sums, 
            divisor = min(unique_sums):max(unique_sums)) %>% 
  pmap_int(all_divisble) %>% 
  unique() %>% 
  na.omit() %>% 
  length()