language-dickinson-1.4.0.0: src/Language/Dickinson/Probability.hs

{-# LANGUAGE TupleSections #-}
module Language.Dickinson.Probability ( weight
                                      ) where

import           Data.List.NonEmpty (NonEmpty)

weight :: NonEmpty a -> NonEmpty (Double, a)
weight es = (recip', ) <$> es
    where recip' = 1 / fromIntegral (length es)