Submission #643118
Source Code Expand
import Control.Applicative ((<$>)) import Data.List (sortBy) import Text.Printf (printf) solve :: Int -> [Double] -> Double solve k = foldr (\c r -> (c + r) / 2.0) 0.0 . take k . sortBy (flip compare) main :: IO () main = do [_, k] <- map read . words <$> getLine rs <- map read . words <$> getLine printf "%.10f\n" $ solve k rs
Submission Info
Submission Time | |
---|---|
Task | C - AtCoderプログラミング講座 |
User | hamukichi |
Language | Haskell (GHC 7.4.1) |
Score | 100 |
Code Size | 355 Byte |
Status | AC |
Exec Time | 34 ms |
Memory | 1948 KB |
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 100 / 100 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, 00_sample_04.txt, test_01.txt, test_02.txt, test_03.txt, test_04.txt, test_05.txt, test_06.txt, test_07.txt, test_08.txt, test_09.txt, test_10.txt, test_11.txt, test_12.txt, test_13.txt, test_14.txt, test_15.txt, test_16.txt, test_17.txt, test_18.txt, test_19.txt, test_20.txt, test_21.txt, test_22.txt, test_23.txt, test_24.txt, test_25.txt, test_26.txt, test_27.txt, test_28.txt, test_29.txt, test_30.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
00_sample_01.txt | AC | 34 ms | 1420 KB |
00_sample_02.txt | AC | 31 ms | 1420 KB |
00_sample_03.txt | AC | 29 ms | 1540 KB |
00_sample_04.txt | AC | 29 ms | 1572 KB |
test_01.txt | AC | 29 ms | 1420 KB |
test_02.txt | AC | 33 ms | 1932 KB |
test_03.txt | AC | 31 ms | 1932 KB |
test_04.txt | AC | 33 ms | 1932 KB |
test_05.txt | AC | 31 ms | 1932 KB |
test_06.txt | AC | 31 ms | 1936 KB |
test_07.txt | AC | 33 ms | 1928 KB |
test_08.txt | AC | 33 ms | 1932 KB |
test_09.txt | AC | 31 ms | 1932 KB |
test_10.txt | AC | 31 ms | 1932 KB |
test_11.txt | AC | 32 ms | 1896 KB |
test_12.txt | AC | 32 ms | 1900 KB |
test_13.txt | AC | 32 ms | 1948 KB |
test_14.txt | AC | 34 ms | 1936 KB |
test_15.txt | AC | 32 ms | 1936 KB |
test_16.txt | AC | 33 ms | 1772 KB |
test_17.txt | AC | 34 ms | 1932 KB |
test_18.txt | AC | 32 ms | 1932 KB |
test_19.txt | AC | 32 ms | 1932 KB |
test_20.txt | AC | 31 ms | 1804 KB |
test_21.txt | AC | 32 ms | 1932 KB |
test_22.txt | AC | 32 ms | 1932 KB |
test_23.txt | AC | 29 ms | 1640 KB |
test_24.txt | AC | 29 ms | 1676 KB |
test_25.txt | AC | 30 ms | 1940 KB |
test_26.txt | AC | 33 ms | 1944 KB |
test_27.txt | AC | 31 ms | 1824 KB |
test_28.txt | AC | 30 ms | 1560 KB |
test_29.txt | AC | 32 ms | 1928 KB |
test_30.txt | AC | 31 ms | 1928 KB |