Вы не можете выбрать более 25 тем
Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
|
- eggDrop :: Integer -> Integer -> Integer
- eggDrop n k
- | k == 1 || k == 0 || n == 1 = k
- | otherwise = 1 + (minimum $ map (\i -> f i) [1..k])
- where
- f i = max (eggDrop (n-1) (i-1)) (eggDrop n (k-i))
-
- -----------------
- -- gross io bs --
- -----------------
-
- main :: IO ()
- main = do
- l <- getLine
- let (n:k:_) = map read $ words l :: [Integer]
- putStrLn $ show $ eggDrop n k
|