Devolver antes
A veces no necesitas ejecutar todo el cuerpo de una función para obtener la respuesta. En ese caso, puedes devolver antes desde esa función usando return().
Para comprobar si x es divisible por n, puedes usar is_divisible_by(x, n) de assertive.
Como alternativa, usa el operador módulo, %%. x %% n da el resto al dividir x entre n, así que x %% n == 0 determina si x es divisible por n. Prueba 1:10 %% 3 == 0 en la consola.
Para resolver este ejercicio, tienes que saber que un año bisiesto es cada 400 años (como el año 2000) o cada 4 años que no sea un siglo (como 1904, pero no 1900 ni 1905).
assertive está cargado.
Este ejercicio forma parte del curso
Introducción a la escritura de funciones en R
Instrucciones del ejercicio
- Completa la definición de
is_leap_year(), comprobando los casos en queyearsea divisible por 400, luego por 100 y luego por 4, devolviendo antes desde la función en cada caso.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
is_leap_year <- function(year) {
# If year is div. by 400 return TRUE
if(___) {
return(___)
}
# If year is div. by 100 return FALSE
if(___) {
___
}
# If year is div. by 4 return TRUE
___
# Otherwise return FALSE
___
}