github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 21:31:48 +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 module Data.Gram where
import Control.Monad.Random import Control.Monad.Random
import Data.DList as DList import qualified Data.DList as DList
import Data.Hashable import Data.Hashable
import Data.Vector as Vector import qualified Data.Vector as Vector
import Prologue import Prologue
import Test.QuickCheck.Random import Test.QuickCheck.Random
@ -13,10 +13,10 @@ serialize :: Gram label -> [label]
serialize gram = stem gram <> base gram 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 featureVector bag d = sumVectors $ unitDVector . hash <$> bag
where unitDVector hash = normalize . (`evalRand` mkQCGen hash) $ Prologue.sequence (Vector.replicate d getRandom) where unitDVector hash = normalize . (`evalRand` mkQCGen hash) $ Prologue.sequence (Vector.replicate d getRandom)
normalize vec = fmap (/ magnitude vec) vec normalize vec = fmap (/ magnitude vec) vec