@@ -35,12 +35,16 @@ meanAndStddev foldFn ourArray =
3535
3636foldrMeanStddev = meanAndStddev Array.foldr
3737
38+
3839foldlMeanStddev = meanAndStddev Array.foldl
3940
41+
4042customFoldrMeanStddev = meanAndStddev myFoldr
4143
44+
4245customFoldlMeanStddev = meanAndStddev myFoldl
4346
47+
4448updateNRandomIndices
4549 : (Float -> Float)
4650 -> List Int
@@ -57,7 +61,6 @@ randomLookups indices arr =
5761 List.map (\i -> Array.get i arr) indices
5862
5963
60−
6164myFoldl : (a -> b -> b) -> b -> Array.Array a -> b
6265myFoldl f init arr =
6366 let
@@ -82,6 +85,7 @@ myFoldr f init arr =
8285 else
8386 helper (f (fromJust <| Array.get i arr) init) (i-1)
8487 in helper init (len-1)
88+
8589
8690updateN : Int -> (a -> a) -> Array.Array a -> Array.Array a
8791updateN n f arr =