Códigos II

Aquí están los códigos para la segunda tanta de pruebas.

#include
#include

main() {
int n,i,k;
double phi,fibonacci;
double a,b;

phi=(1.0+sqrt(5.0))/2.0;
for (k=0; k<1000;k++){
for (n=0; n<100;n++) {
a=b=1.0;
for (i=0; i < n;i++) a=phi*a;
for (i=0; i < n;i++) b=b/(-phi);
fibonacci=(a + b)/sqrt(5.0);
printf("%lf \n", fibonacci);
}
}
}

#!/usr/bin/ruby
phi=(1.0+Math::sqrt(5.0))/2.0;
1000.times do
100.times do |n|
puts (((phi**n)+(-phi)**(-n))/Math::sqrt(5.0)).to_s
end
end

#!/usr/bin/perl
$phi=(1.0+sqrt(5.0))/2.0;
for ($k=0; $k<1000;$k++){
for ($n=0; $n<100;$n++) {
print ((($phi ** $n)+(-$phi)+(-$phi)** (-$n))/sqrt(5.0));
print "\n";
}
}

#!/usr/bin/python
import math
phi=(1.0+math.sqrt(5.0))/2.0;
for k in range(1000):
for i in range(100):
print (((phi**i)+(-phi)**(-i))/math.sqrt(5.0))