Caisse.hs

{-# OPTIONS -Wall #-}

queueTime :: [Int] -> Int -> Int
queueTime l n = go (take n l) (drop n l) 0
    where
      go [] [] res = res
      go workers remains res = let
        faster = minimum workers
        workers' = filter(/= 0) $ map (subtract faster) workers
        l' = workers' ++ remains
        in go (take n l') (drop n l') (res + faster)