結果
問題 |
No.560 ふしぎなナップサック
|
ユーザー |
![]() |
提出日時 | 2025-07-10 18:41:58 |
言語 | Haskell (9.10.1) |
結果 |
MLE
|
実行時間 | - |
コード長 | 390 bytes |
コンパイル時間 | 7,882 ms |
コンパイル使用メモリ | 180,608 KB |
実行使用メモリ | 812,928 KB |
最終ジャッジ日時 | 2025-07-10 18:42:10 |
合計ジャッジ時間 | 11,657 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 MLE * 1 -- * 1 |
other | -- * 12 |
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.10.1/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) [2 of 2] Linking a.out
ソースコード
module Main where import Data.Function (on) main :: IO () main = getIntList >>= print . solve solve :: [Int] -> Double solve [m, n] = ave $ go n [m] ave :: [Int] -> Double ave = on (/) fromIntegral <$> sum <*> length go :: Int -> [Int] -> [Int] go 0 xs = xs go n xs = go (n - 1) $ do x <- xs [x * 2, x + 1, 0] getIntList :: IO [Int] getIntList = map read . words <$> getLine