challenge-041/wanderdoc/R/ch-2.R


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

fib <- function(n) 
{
  x <- 0; y <- 1;

  m <- 0;
  while (m < n)
  {
    temp <-x;
    x <- y;
    y <- temp + y;
    m = m + 1;
  }

  x
}


leonardo <- function(x)
{
  leo_num <- 2 * fib(x + 1) - 1
  leo_num
}


sapply(1:20, leonardo)

# Prints:
# [1]     1     3     5     9    15    25    41    67   109   177   287   465   753  1219  1973
# [16]  3193  5167  8361 13529 21891