Advent of Code 2021(adventofcode.com)

    library(tidyverse) # pre-typed
    lines = readLines("data/day1.txt") %>% as.numeric() # Read data
    diff(lines) %>% .[. > 0] %>% length() # Part 1

    for t in range(0, 10000):
        if t % 3 == 0 and t % 5 == 0:
            print("same at", t)

    same at 0
    same at 15
    same at 30
    same at 45
    same at 60
    same at 75
    same at 90

    for t in range(0, 10000, 15):
        print("same at", t)

    result = 0
    addend = 1
    for divisor, desired_offset in [(7, 0), (13, 1), (59, 4), (31, 6), (19, 7)]:
        # keep trying numbers until we find the one that, with
        # the desired offset added to it, would divide without
        # remainder
        while (result + desired_offset) % divisor != 0:
            result += addend

        # adding another addend should not break previous results
        # so make it divisible by all previous divisors
        addend *= divisor
    print(result % (7*13*59*31*19))