3

Estou programando um simples algoritmo recursivo para calcular a sequência de Fibonacci em R, tal como faço no C. Segue o mesmo abaixo:

fibonacci <- function (n)
{
  if (n == 1L)
    return (0L)
  else if (n == 2L || n == 3L)
    return (1L)
  else
    return (fibonacci(n - 1L) + fibonacci(n - 2L))
} 

n <- readline(prompt="Insira um valor inteiro: ")
n <- as.integer(n)

print(fibonacci(n))

O script aparentemente roda sem problemas no ambiente do RStudio. Mas ao executar no console do linux, recebo o seguinte erro:

Insira um valor inteiro: Error in if (n == 1L) return(0L) else if (n == 2L || n == 3L) return(1L) else return(fibonacci(n - : valor ausente onde TRUE/FALSE necessário Calls: print -> fibonacci Execução interrompida

Alguém poderia me ajudar?

1
  • Não consigo reproduzir o erro, aparentemente está tudo bem. Por uma questão de segurança talvez não seja má ideia ter como primeira instrução da função stopifnot(n > 0L). 22/09/2018 às 15:31

1 Resposta 1

4

A função readline não funciona direito em uso não interativo. Da própria documentação da função lemos:

In non-interactive use the result is as if the response was RETURN and the value is "".

Ou seja, em uso não interativo, é como se você tivesse passado o valor "" que é uma string vazia. Em seguida você faz as.integer("") que resulta em NA - por isso a comparação dá problema.

No uso não-interativo (chamando pelo console) pode usar a função readLines, da seguinte forma:

n <- readLines("stdin",n=1)

O script completo ficaria assim:

fibonacci <- function (n)
{
  if (n == 1L)
    return (0L)
  else if (n == 2L || n == 3L)
    return (1L)
  else
    return (fibonacci(n - 1L) + fibonacci(n - 2L))
} 

cat("Insira um valor inteiro: \n")
n <- readLines("stdin",n=1)
n <- as.integer(n)

print(fibonacci(n))
4
  • Não entendi muito bem o protótipo dessa "readLines" para se enquadrar neste caso. Onde eu entro com o texto de exibição ao usuáro pra que ele digite a entrada? É necessário fazer a conversão com "as.integer(n)" após tal? 23/09/2018 às 12:33
  • Me parece que o erro persiste. 24/09/2018 às 13:39
  • Oi, editei a resposta com o script inteiro. Para mim não tem mais erro... Que erro aparece para você? 24/09/2018 às 19:59
  • 2
    Você usou o comando cat pra exibir texto, verdade. Nunca tinha lido input do teclado antes com o R, agora já sei como fazer. Muito obrigado Daniel, você solucionou meu problema. 24/09/2018 às 22:51

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .