Retornando mais cedo
Às vezes, você não precisa executar todo o corpo de uma função para obter a resposta. Nesse caso, você pode retornar mais cedo dessa função usando return().
Para verificar se x é divisível por n, você pode usar is_divisible_by(x, n) do assertive.
Como alternativa, use o operador módulo, %%. x %% n fornece o resto da divisão de x por n, então x %% n == 0 determina se x é divisível por n. Experimente 1:10 %% 3 == 0 no console.
Para resolver este exercício, você precisa saber que um ano bissexto é todo ano múltiplo de 400 (como o ano 2000) ou todo ano múltiplo de 4 que não seja um centenário (como 1904, mas não 1900 ou 1905).
assertive já está carregado.
Este exercício faz parte do curso
Introdução à Escrita de Funções em R
Instruções do exercício
- Complete a definição de
is_leap_year(), verificando os casos em queyearé divisível por 400, depois por 100, depois por 4, retornando mais cedo da função em cada caso.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
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
___
}