summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2021-01-04 16:47:38 -0500
committerAndrew Cady <d@jerkface.net>2021-01-04 16:47:38 -0500
commitde1990faae4ae003e862087fcac858fd9ef3473d (patch)
tree3aaefd8690c65d286d107a3ec1d4e7a8c03deddb
parent521227fde4cb513c65279ed0886675eb2c72581b (diff)
next time use larger kicker
-rwxr-xr-xshelf.hs4
1 files 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
33boardLength, boardThickness, kickerHeight, availableSpace :: Inches 33boardLength, boardThickness, kickerHeight, availableSpace :: Inches
34boardLength = 6 * 12 34boardLength = 6 * 12
35boardThickness = 5/8 35boardThickness = 5/8
36kickerHeight = 4 36kickerHeight = 4 + 1/2
37numHorizontals, numShelves :: Int 37numHorizontals, numShelves :: Int
38numShelves = length shelves 38numShelves = length shelves
39 39
@@ -50,7 +50,7 @@ positions' = map (boardLength -) positions
50 50
51main :: IO () 51main :: IO ()
52main = do 52main = do
53 return $ assert $ sum shelves == 1 53 -- assert $ sum shelves == 1
54 mapM_ putStrLn $ formatFeet <$> positions 54 mapM_ putStrLn $ formatFeet <$> positions
55 putStrLn "" 55 putStrLn ""
56 mapM_ putStrLn $ formatFeet <$> positions' 56 mapM_ putStrLn $ formatFeet <$> positions'