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