github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 13:21:59 +03:00
Code Issues Projects Releases Wiki Activity

Qualify our imports.

Browse Source
This commit is contained in:
Rob Rix 2016-06-22 09:37:02 -04:00
parent 51f3d3d11d
commit 1d225b39ad
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Data/Gram.hs
View File

@ -1,9 +1,9 @@
module Data.Gram where
import Control.Monad.Random
import Data.DList as DList
import qualified Data.DList as DList
import Data.Hashable
import Data.Vector as Vector
import qualified Data.Vector as Vector
import Prologue
import Test.QuickCheck.Random
@ -13,10 +13,10 @@ serialize :: Gram label -> [label]
serialize gram = stem gram <> base gram
type Bag = DList
type Bag = DList.DList
featureVector :: Hashable label => Bag (Gram label) -> Int -> Vector Double
featureVector :: Hashable label => Bag (Gram label) -> Int -> Vector.Vector Double
featureVector bag d = sumVectors $ unitDVector . hash <$> bag
where unitDVector hash = normalize . (`evalRand` mkQCGen hash) $ Prologue.sequence (Vector.replicate d getRandom)
normalize vec = fmap (/ magnitude vec) vec