Data update

Task/Fibonacci-sequence/Langur/fibonacci-sequence.langur

@@ -1,3 +1,3 @@
-val .fibonacci = f if(.x < 2: .x ; self(.x - 1) + self(.x - 2))
+val .fibonacci = fn(.x) if(.x < 2: .x ; self(.x - 1) + self(.x - 2))
 
 writeln map .fibonacci, series 2..20

Task/Fibonacci-sequence/Tiny-Craft-Basic/fibonacci-sequence.basic

@@ -1,20 +0,0 @@
-10 cls
-
-20 let a = 1
-30 let b = 1
-
-40 print "Fibonacci Sequence"
-
-50 rem loop
-
-	60 let s = a + b
-	70 let a = b
-	80 let b = s
-	90 let i = i + 1
-
-	100 print s
-
-120 if i < 20 then 50
-
-130 shell "pause"
-140 end

Task/Fibonacci-sequence/Uiua/fibonacci-sequence.uiua

@@ -0,0 +1,2 @@
+F ← |1 memo⟨+⊃(F-1)(F-2)|∘⟩<2.
+F ⇡20

Task/Fibonacci-sequence/Yabasic/fibonacci-sequence-1.basic

@@ -1,4 +1,6 @@
-sub fibonacci (n)
+sub fibonacciI (n)
+    local n1, n2, k, sum
+
     n1 = 0
     n2 = 1
     for k = 1 to abs(n)
@@ -6,7 +8,7 @@ sub fibonacci (n)
         n1 = n2
         n2 = sum
     next k
-    if n < 0 then
+    if n < 1 then
        return n1 * ((-1) ^ ((-n) + 1))
     else
        return n1

Task/Fibonacci-sequence/Yabasic/fibonacci-sequence-2.basic

@@ -0,0 +1,7 @@
+sub fibonacciR(n)
+    if n <= 1 then
+        return n
+    else
+        return fibonacciR(n-1) + fibonacciR(n-2)
+    end if
+end sub

Task/Fibonacci-sequence/Yabasic/fibonacci-sequence-3.basic

@@ -0,0 +1,3 @@
+sub fibonacciA (n)
+    return int(0.5 + (((sqrt(5) + 1) / 2) ^ n) / sqrt(5))
+end sub

Task/Fibonacci-sequence/Yabasic/fibonacci-sequence-4.basic

@@ -0,0 +1,13 @@
+sub fibonacciB(n)
+    local sq5, phi1, phi2, dn1, dn2, k
+
+    sq5 = sqrt(5)
+    phi1 = (1 + sq5) / 2
+    phi2 = (1 - sq5) / 2
+    dn1 = phi1: dn2 = phi2
+    for k = 0 to n
+        dn1 = dn1 * phi1
+        dn2 = dn2 * phi2
+        print int(((dn1 - dn2) / sq5) + .5);
+    next k
+end sub