From 444acff526ce907d38aa570dca5dd8f5812515cd Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 11 Jul 2018 08:59:13 -0700 Subject: [PATCH] Add fences problem --- dotfiles/lib/bin/fences_problem.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dotfiles/lib/bin/fences_problem.hs b/dotfiles/lib/bin/fences_problem.hs index 957898d6..d5ac432c 100755 --- a/dotfiles/lib/bin/fences_problem.hs +++ b/dotfiles/lib/bin/fences_problem.hs @@ -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 =