September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Fibonacci-sequence/R/fibonacci-sequence-1.r
+++ b/Task/Fibonacci-sequence/R/fibonacci-sequence-1.r
@ -0,0 +1,6 @@
+fib=function(n,x=c(0,1)) {
+   if (abs(n)>1) for (i in seq(abs(n)-1)) x=c(x[2],sum(x))
+   if (n<0) return(x[2]*(-1)^(abs(n)-1)) else if (n) return(x[2]) else return(0)
+}
+
+sapply(seq(-31,31),fib)
--- a/Task/Fibonacci-sequence/R/fibonacci-sequence-2.r
+++ b/Task/Fibonacci-sequence/R/fibonacci-sequence-2.r