Jonathan Carroll on Nostr: #rstats leapyear <- function(year) { pracma::gcd(80, year) > pracma::gcd(50, year) } ...

#rstats

leapyear <- function(year) {
pracma::gcd(80, year) > pracma::gcd(50, year)
}
Filter(leapyear, 1890:1920)
#> [1] 1892 1896 1904 1908 1912 1916 1920