Use {r, engine = "python"} for the code instead of the usual {r}.
### Python
## Naive recursive Fibonacci
def fib(n):
if n < 2:
return 1
else:
return fib(n-1) + fib(n-2)
print("\n print(list(map(fib, range(0,10))))")
print(list(map(fib, range(0,10))))
print("\n print(list(map(fib, range(0,20))))")
print(list(map(fib, range(0,20))))
print("\n print(list(map(fib, range(0,30))))")
print(list(map(fib, range(0,30))))
##
## print(list(map(fib, range(0,10))))
## [1, 1, 2, 3, 5, 8, 13, 21, 34, 55]
##
## print(list(map(fib, range(0,20))))
## [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765]
##
## print(list(map(fib, range(0,30))))
## [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040]
## Build-up Fibonacci
def fib2(n):
def f(n, seq, acc):
if n == acc:
return(seq[1])
else:
return(f(n, [seq[1], seq[0] + seq[1]], (acc + 1)))
return(f(n, [0,1], 0))
print("\n print(list(map(fib2, range(0,10))))")
print(list(map(fib2, range(0,10))))
print("\n print(list(map(fib2, range(0,20))))")
print(list(map(fib2, range(0,20))))
print("\n print(list(map(fib2, range(0,30))))")
print(list(map(fib2, range(0,30))))
print("\n print(list(map(fib2, range(0,35))))")
print(list(map(fib2, range(0,35))))
print("\n print(list(map(fib2, range(0,50))))")
print(list(map(fib2, range(0,50))))
print("\n print(list(map(fib2, range(0,100))))")
print(list(map(fib2, range(0,100))))
##
## print(list(map(fib2, range(0,10))))
## [1, 1, 2, 3, 5, 8, 13, 21, 34, 55]
##
## print(list(map(fib2, range(0,20))))
## [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765]
##
## print(list(map(fib2, range(0,30))))
## [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040]
##
## print(list(map(fib2, range(0,35))))
## [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040, 1346269, 2178309, 3524578, 5702887, 9227465]
##
## print(list(map(fib2, range(0,50))))
## [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040, 1346269, 2178309, 3524578, 5702887, 9227465, 14930352, 24157817, 39088169, 63245986, 102334155, 165580141, 267914296, 433494437, 701408733, 1134903170, 1836311903, 2971215073, 4807526976, 7778742049, 12586269025]
##
## print(list(map(fib2, range(0,100))))
## [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040, 1346269, 2178309, 3524578, 5702887, 9227465, 14930352, 24157817, 39088169, 63245986, 102334155, 165580141, 267914296, 433494437, 701408733, 1134903170, 1836311903, 2971215073, 4807526976, 7778742049, 12586269025, 20365011074, 32951280099, 53316291173, 86267571272, 139583862445, 225851433717, 365435296162, 591286729879, 956722026041, 1548008755920, 2504730781961, 4052739537881, 6557470319842, 10610209857723, 17167680177565, 27777890035288, 44945570212853, 72723460248141, 117669030460994, 190392490709135, 308061521170129, 498454011879264, 806515533049393, 1304969544928657, 2111485077978050, 3416454622906707, 5527939700884757, 8944394323791464, 14472334024676221, 23416728348467685, 37889062373143906, 61305790721611591, 99194853094755497, 160500643816367088, 259695496911122585, 420196140727489673, 679891637638612258, 1100087778366101931, 1779979416004714189, 2880067194370816120, 4660046610375530309, 7540113804746346429, 12200160415121876738L, 19740274219868223167L, 31940434634990099905L, 51680708854858323072L, 83621143489848422977L, 135301852344706746049L, 218922995834555169026L, 354224848179261915075L]