Download code

From LiteratePrograms

Back to Fibonacci_numbers_(E)

Download for Windows: zip

Download for UNIX: zip, tar.gz, tar.bz2

fib_memo.e

 #!/usr/bin/env rune
 
 pragma.syntax("0.9")
 
 def fibs := [0 => 0, 1 => 1].diverge()
 
 
 def fib(n :(int >= 0)) :int {
   if (!fibs.maps(n)) {
     fibs[n] := fib(n-1) + fib(n-2)
   }
   return fibs[n]
 }
 
 
 
 for i in 0..20 {
   print(" ", fib(i))
 }
 

fib_recursive.e

 #!/usr/bin/env rune
 
 pragma.syntax("0.9")
 
 def fib(n :(int >= 0)) :int {
   switch (n) {
     match == 0 { return 0 }
     match == 1 { return 1 }
     match _    { return fib(n-1) + fib(n-2) }
   }
 }
 
 for i in 0..20 {
   print(" ", fib(i))
 }