Splicer.hs

import Control.Monad (liftM)
import System.Environment (getArgs)

board = 16 * 12

cut :: Integer -> (Integer, Integer) -> (Integer, Integer)
cut 0 acc = acc
cut x (n, 0) = cut x (n + 1, board)
cut x (n, r) | x <= r = (n, r - x)
             | x > board = cut (x - board) (n + 1, r)
             | otherwise = cut x (n, 0)
                           
splice :: [Integer] -> Integer
splice xs = let (boards, _) = foldr cut (0,0) xs in boards

main = do
  measurements <- liftM parse getArgs
  display (splice measurements)
  where parse = map read
        display = putStrLn . show