colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add fences problem

Browse Source
This commit is contained in:
Ivan Malison 2018-07-11 08:59:13 -07:00
parent c6c7b95871
commit 444acff526
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dotfiles/lib/bin/fences_problem.hs
View File

@ -51,8 +51,8 @@ processFenceHeight index allHeights@(height:heights) problemState =
then stackPush theStack (index, height) then stackPush theStack (index, height)
else theStack else theStack
in case lastHeight of in case lastHeight of
h | lastHeight < height -> handleTaller _ | lastHeight < height -> handleTaller
h | lastHeight > height -> handleShorter _ | lastHeight > height -> handleShorter
_ -> processFenceHeight (index + 1) heights problemState _ -> processFenceHeight (index + 1) heights problemState
processFences fences = processFences fences =