Submission #123010

---

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 -> Float -> Float
              acc n m = (n+m)/2
              getPermitations :: String -> String -> [[Float]]
              getPermitations rs nk = map (take (getSndInt nk)) (permutations (map read (words rs))) where
                  getSndInt :: String -> Int
                  getSndInt nk =  read $ last $ words nk

Submission Info

Judge Result