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

🔥 getK.

Browse Source
This commit is contained in:
Rob Rix 2017-06-21 14:02:06 -04:00
parent 0bf24a86db
commit c4f45522af
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/SES/Myers.hs
View File

@ -52,9 +52,8 @@ ses eq as' bs'
moveDownFrom up moveDownFrom up
else else
moveRightFrom left moveRightFrom left
where getK k = v ! k where left = v ! pred k
left = getK (pred k) up = v ! succ k
up = getK (succ k)
-- | Move downward from a given vertex, inserting the element for the corresponding row. -- | Move downward from a given vertex, inserting the element for the corresponding row.
moveDownFrom (Endpoint x y script) = Endpoint x (succ y) (if y < m then That (bs ! y) : script else script) moveDownFrom (Endpoint x y script) = Endpoint x (succ y) (if y < m then That (bs ! y) : script else script)