github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-27 12:57:49 +03:00
Code Issues Projects Releases Wiki Activity

Factor out the downward/rightward moves.

Browse Source
This commit is contained in:
Rob Rix 2017-06-21 15:04:11 -04:00
parent 74c301f7da
commit 9fa104fb23
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/SES/Myers.hs
View File

@ -37,13 +37,15 @@ ses eq as' bs'
-- Search an edit graph for the shortest edit script along a specific diagonal, moving onto a given diagonal from one of its in-bounds adjacent diagonals (if any).
searchAlongK k
| k == -d = moveDownFrom up
| k == d = moveRightFrom left
| k == -m = moveDownFrom up
| k == n = moveRightFrom left
| x left < x up = moveDownFrom up
| otherwise = moveRightFrom left
where left = v ! pred k
| k == -d = moveDown
| k == d = moveRight
| k == -m = moveDown
| k == n = moveRight
| x left < x up = moveDown
| otherwise = moveRight
where moveRight = moveRightFrom left
moveDown = moveDownFrom up
left = v ! pred k
up = v ! succ k
-- | Move downward from a given vertex, inserting the element for the corresponding row.