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/sqrt(5))*((1.0 + sqrt(5))/2.0)^n  - (1/sqrt(5))*((1.0 - sqrt(5))/2.0)^n)
}