Submission #123065

---

Source Code Expand

import Data.List

main :: IO ()
main = do nk <- getLine
          rs <- getLine
          print $ maximum (map (foldl acc 0) (getPermitations rs nk)) where
              acc :: Float -> String -> Float
              acc n m = (n + (read m)) / 2
              getPermitations :: String -> String -> [[String]]
              getPermitations rs nk = map (take (getSndInt nk)) (permutations (words rs)) where
                  getSndInt :: String -> Int
                  getSndInt nk =  read $ last $ words nk

Submission Info

Judge Result