1 files changed, 28 insertions, 0 deletions

diff --git a/shelf.hs b/shelf.hs
new file mode 100755
index 0000000..2c27b52
--- /dev/null
+++ b/shelf.hs
@@ -0,0 +1,28 @@
+#!/usr/bin/env stack
+{- stack script --resolver lts-16.14 --install-ghc
+  --ghc-options -Wall --ghc-options -Wno-unused-imports -}
+{-# language NoImplicitPrelude #-}
+{-# language DuplicateRecordFields #-}
+import Rebase.Prelude
+import Control.Lens
+
+type Inches = Rational
+
+boardLength, boardThickness, kickerHeight, numShelves, numHorizontals, availableSpace :: Inches
+boardLength = 6 * 12
+boardThickness = 5/8
+kickerHeight = 4
+numShelves = 5
+
+numHorizontals = numShelves + 1
+availableSpace = boardLength - kickerHeight - numHorizontals * boardThickness
+
+shelves :: [Rational]
+shelves = [2%9, 2%9, 2%9, 1%6, 1%6]
+
+
+main :: IO ()
+main = do
+  _ <- return $ assert $ sum shelves == 1
+  print shelves
+  return ()