fib.pr


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
36
37
38
39
40
41
42

#fib(0) is
# 1
#end
#fib(1) is
# 1
#end
#fib(n) is
# fib(n-1) + fib(n-2)
#end

#puts fib(100)

require 'yaml'
$memo = {}
if File.exists?("memofib.yaml") then
  File.open("memofib.yaml", "r") do |f|
    mem = YAML.load(f.read)
    $memo = mem if mem
  end
end

memofib(0) is
  1
end
memofib(1) is
  1
end
memofib(n) is
  if $memo.include?(n) then
    $memo[n]
  else
    f = memofib(n-1) + memofib(n-2)
    $memo[n] = f
  end
end

puts memofib(1000)

File.open("memofib.yaml", "w") do |f|
  f.write YAML.dump($memo)
  f.flush
end