結果

問題 No.143 豆
ユーザー hebiyan
提出日時 2017-02-04 01:42:17
言語 Haskell
(9.10.1)
結果
AC  
実行時間 2 ms / 1,000 ms
コード長 284 bytes
コンパイル時間 4,941 ms
コンパイル使用メモリ 173,312 KB
実行使用メモリ 6,948 KB
最終ジャッジ日時 2024-07-23 10:40:28
合計ジャッジ時間 3,684 ms
ジャッジサーバーID
(参考情報)
judge4 / judge1
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 17
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

diff #

main = interact $ (++ "\n") . show . solve . map (map (\x -> read x :: Int) . words) . take 2 . lines
       where solve = \[[k, n, f], nums] ->
                     let diff = (k * n) - (sum . take f) nums
                     in
                       if diff < 0 then -1 else diff
0