fib.awk


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)
}