<html><head><style>p{margin-top:0px;margin-bottom:0px;}</style></head><body><div style="font-size:10pt; font-family:NanumGothic, ë‚˜ëˆ”고딕, sans-serif;"><p>e.g. Parallel resistors, serial capacitors, parallel inductors.</p><p> </p><p>newtype RecipSum a = RecipSum {getRecipSum :: a}</p><p> </p><p>instance Fractional a => Semigroup (RecipSum a) where</p><p>    RecipSum x <> RecipSum y = RecipSum (recip (recip x + recip y))</p><p>    sconcat (x :| xs) = mconcat (x : xs). </p><p>    stimes n (RecipSum x) = RecipSum (x / fromIntegral n) </p><p> </p><p>instance Fractional a => Monoid (ResipSum a) where</p><p>    mempty = RecipSum (1 / 0)</p><p>    mconcat xs = RecipSum (recip . getSum $ foldMap (Sum . recip . getRecipSum) xs)</p></div></body></html><table style='display:none'><tr><td><img src="https://mail.naver.com/readReceipt/notify/?img=JdFCbHFTpz%2FYaqgZKrRZpApvMx0opoKrMqKqpxIvFqudMx2dFzKrKokvKvIo%2BrkSKo25W4d5W4C5bX0q%2BzkR74FTWx%2FsWz0Sb4JZ16kqtzCCbrR0Wzm5WXiN.gif" border="0"/></td></tr></table>