summaryrefslogtreecommitdiffstats
path: root/057.bc
blob: 3ef738caf66f8de3acffbf1579e0afd7e3825d76 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/bc

scale = 0
numer = 1
denom = 2
count = 0
for (iter = 0; iter < 1000; iter++) {
    real_numer = numer + denom
    if (length(real_numer) > length(denom)) {
        dummy = count++
    }
    numer += denom * 2
    tmp = numer
    numer = denom
    denom = tmp
}
count
halt