diff options
author | Andrew Cady <d@jerkface.net> | 2021-01-04 16:47:38 -0500 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2021-01-04 16:47:38 -0500 |
commit | de1990faae4ae003e862087fcac858fd9ef3473d (patch) | |
tree | 3aaefd8690c65d286d107a3ec1d4e7a8c03deddb | |
parent | 521227fde4cb513c65279ed0886675eb2c72581b (diff) |
next time use larger kicker
-rwxr-xr-x | shelf.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -33,7 +33,7 @@ type Inches = Rational | |||
33 | boardLength, boardThickness, kickerHeight, availableSpace :: Inches | 33 | boardLength, boardThickness, kickerHeight, availableSpace :: Inches |
34 | boardLength = 6 * 12 | 34 | boardLength = 6 * 12 |
35 | boardThickness = 5/8 | 35 | boardThickness = 5/8 |
36 | kickerHeight = 4 | 36 | kickerHeight = 4 + 1/2 |
37 | numHorizontals, numShelves :: Int | 37 | numHorizontals, numShelves :: Int |
38 | numShelves = length shelves | 38 | numShelves = length shelves |
39 | 39 | ||
@@ -50,7 +50,7 @@ positions' = map (boardLength -) positions | |||
50 | 50 | ||
51 | main :: IO () | 51 | main :: IO () |
52 | main = do | 52 | main = 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' |