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

🔥 getK.

Browse Source
This commit is contained in:
Rob Rix 2017-03-10 10:35:23 -05:00
parent 7f932559cf
commit d582bcb435
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/SES/Myers.hs
View File

@ -90,12 +90,6 @@ middleSnake as bs = M (MiddleSnake as bs) `Then` return
data MyersState = MyersState { forward :: !(Vector.Vector Int), backward :: !(Vector.Vector Int), offset :: Diagonal } data MyersState = MyersState { forward :: !(Vector.Vector Int), backward :: !(Vector.Vector Int), offset :: Diagonal }
getK :: Direction -> Diagonal -> Myers Endpoint
getK direction (Diagonal diagonal) = do
MyersState forward backward (Diagonal offset) <- get
let v = case direction of { Forward -> forward ; Reverse -> backward }
return $! v `at` (offset + diagonal)
at :: Vector.Vector Int -> Int -> Endpoint at :: Vector.Vector Int -> Int -> Endpoint
at v k = Endpoint (v Vector.! k) 0 at v k = Endpoint (v Vector.! k) 0