github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 08:25:19 +03:00
Code Issues Projects Releases Wiki Activity

🔥 redundant bindings of n & m.

Browse Source
This commit is contained in:
Rob Rix 2017-06-13 20:30:20 -04:00
parent 3ed7e1da53
commit 6c95429a27
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/SES/Myers.hs
View File

@ -71,7 +71,6 @@ runSES eq (EditGraph as bs)
-- | Search an edit graph for the shortest edit script up to a given proposed edit distance, building on the results of previous searches.
searchUpToD (Distance d) =
for [ k | k <- [negate d, negate d + 2 .. d], inRange (negate m, n) k ] (searchAlongK (Distance d) . Diagonal)
where (n, m) = (length as, length bs)
-- | Search an edit graph for the shortest edit script along a specific diagonal.
searchAlongK d k = do