提出 #2391927

ソースコード 拡げる

import Control.Monad

main = do
  [n,x] <- (map read . words) <$> getLine
  ms <- replicateM n readLn
  print $ n + (x - sum ms) `div` minimum ms

提出情報

提出日時
問題 B - Bitter Alchemy
ユーザ wawktk2525
言語 Haskell (GHC 7.10.3)
得点 200
コード長 150 Byte
結果 AC
実行時間 2 ms
メモリ 1020 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 200 / 200
結果
AC × 3
AC × 13
セット名 テストケース
Sample a01, a02, a03
All a01, a02, a03, b04, b05, b06, b07, b08, b09, b10, b11, b12, b13
ケース名 結果 実行時間 メモリ
a01 AC 1 ms 508 KiB
a02 AC 1 ms 508 KiB
a03 AC 2 ms 508 KiB
b04 AC 1 ms 508 KiB
b05 AC 1 ms 508 KiB
b06 AC 2 ms 1020 KiB
b07 AC 2 ms 1020 KiB
b08 AC 2 ms 1020 KiB
b09 AC 2 ms 1020 KiB
b10 AC 2 ms 1020 KiB
b11 AC 2 ms 1020 KiB
b12 AC 2 ms 1020 KiB
b13 AC 2 ms 1020 KiB