git.iko.soy/elk
on master help sign in
Code cleanup
a25405bjmite
bench/CompilerBenchmarks.elm+1−4
compare with master
unifiedsplit
@@ -75,10 +75,7 @@ main =
75
75
76
76
77
77
78−{-
79−Random generation and structures
78+-- Random generation and structures
80−-}
81−
82
79
83--Maximum size for random numbers
80--Maximum size for random numbers
84maxSize = 1000000
81maxSize = 1000000
bench/src/ArrayBench.elm+5−1
@@ -35,12 +35,16 @@ meanAndStddev foldFn ourArray =
35
35
36foldrMeanStddev = meanAndStddev Array.foldr
36foldrMeanStddev = meanAndStddev Array.foldr
37
37
38+
38foldlMeanStddev = meanAndStddev Array.foldl
39foldlMeanStddev = meanAndStddev Array.foldl
39
40
41+
40customFoldrMeanStddev = meanAndStddev myFoldr
42customFoldrMeanStddev = meanAndStddev myFoldr
41
43
44+
42customFoldlMeanStddev = meanAndStddev myFoldl
45customFoldlMeanStddev = meanAndStddev myFoldl
43
46
47+
44updateNRandomIndices
48updateNRandomIndices
45 : (Float -> Float)
49 : (Float -> Float)
46 -> List Int
50 -> List Int
@@ -57,7 +61,6 @@ randomLookups indices arr =
57 List.map (\i -> Array.get i arr) indices
61 List.map (\i -> Array.get i arr) indices
58
62
59
63
60−
61myFoldl : (a -> b -> b) -> b -> Array.Array a -> b
64myFoldl : (a -> b -> b) -> b -> Array.Array a -> b
62myFoldl f init arr =
65myFoldl f init arr =
63 let
66 let
@@ -82,6 +85,7 @@ myFoldr f init arr =
82 else
85 else
83 helper (f (fromJust <| Array.get i arr) init) (i-1)
86 helper (f (fromJust <| Array.get i arr) init) (i-1)
84 in helper init (len-1)
87 in helper init (len-1)
88+
85
89
86updateN : Int -> (a -> a) -> Array.Array a -> Array.Array a
90updateN : Int -> (a -> a) -> Array.Array a -> Array.Array a
87updateN n f arr =
91updateN n f arr =