Jonathan Carroll on Nostr: Thanks to a very cool video from nprofile1q…p4aq7 popping up on my feed I updated ...

Thanks to a very cool video from nprofile1qy2hwumn8ghj7un9d3shjtnddaehgu3wwp6kyqpqqvnvq95kahpl24g2079km57t2fpr859dan7zjk7k304jlsw3mvus8p4aq7 (nprofile…4aq7) popping up on my feed I updated my #rstats #Exercism solution for the Sieve of Eratosthenes problem to essentially use

isprime <- function(n) {
!length(grep(r"(^.?$|^(..+?)\1+$)", strrep('!', n)))
}

https://youtu.be/5vbk0TwkokM

1: FALSE
2: TRUE
3: TRUE
4: FALSE
5: TRUE
6: FALSE
7: TRUE
8: FALSE
9: FALSE
10: FALSE
11: TRUE
12: FALSE

🤩