Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
isPrime <- function(n) {
if(n < 2) return(FALSE)
for(i in 2:floor(sqrt(n))) {
if(n %% i == 0) return(FALSE)
}
return(TRUE)
}
nums <- c(7, 10, 13)
for(n in nums) {
cat(paste0(n, ' is ', ifelse(isPrime(n), 'Prime', 'Not Prime'), '\n'))
}Coding works best on desktop or with an external keyboard.