Interesting!

**Originally shared by Ingress**

Intel suggests the Faction that secures Operation #DICE2014 in Las Vegas (http://goo.gl/JVtWnR) will gain a strategic advantage in determining the course of what is to come. Our Scanners detected the following sequence:

with Ada.Text_IO, Ada.Command_Line;

procedure Fib is

X: Positive := Positive'Value(Ada.Command_Line.Argument(1));

function Fib(P: Positive) return Positive is

begin

if P <= 2 then

return 1;

else

return Fib(P-1) + Fib(P-2);

end if;

end Fib;

begin

Ada.Text_IO.Put("Fibonacci(" & Integer'Image(X) & " ) = ");

Ada.Text_IO.Put_Line(Integer'Image(Fib(X)));

end Fib;

Read more details here: http://goo.gl/26j73w

#DICE2014

Recursive function to calculate Fibonacci 😱

ReplyDelete