ghci dimness

1
2
3
4
5
6
7
8
9
10
11
12
13
a = let f 0 = 1
        f 1 = 1
        f n = f (n - 1) + f (n - 2)
        x = f 7
        g = (+)
    in map (\n -> foldr g (trace "(f x)" (f x)) [1..n]) [1..1000]

b = let f 0 = 1
        f 1 = 1
        f n = f (n - 1) + f (n - 2)
        x = f 7
        g = (+)
    in map ( g (trace "(f x)" (f x))) [1..1000]
1:9: Warning: Reduce duplication
Found:
f 0 = 1
f 1 = 1
f n = f (n - 1) + f (n - 2)
x = f 7
g = (+)
Why not:
Combine with /tmp/64300.hs:8:9