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