Submission #1178793

---

Source Code Expand

import Data.List
main :: IO ()
main = do
    [_,k] <- (map read . words) <$> getLine
    as <- (map read . words) <$> getLine
    print $ solve k as

solve :: Int -> [Int] -> Int
solve k as = a + b
    where
        a = sum $ take k (sort as)
        b = sum [0..k-1]

Submission Info

Judge Result