結果
問題 | No.257 N言っちゃダメゲーム (3) |
ユーザー | aimy |
提出日時 | 2017-04-22 17:37:16 |
言語 | Haskell (9.8.2) |
結果 |
AC
|
実行時間 | 45 ms / 2,000 ms |
コード長 | 397 bytes |
コンパイル時間 | 600 ms |
コンパイル使用メモリ | 163,108 KB |
実行使用メモリ | 24,408 KB |
平均クエリ数 | 3.70 |
最終ジャッジ日時 | 2023-09-24 01:00:16 |
合計ジャッジ時間 | 4,261 ms |
ジャッジサーバーID (参考情報) |
judge14 / judge11 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 45 ms
24,288 KB |
testcase_01 | AC | 42 ms
23,304 KB |
testcase_02 | AC | 43 ms
23,724 KB |
testcase_03 | AC | 37 ms
23,592 KB |
testcase_04 | AC | 37 ms
23,928 KB |
testcase_05 | AC | 37 ms
23,616 KB |
testcase_06 | AC | 42 ms
24,132 KB |
testcase_07 | AC | 35 ms
23,952 KB |
testcase_08 | AC | 45 ms
23,304 KB |
testcase_09 | AC | 42 ms
23,592 KB |
testcase_10 | AC | 36 ms
23,760 KB |
testcase_11 | AC | 42 ms
23,448 KB |
testcase_12 | AC | 42 ms
23,268 KB |
testcase_13 | AC | 43 ms
24,132 KB |
testcase_14 | AC | 42 ms
23,472 KB |
testcase_15 | AC | 36 ms
23,676 KB |
testcase_16 | AC | 37 ms
24,324 KB |
testcase_17 | AC | 45 ms
23,604 KB |
testcase_18 | AC | 43 ms
23,736 KB |
testcase_19 | AC | 35 ms
23,604 KB |
testcase_20 | AC | 42 ms
24,300 KB |
testcase_21 | AC | 44 ms
23,316 KB |
testcase_22 | AC | 35 ms
24,060 KB |
testcase_23 | AC | 37 ms
24,312 KB |
testcase_24 | AC | 41 ms
23,964 KB |
testcase_25 | AC | 36 ms
24,072 KB |
testcase_26 | AC | 36 ms
23,592 KB |
testcase_27 | AC | 37 ms
23,412 KB |
testcase_28 | AC | 37 ms
23,460 KB |
testcase_29 | AC | 44 ms
24,408 KB |
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.6.1/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) [2 of 2] Linking a.out
ソースコード
import Control.Monad import System.IO import Data.List next n k x = last (takeWhile (>x) [n-1,n-1-(k+1)..0]) main = do [n,k] <- map read . words <$> getLine if (mod (n-1) (k+1) == 0) then putStrLn "0" else putStrLn (show (next n k 0)) hFlush stdout main' n k where main' n k = do b <- read <$> getLine unless (b >= n) (putStrLn (show (next n k b)) >> hFlush stdout >> main' n k)