38 lines
716 B
R
38 lines
716 B
R
|
Fibonacci Sequence in R
|
||
|
|
# Program to diplay the Fibonacci
|
||
|
|
# sequence up to n-th term using
|
||
|
|
# recursive functions
|
||
|
|
|
||
|
|
recurse_fibonacci <- function(n) {
|
||
|
|
if(n <= 1) {
|
||
|
|
return(n)
|
||
|
|
} else {
|
||
|
|
return(recurse_fibonacci(n-1) + recurse_fibonacci(n-2))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# take input from the user
|
||
|
|
nterms = as.integer(readline(prompt="How many terms? "))
|
||
|
|
|
||
|
|
# check if the number of terms is valid
|
||
|
|
if(nterms <= 0) {
|
||
|
|
print("Plese enter a positive integer")
|
||
|
|
} else {
|
||
|
|
print("Fibonacci sequence:")
|
||
|
|
for(i in 0:(nterms-1)) {
|
||
|
|
print(recurse_fibonacci(i))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
Output
|
||
|
|
|
||
|
|
How many terms? 9
|
||
|
|
[1] "Fibonacci sequence:"
|
||
|
|
[1] 0
|
||
|
|
[1] 1
|
||
|
|
[1] 1
|
||
|
|
[1] 2
|
||
|
|
[1] 3
|
||
|
|
[1] 5
|
||
|
|
[1] 8
|
||
|
|
[1] 13
|
||
|
|
[1] 21
|