@@ -3,116 +3,70 @@ module IfBench where
3tailRecursiveIfFn : Int -> Float
3tailRecursiveIfFn : Int -> Float
4tailRecursiveIfFn i =
4tailRecursiveIfFn i =
10− i == 0 ->
8+ | i == 0 ->
14− i > 0 && i < 10 ->
10+ | i > 0 && i < 10 ->
17− else
12+ | otherwise ->
18 tailRecursiveIfFn (i - (1 + (i % 5 ) ) )
13 tailRecursiveIfFn (i - (1 + (i % 5 ) ) )
21manyConditionFunction i =
16manyConditionFunction i =
23− i <= 0
18+ | i <= 0 ->
25− 30.0 + (toFloat i)
19+ 30.0 + (toFloat i)
27− i > 100 && (i * i) % 20 == 7
20+ | i > 100 && (i * i) % 20 == 7 ->
29− 24.3 + (toFloat i)
21+ 24.3 + (toFloat i)
31− i > 100 && (i % 3 == 1)
22+ | i > 100 && (i % 3 == 1) ->
33− 3.33 + (toFloat i)
23+ 3.33 + (toFloat i)
35− (i == 152)
24+ | (i == 152) ->
37− 29.0 + (toFloat i)
25+ 29.0 + (toFloat i)
39− (i + (i*i) > 200 && (i + (i*i) < 300)) ->
26+ | (i + (i*i) > 200 && (i + (i*i) < 300)) ->
40 32.9 + (toFloat i)
27 32.9 + (toFloat i)
42− i == 99
28+ | i == 99 ->
44− 93.0 + (toFloat i)
29+ 93.0 + (toFloat i)
46− (i*i % 17 == 13 )
30+ | (i*i % 17 == 13 ) ->
48− 9.0 + (toFloat i)
31+ 9.0 + (toFloat i)
50− (i == 101)
32+ | (i == 101) ->
52− 39.0 + (toFloat i)
33+ 39.0 + (toFloat i)
54− (i == 102)
34+ | (i == 102) ->
56− 38.0 + (toFloat i)
35+ 38.0 + (toFloat i)
58− (i == 103)
36+ | (i == 103) ->
60− 49.0 + (toFloat i)
37+ 49.0 + (toFloat i)
62− (i == 104)
38+ | (i == 104) ->
64− 59.0 + (toFloat i)
39+ 59.0 + (toFloat i)
66− (i == 105)
40+ | (i == 105) ->
68− 69.0 + (toFloat i)
41+ 69.0 + (toFloat i)
70− (i == 106)
42+ | (i == 106) ->
72− 39.0 + (toFloat i)
43+ 39.0 + (toFloat i)
74− (i == 107)
44+ | (i == 107) ->
76− 38.0 + (toFloat i)
45+ 38.0 + (toFloat i)
78− (i == 108)
46+ | (i == 108) ->
80− 49.0 + (toFloat i)
47+ 49.0 + (toFloat i)
82− (i == 109)
48+ | (i == 109) ->
84− 59.0 + (toFloat i)
49+ 59.0 + (toFloat i)
86− (i == 110)
50+ | (i == 110) ->
88− 69.0 + (toFloat i)
51+ 69.0 + (toFloat i)
90− (i == 111)
52+ | (i == 111) ->
92− 39.0 + (toFloat i)
53+ 39.0 + (toFloat i)
94− (i == 115)
54+ | (i == 115) ->
96− 69.0 + (toFloat i)
55+ 69.0 + (toFloat i)
97− else
56+ | otherwise ->
98− toFloat i
57+ toFloat i
101fewConditionFunction i =
60fewConditionFunction i =
103− i <= 0
62+ | i <= 0 ->
105− 30.0 + (toFloat i)
63+ 30.0 + (toFloat i)
107− (i == 104)
64+ | (i == 104) ->
109− 59.0 + (toFloat i)
65+ 59.0 + (toFloat i)
111− (i == 105)
66+ | (i == 105) ->
113− 69.0 + (toFloat i)
67+ 69.0 + (toFloat i)
114− else
68+ | otherwise ->
115− toFloat i
69+ toFloat i
118tailRecSum intList =
72tailRecSum intList =