Add fences problem

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

View File

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