avoid redundant output when bookcase is symmetrical

1 files changed, 23 insertions, 8 deletions

diff --git a/shelf.hs b/shelf.hs
index e5b615d..c7b66e7 100755
--- a/shelf.hs
+++ b/shelf.hs
@@ -66,16 +66,31 @@ positions Shelf{..} = map sum $ (tail . inits) $ concatMap (: [boardThickness])
 
 positions' x@Shelf{..} = map (boardLength -) $ positions x
 
-printPositions :: Shelf -> IO ()
-printPositions x = do
+printDadoMarkings :: Shelf -> IO ()
+printDadoMarkings x = do
+  if symmetrical
+    then putStrLn "\nDado markings (symmetrical):\n"
+    else putStrLn "\nDado markings:\n"
+
   mapM_ putStrLn $ formatFeet <$> positions x
-  when (positions x /= reverse (positions' x)) $ do
+
+  when (not symmetrical) $ do
     putStrLn "\nReversed:\n"
     mapM_ putStrLn $ formatFeet <$> positions' x
+  where
+    symmetrical = positions x == reverse (positions' x)
+
+printCutlist :: Shelf -> IO ()
+printCutlist x = do
+  putStrLn "Length:"
+  putStrLn $ formatFeet $ boardLength x
+  printDadoMarkings x
+
+printPianoCubbies :: IO ()
+printPianoCubbies = do
+  putStrLn "Piano Cubbies"
+  putStrLn "-------------\n"
+  printCutlist pianoCubbies
 
 main :: IO ()
-main = do
-  putStrLn "Piano cubbies:\n"
-  printPositions pianoCubbies
-  putStrLn "\n\nBookshelf:\n"
-  printPositions bookshelf
+main = printPianoCubbies