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
30
31
32
33
34
35
|
library("future")
library("listenv")
## IMPORTANT: The below usage of lazy futures will only work when they
## are all evaluated in the same process. We also need to
## disable the capturing of the standard output to avoid
## 'sink stack is full' errors
oplan <- plan(sequential)
## Defines the first 100 Fibonacci numbers
## (0, 1, 1, 2, 3, 5, 8, ...)
## but calculate only the ones need when
## a number is actually requested.
x <- listenv()
x[[1]] <- 0
x[[2]] <- 1
for (i in 3:100) {
x[[i]] %<-% { x[[i - 2]] + x[[i - 1]] } %lazy% TRUE %stdout% NA
}
## At this point nothing has been calculated,
## because lazy evaluation is in place.
## Get the 7:th Fibonnaci numbers (should be 8)
print(x[[7]])
## At this point x[1:7] have been calculated,
## but nothing beyond.
## Let's get the 50:th number.
print(x[[50]])
## Reset plan
plan(oplan)
|
