Следующее занимает около 30 секунд для запуска, тогда как я ожидаю, что он будет почти мгновенным. Есть ли проблема с моим кодом?
x <- fibonacci(35);
fibonacci <- function(seq) {
if (seq == 1) return(1);
if (seq == 2) return(2);
return (fibonacci(seq - 1) + fibonacci(seq - 2));
}