如何舉起一個功能來處理鏡頭？

Question

我目前定義了兩個功能：

avg :: (Fractional e) => [e] -> e
avg e = uncurry (/) $ foldl' (\(a,l) v -> (a+v,l+1)) (0.0,0.0) e

avgOf :: (Fractional a) => Getting (Endo (Endo (a, a))) s a -> s -> a
avgOf g s = uncurry (/) $ foldlOf' g accfun (0.0,0.0) s
  where accfun (a,l) v = (a+v, l+1)

我的印象是，必須有一種簡單的方法來擺脫整個avgOf實現，並用一個簡單的方法取代它，只需“提升” avg即可。

Answer 1

您可以使用partsOf來構建整個布料。

avgOf l xs = xs^..partsOf l.to avg