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

Compute the components circularly.

Browse Source
This commit is contained in:
Rob Rix 2017-10-26 15:19:53 -04:00
parent 9f832783da
commit 02f60e07e1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/RWS.hs
View File

@ -170,14 +170,14 @@ pqGramDecorator getLabel p q = cata algebra
-- | Computes a unit vector of the specified dimension from a hash.
unitVector :: Int -> Int -> FeatureVector
unitVector d hash = FV $ listArray (0, d - 1) (map (* invMagnitude) components)
unitVector d hash = FV $ listArray (0, d - 1) components
where
invMagnitude = 1 / sqrt sum
(components, !sum) = go d (pureMT (fromIntegral hash)) [] 0
go !n !rng !vs !sum
| n < 0 = (vs, sum)
| otherwise = let (!v, !rng') = randomDouble rng in
go (pred n) rng' (v : vs) (sum + v * v)
go (pred n) rng' (invMagnitude * v : vs) (sum + v * v)
-- | Test the comparability of two root 'Term's in O(1).
canCompareTerms :: ComparabilityRelation syntax ann1 ann2 -> Term syntax ann1 -> Term syntax ann2 -> Bool