Prueba de primalidad en R

División por tanteo, escrita vectorizada para probar un vector completo de una vez.

is_prime <- function(n) {
  if (n < 2) {
    return(FALSE)
  }
  if (n < 4) {
    return(TRUE)
  }
  divisors <- 2:floor(sqrt(n))
  all(n %% divisors != 0)
}

Palabras clave y builtins usados aquí

• function
• if
• return

El intento, en números

Líneas

10

Caracteres a escribir

137

Tokens

51

Ritmo de tres estrellas

85 tpm

Al ritmo de tres estrellas de 85 tokens por minuto, este intento toma unos 36 segundos.

Escribe este fragmento

Paso 3 de 5 en Flujo y funciones; paso 7 de 20 en Fundamentos del lenguaje.

← Anterior Siguiente →