blob: 07e8babd732e6a3330ea0a5e5f75a508f096db40 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
#!/usr/bin/awk -f
### fib.awk
# fib sol'n from Hamming
BEGIN {
n = ARGV[1]
printf(OFMT ORS,
(1.0/sqrt(5.0))*((1.0 + sqrt(5.0))/2.0)^n - (1.0/sqrt(5.0))*((1.0 - sqrt(5.0))/2.0)^n)
}
|