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
Published at
2024-08-19 09:21:33Event JSON
{
"id": "153b84dad2e5211dd95fe6b42a71c370bc961b70dea50c6cb404b6f5d734b06f",
"pubkey": "b7f4998efbebfd0d675e0671c492f7610c7cef16e7619798bc7e7611cbeb10c6",
"created_at": 1724059293,
"kind": 1,
"tags": [
[
"e",
"950280aa5b1e363fde3f19dbaa6ae7ccd20856c58da7fd931094c5c6cae75c0d",
"wss://relay.mostr.pub",
"reply"
],
[
"t",
"rstats"
],
[
"proxy",
"https://fosstodon.org/users/jonocarroll/statuses/112987949839310377",
"activitypub"
]
],
"content": "#rstats \n\nleapyear \u003c- function(year) {\n pracma::gcd(80, year) \u003e pracma::gcd(50, year)\n}\nFilter(leapyear, 1890:1920)\n#\u003e [1] 1892 1896 1904 1908 1912 1916 1920",
"sig": "2e15c5512f958d302e5972251bf5f044c75c88925def8251a776360c6507bbc27c39ba2848c89fc9bdf223b35240f11ba9f5365428d83b7780a5cd38fc023c2a"
}
