From de1990faae4ae003e862087fcac858fd9ef3473d Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Mon, 4 Jan 2021 16:47:38 -0500 Subject: next time use larger kicker --- shelf.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/shelf.hs b/shelf.hs index 9544acf..954cf94 100755 --- a/shelf.hs +++ b/shelf.hs @@ -33,7 +33,7 @@ type Inches = Rational boardLength, boardThickness, kickerHeight, availableSpace :: Inches boardLength = 6 * 12 boardThickness = 5/8 -kickerHeight = 4 +kickerHeight = 4 + 1/2 numHorizontals, numShelves :: Int numShelves = length shelves @@ -50,7 +50,7 @@ positions' = map (boardLength -) positions main :: IO () main = do - return $ assert $ sum shelves == 1 + -- assert $ sum shelves == 1 mapM_ putStrLn $ formatFeet <$> positions putStrLn "" mapM_ putStrLn $ formatFeet <$> positions' -- cgit v1.2.3