fib.awk


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/awk -f

### fib.awk
# fib sol'n from Hamming

BEGIN {
    ARGV[1] ? n = ARGV[1] : n = 0
    ARGV[2] ? OFMT = "%." ARGV[2] "g" : OFMT = "%g"
    print (1/sqrt(5))*(0.5*(1 + sqrt(5)))^n - (1/sqrt(5))*(0.5*(1 - sqrt(5)))^n
}