arnoudbuzing
diff --git a/‎Prototypes/Source/Compiler/Source/FibonacciNumber.wl‎
Lines changed: 0 additions & 18 deletions b/‎Prototypes/Source/Compiler/Source/FibonacciNumber.wl‎
Lines changed: 0 additions & 18 deletions
diff --git a/‎…otypes/Source/Compiler/Source/Collatz.wl‎ ‎…types/Source/Compiler/Source/cCollatz.wl‎Prototypes/Source/Compiler/Source/Collatz.wl renamed to Prototypes/Source/Compiler/Source/cCollatz.wl b/‎…otypes/Source/Compiler/Source/Collatz.wl‎ ‎…types/Source/Compiler/Source/cCollatz.wl‎Prototypes/Source/Compiler/Source/Collatz.wl renamed to Prototypes/Source/Compiler/Source/cCollatz.wl
diff --git a/‎Prototypes/Source/Compiler/Source/cFibonacci.wl‎
Lines changed: 11 additions & 0 deletions b/‎Prototypes/Source/Compiler/Source/cFibonacci.wl‎
Lines changed: 11 additions & 0 deletions
diff --git a/‎…pes/Source/Compiler/Source/Mandelbrot.wl‎ ‎…es/Source/Compiler/Source/cMandelbrot.wl‎Prototypes/Source/Compiler/Source/Mandelbrot.wl renamed to Prototypes/Source/Compiler/Source/cMandelbrot.wl b/‎…pes/Source/Compiler/Source/Mandelbrot.wl‎ ‎…es/Source/Compiler/Source/cMandelbrot.wl‎Prototypes/Source/Compiler/Source/Mandelbrot.wl renamed to Prototypes/Source/Compiler/Source/cMandelbrot.wl
@@ -0,0 +1,11 @@
+Function[ { Typed[n, "MachineInteger"] },
+ Module[{fibonacci},
+  fibonacci = Function[{a},
+   If[a > 2,
+    If[Mod[a, 2] === 0,
+     fibonacci[ Quotient[a, 2]]*(2*fibonacci[Quotient[a, 2] + 1] - fibonacci[Quotient[a, 2]]),
+      fibonacci[Quotient[a - 1, 2] + 1]^2 + fibonacci[Quotient[a - 1, 2]]^2],
+    1]];
+  fibonacci[n]
+ ]
+]