Data commit

Task/Anonymous-recursion/Erlang/anonymous-recursion.erl

@@ -0,0 +1,15 @@
+-module( anonymous_recursion ).
+-export( [fib/1, fib_internal/1] ).
+
+fib( N ) when N >= 0 ->
+	fib( N, 1, 0 ).
+
+fib_internal( N ) when N >= 0 ->
+	Fun = fun (_F, 0, _Next, Acc ) -> Acc;
+		(F, N, Next, Acc) -> F( F, N - 1, Acc+Next, Next )
+		end,
+	Fun( Fun, N, 1, 0 ).
+
+
+fib( 0, _Next, Acc ) -> Acc;
+fib( N, Next, Acc ) -> fib( N - 1, Acc+Next, Next ).