gistfile1.hs

boards :: [Int] -> Int -> [Int]
boards _ 0 = []
boards selection length =
  case filter (>= length) selection of
    [] -> split selection length    
    xs -> [minimum xs]

split :: [Int] -> Int -> [Int]
split selection length = smallBoards ++ bigBoards
  where max = maximum selection 
        (quot, rem) = quotRem length max
        smallBoards = boards selection rem
        bigBoards = replicate quot max