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

Stub in the computation of the furthest d-path along k.

Browse Source
This commit is contained in:
Rob Rix 2017-03-09 12:26:44 -05:00
parent faa7096368
commit 8907ebbf8a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/SES/Myers.hs
View File

@ -33,7 +33,8 @@ decompose myers = case myers of
MiddleSnake as bs -> do
for 0 ((m + n) `ceilDiv` 2) 1 $ \ d ->
for (negate d) d 2 $ \ _k ->
for (negate d) d 2 $ \ k -> do
Endpoint x y <- findDPath Forward (EditDistance d) (Diagonal k)
return ()
return (Snake (Endpoint 0 0) (Endpoint 0 0), EditDistance 0)
where ceilDiv = (uncurry (+) .) . divMod